[VBA]Boucle While/Wend interrompue
Bonjour,
J'ai le code suivant :
Code:
1
2
3
4
5
6
7
8
|
Set db = CurrentDb()
Set rst = db.OpenRecordset("rqtSceGroupScol", dbOpenDynaset)
rst.MoveFirst
While Not rst.EOF
MsgBox rst("num_eleve")
rst.MoveNext
Wend |
qui fonctionne...tous les numéros s'affichent jusqu'à la fin du recordset.
Je veux ajouter une instruction (en rouge) comme ceci :
Code:
1
2
3
4
5
6
7
8
9
10
|
Set db = CurrentDb()
Set rst = db.OpenRecordset("rqtSceGroupScol", dbOpenDynaset)
rst.MoveFirst
While Not rst.EOF
MsgBox rst("num_eleve")
DoCmd.OpenReport "RepDossiers", acViewNormal, , "[num_eleve] = " & rst("num_eleve")
rst.MoveNext
Wend |
et je ne parviens à imprimer que le premier enregistrement du Recordset...
Je souhaiterais comprendre pourquoi.
Merci pour votre aide
SE
