Discussion :

[sebac]

bonjour
voici mon problème: je récupère dans un premier recordset que voici :

Code :

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

Set rpt = db.OpenRecordset("select distinct [N° Divalto] from ExcelàAccessEME")

un certain nombre de valeur(toutes les déclaration sont bonne).
ensuite je me sert de ce recordset que je parcour en l'utilisant comme critère de sélection pour un autre recordset au travers d'une boucle que voici

Code :

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

1
2
3
4
5
While Not rpt.EOF
Set rst = db.OpenRecordset("select Etablissements.[N° établissement], Etablissements.[N° Divalto] from Etablissements where ([Etablissements].[N° Divalto])='" & rpt.Fields(0) & "'")
MsgBox "la commande N°" & rst.Fields(0)
rpt.MoveNext
Wend

malheureusement ça me génère l'erreur 3012 en me disant au moment du test dans la MSgbox que rst est vide.
Quand je sort le code de la boucle While/Wend je n'ai plus d'erreur et ma msgbox me donne bien l'élément se trouvant dans rst du coup ce qui me gêne, c'est que ma recherche n'a pas parcourue tout mon rpt.
si quelqu'un pourrait m'aider à comprendre pourquoi et comment remédier à cette erreur, ça ferai avancer mon projet surtout que j'ai absolument besoin de parcourir rpt.

Merci

[Demco]

Vérifie que rst ne soit pas vide avant de vouloir afficher un de ses enregistrements.

[random]

Code :

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

1
2
3
 
rpt.movefirst
While Not rpt.EOF

[sebac]

avant d'entrer dans ma boucle while j'ai bien fait :

Code :

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

1
2
rpt.movefirst
While Not rpt.EOF

mais ça ne marche pas et normalement mon rst ne peut être vide parceque quand je sort le code du while il ne l'ai plus

[Demco]

Alors pour suivre dans la lignée de Ramdom :

Code :

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

1
2
rst.MoveFirst
MsgBox "la commande N°" & rst.Fields(0)