Salut,
Voici mon code :
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 ???
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
Merci.
Partager