bonjour,
je souhaite faire une lecture de tous les enregistrements d'une de mes tables sous Access 2000 et modifier certains champs.
Pour cela j'utilise do while eof et un movenext.
Malheureusement, lorsque j'arrive à la fin de mon fichier, il me met un message d'erreur, hors il devrait simplement quitter ma boucle et passer à la suite.
La boucle fonctionne bien; c'est simplement en arrivant au dernier enregistrement de ma table que ça bug.
Qu'est ce qui va pas dans mon code ??
Merci.
Source / Exemple :
Dim db as database
Dim rec as recordset
Dim trouver1 as string
Dim Chercher1 as String
Set db = currentdb
set rec = db.openrecordset ("Table1")
Do While rec.EOF = False
If Chercher1 = Trouver1 Then
rec.Edit
rec![NumAuto] = Me.C_Nom
rec.Update
End If
Rec.MoveNext
Trouver1 = Rec![NumFacture]
Loop
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.