Discussion :

[Sam 069]

Bonjour,
Je met en place cette boucle avec l opérateur For.
Mais un message d'erreur m'indique "Next sans for".
Le r fait refernce à un recordset.

Pouvez-vous me donner un coup de main.

Merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For i = 2 To 30
If ((r("POL_DATE").Value - r("REPORT_DATE").Value) - ((r("POL_DATE").Value - r("REPORT_DATE").Value) - (joursouvrables - 1))) = i Then
countlivraisonjuste = countlivraisonjuste + 1
Exit For
Else
Next i
End If

[soltani1]

Bonjour,

Le next i viens après le end if

For i = 2 To 30
If ((r("POL_DATE").Value - r("REPORT_DATE").Value) - ((r("POL_DATE").Value - r("REPORT_DATE").Value) - (joursouvrables - 1))) = i Then
countlivraisonjuste = countlivraisonjuste + 1
Exit For
End If
Next i

Tu doit parcourir le recordset?

A+

[lyxthe]

ouaip le next i viens après le end if. Regarde avec ce que toi tu proposais, si la condition était remplie, tu rentrais dans le if, et comme le next i était dans le else, tu n'incrémentais plus jamais i. Ce que le compilateur ne peut pas concevoir. C'est pour ça que le next i doit forcément etre effectué quelque soit ta condition. donc le plus simple tu le sors de ta condition et donc tu le mets apres le end if.