Salut,

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.