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

[vodiem]

Désolé mais j'ai repris ton code et chez moi ca marche... tous les états sont bien envoyés a l'impression.

j'ai remplacer par des noms différents mais c'est le meme code...
donc tu dois avoir un problème sur ton état: il doit etre limité.

regarde du cote de la source et du filtre de l'état
dans tous les cas tu ne devrais pas avoir qu'une seul impression (ni qu'une seul boite de message).

[mout1234]

Bonjour,

et je ne parviens à imprimer que le premier enregistrement du Recordset...

Quel comportement obtiens-tu?

[stéphane_ais2]

Merci pour vos réponses...

Vodiem, je ne suis pas surpris par ta réponse puisque même si je ne l'ai pas précisé dans mon message initial, ce code (le deuxième) a fonctionné mais ne fonctionne plus...sans que les propriétés de l'état n'aient été modifiées...

Mout1234, lorsque je place un point d'arrêt dans le code, le code s'arrête après l'impression du premier enregistrement du recordset sans lever aucune erreur...

SE

[mout1234]

En pas à pas, avant et aprés l'execution du report, regardes que vaut rst.EOF, rst.recordCount....

[stéphane_ais2]

En pas à pas, avant et aprés l'execution du report, regardes que vaut rst.EOF, rst.recordCount....

J'ai déjà testé et c'est bon : EOF renvoie False et Recordcount renvoie la valeur correspondant au nombre d'enregistrements de manière cohérente...

Je vais maintenant regarder du côté de l'état...merci pour votre aide

SE

[stéphane_ais2]

Il y avait bien un événement sur Report_Close qui plaçait la propriété 'Visible' d'un formulaire à True alors que la procédure de boucle qui posait problème était initiée d'un autre frm...j'ai ajusté en ajoutant un contrôle d'ouverture et à priori la boucle fonctionne...

Je suis désolé de la perte de temps occasionnée mais aucune erreur n'étant renvoyée, j'ai omis de vérifier sur l'état...
Merci pour votre aide qui m'a permis de ne pas rester 'collé' au code de la boucle...(sic)

SE