Utilisation de la commande "movenext" dans un "do while rec.eof = false"

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 511 fois - Téléchargée 35 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_Zoltan67

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.