UTILISATION DE LA COMMANDE "MOVENEXT" DANS UN "DO WHILE REC.EOF = FALSE"

---

Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

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.

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

• COMMENT DESSINER UN GRAPHE ORIENTE BY CHIHAOUI CAD UN GRAPHE QUI CONTIENT DES FLÈCHES ET NON PAS DES ARCS
• LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS
• CALCUL DE MORTIER ET BETON
• GESTION DES BONS DE LIVRAISON
• GESTION DE STOCK