[Toutes versions] boucle Do Until [Résolu]

[zoom61]

Salut,

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
Function essai()
    Set oReq = CurrentDb.OpenRecordset("R_REQ")
    a = 0
    If oReq.RecordCount = 0 Then GoTo Gest_Erreur
    Do Until oReq.EOF
        a = a + 1
        If a > 200 Then GoTo Gest_Erreur
    Loop
Gest_Erreur:
    MsgBox "fin" & Chr(13) & a
End Function

La requête R_REQ ne contient qu'une ligne, mais la boucle s'exécute x fois (je la stoppe à 200)... ou ai-je fais mon erreur ???

Merci.

[Godzestla]

Bonjour .EOF est positionné par une tentative d'accès aux records qui échoue, par exemple .findfirst ou .findnext, ce que tu ne fais pas.

Donc bouclage garanti.

[zoom61]

Alors comment je dois faire ma boucle...

[zoom61]

J'avais oublié "oReq.Next":

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Function essai()
    Set oReq = CurrentDb.OpenRecordset("R_REQ")
    a = 0
    If oReq.RecordCount = 0 Then GoTo Gest_Erreur
    Do Until oReq.EOF
        a = a + 1
        If a > 200 Then GoTo Gest_Erreur
        oReq.Next
    Loop
Gest_Erreur:
    MsgBox "fin" & Chr(13) & a
End Function