Programmation, Trucs et astuces sur Microsoft ACCESS.

Re: parcourir enregistrement

Réponse à: parcourir enregistrement envoi de fred33 le 03 Janvier 2005 22:37:38:

Bonjour,

Traduction de votre code.
Private Sub BtRecalculTarifHoraire_Click()
'=> Décalration de la variable
Dim rst As Recordset

'=> Je ne sais pas trop, jamais utilisé
DoCmd.GoToRecord , , acFirst

'=> Entrer dans la boucle et y rester tant que l'on trouve des enregistrements
Do Until rst.EOF
'=> Boite à message
MsgBox Me.N°famille 'qui sera remplace par ma fonction
'=> Sortir de la boucle
Exit Do
'=> Aller au prochain enregistrement
rst.MoveNext
'=> Faire un nouveau tour de boucle
Loop

D'ou vient le problème. Si je ne me trompe pas dans ma traduction, celui-ci doit venir de votre instruction Exit Do.

Gdal
End Sub

Alerter Rezoweb si ce message est illégal