Discussion :

[jfphan]

Bonjour,
Voici mon code :

Code :

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

1
2
3
4
5
6
 
NoDem = rsListe("Num_demande_mtg")
	Do While rsListe("Num_demande_mtg") = NoDem 
	      ListeTransporteur = ListeTransporteur & "," & rsListe("TranspExclude")
	      rsListe.movenext
	loop

Le problème est que s'il n'y a plus d'enregistrement dans le recordset, j'ai une erreur du type

error '80020009'
Exception occurred.

J'ai essayé dans ma boucle While de mettre

Code :

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

Do While (rsListe("Num_demande_mtg") = NoDem And not rsListe.eof)

mais toujours la même erreur.

Help,

Merci

[Yoh]

Salut,

Tu accèdes d'abord à la valeur avant de tester si le recordset est vide. Il faut faire l'inverse.

Essai ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
NoDem = rsListe("Num_demande_mtg") 
 
Do While not rsListe.eof
    If rsListe("Num_demande_mtg") = NoDem then
             ListeTransporteur = ListeTransporteur & "," & rsListe("TranspExclude") 
 
    End If 
 
    rsListe.movenext 
Loop

[jfphan]

merci

[LineLe]

C'est normal :
A un moment il va essayer de tester rsListe("Num_demande_mtg") = NoDem alors qu'il aura deja atteint la fin du recordset.
il faut d'abord tester si tu est en rsListe.eof, et apres seulement tester la valeur.
je sais pas si cette solution la te convient mais je tente toujours :

Code :

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

1
2
3
4
5
6
7
8
 
NoDem = rsListe("Num_demande_mtg") 
   Do While not rsListe.eof
if rsListe("Num_demande_mtg") = NoDem then
         ListeTransporteur = ListeTransporteur & "," & rsListe("TranspExclude") 
end if
         rsListe.movenext 
   loop