Défiler un formulaire

Bonjour José,
Allez on innove un peu :

Par exemple, sur clic d'un bouton, tu peux activer la minuterie :

Private Sub Commande2_Click()
Me.TimerInterval = 2000
End Sub

après avoir pris soin de mettre dans l'événement sur minuterie du formulaire :

Private Sub Form_Timer()
on error goto fin
DoCmd.GoToRecord acDataForm, Me.name, acNext
exit sub
fin:
Me.TimerInterval = 0
End Sub

on peut aussi vérifier si le numéro d'enregistrement courant correspond au nombre
d'enregistrements du recordset

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


| Salut,
|
| Comment en vba faire défiler les enregistrements dans un
| formulaire? Plus précisément:
|
| - je me place sur le premier enregistrement
| - j'attend deux secondes
| - je passe à l'enregistrement suivant
| - j'attend deux secondes
| - je passe à l'enregistrement suivant
| - j'attend deux secondes
| - je passe à l'enregistrement suivant
| - ect...
| - et je m'arrete au dernier enregistrement
|
| Merci d'avance pour votre aide.

re,
Après relecture de la question j'avais oublié le positionnement sur le premier enregistrement :
si on déclenche à l'ouverture du formulaire :

Private Sub Form_Open()
DoCmd.GoToRecord acDataForm, Me.name, acFirst
Me.TimerInterval = 2000
End Sub

Private Sub Form_Timer()
on error goto fin
DoCmd.GoToRecord acDataForm, Me.name, acNext
exit sub
fin:
Me.TimerInterval = 0
End Sub

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

| Bonjour José,
| Allez on innove un peu :
|
| Par exemple, sur clic d'un bouton, tu peux activer la minuterie :
|
| Private Sub Commande2_Click()
| Me.TimerInterval = 2000
| End Sub
|
| après avoir pris soin de mettre dans l'événement sur minuterie du
| formulaire :
|
| Private Sub Form_Timer()
| on error goto fin
| DoCmd.GoToRecord acDataForm, Me.name, acNext
| exit sub
| fin:
| Me.TimerInterval = 0
| End Sub
|
| on peut aussi vérifier si le numéro d'enregistrement courant
| correspond au nombre d'enregistrements du recordset
|
| à+
|
|| Salut,
||
|| Comment en vba faire défiler les enregistrements dans un
|| formulaire? Plus précisément:
||
|| - je me place sur le premier enregistrement
|| - j'attend deux secondes
|| - je passe à l'enregistrement suivant
|| - j'attend deux secondes
|| - je passe à l'enregistrement suivant
|| - j'attend deux secondes
|| - je passe à l'enregistrement suivant
|| - ect...
|| - et je m'arrete au dernier enregistrement
||
|| Merci d'avance pour votre aide.