Discussion :

[snoopy69]

Bonjour à tous ...

Voila j'ai une petite question concernant les recordset.

J'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'On attribue la table dans laquelle le recordset doit aller rechercher ses informations.
Set rst_departement = base_donnee.OpenRecordset("TB_VBA")
 
'Requête qui va rechercher toutes les lignes qui ont le même département que l'ordinateur.
str_req_departement = ("SELECT * FROM TB_VBA WHERE fk_departement_vba LIKE '" & str_nom_departement_ordinateur & "'" & _
" OR fk_departement_vba = null ;")
 
 
'On ouvre le recordset avec la requête en paramètre
Set rst_departement = base_donnee.OpenRecordset(str_req_departement, dbOpenDynaset)
'
'On se place sur le premier enregistrement du recordset
rst_departement.MoveFirst
 
 
'Parcours de la table TB_VBA
While rst_departement.EOF = False
 
    str_ligne_departement = rst_departement("pk_vba")
 
    rst_departement.MoveNext
 
'Fin du parcours de la table TB_VBA
Wend
 
 
MsgBox str_ligne_departement

En fait ce que j'aimerais c'est que lorsque je veux afficher ma variable str_ligne_departement c'est qu'il y ait toutes mes pk qui s'affiche et pas seulement la dernière ... est-ce que c'est possible ???

Si oui est-ce que vous pourriez m'aiguiller un peu ???

Merci de votre aide ... à tout bientôt ...

[random]

mettre
MsgBox str_ligne_departement entre le while et le wend

[snoopy69]

Oki je vois ce que tu veux dire ... en fait lorsque mon code sera exécuté j'aurai un msgbox qui va s'ouvrir pour chaque enregistrement trouvé, pas de soucis là dessus mais moi ce que j'aimerais c'est qu'il y ait tous les enregistrements indiqués dans le même msgbox pour qu'il n'y en ait qu'un seul comme suit :

23
39
67
93
123

tu vois le truc ??? Est-ce que c'est possible ???

[keita]

Oui c'est possible;cependant si le nombre rst.recorcuount est tres grand, imagine ton msgbox.sinon:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim message as string
message =""
While rst_departement.EOF = False 
 
    str_ligne_departement = rst_departement("pk_vba") 
    message =message & vbcrlf & str_ligne_departement
    rst_departement.MoveNext 
 
'Fin du parcours de la table TB_VBA 
Wend 
 
 
MsgBox message

[snoopy69]

Merci de ton aide ...

Pour en revenir à ce que tu m'a dis, je n'aurai jamais plus que 10 lignes dans mon message box mis à part si ma boucle devient une boucle infinie ce qui n'est pas le cas ...

Cela marche parfaitement.

Merci encore ...

A tout bientôt ...

Byos ...