Discussion :

[stéphane_ais2]

Bonjour,

J'ai le code suivant :

Code :

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

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 :

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

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