[VBA-Access] un champs d'une requete en un string

Salut tout le monde,
j'ai un petit probleme :
je voudrai avoir un code qui rassemble en un string le contenu de tout un champs d'une requete
(en gros avoir un string qui liste tous les enregistrements mais je ne sais pas comme faire et l'aide d'access n'a pas ete installee sur mon pc...)
merci d'avance et bonne fin de journée !

J'ai essayé plusieurs choses et je pense que ca doit ressembler a quelque chose comme ... (mais ce code ne fonctionne pas : trop peu de parametre attendu : 1 au niveau du openrecordset mais je ne sais pas si c'est correcte et ce que je dois mettre :cry:)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Rst As Recordset Dim db As Database Dim rep As String rep = "" Set db = CurrentDb If DCount("*", "rqt_training") > 0 Then Set Rst = db.OpenRecordset("rqt_training") While Not Rst.EOF rep = rep & " " & Rst![Tbl_Training_Sport] Rst.MoveNext Wend End If

---

c'est quoi ... : rqt_training ..?

desolé pour le copié collé bete
rqt_training est une requete
tbl_training_sport est un champs de cette requete

j'ai essayé ton code ... (sur table d'exemple contacts..) avec une requête...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test()     Dim Rst As Recordset Dim db As Database Dim rep As String rep = "" Set db = CurrentDb If DCount("*", "Query1") > 0 Then Set Rst = db.OpenRecordset("Query1") While Not Rst.EOF rep = rep & " " & Rst![FirstName] Rst.MoveNext Wend End If Debug.Print rep End Sub

---

où en remplaçant la requête Query1 (= select * Contacts) .. par la table contacts... les deux fonctionnent...

Code:

---

1 2 3 4 5

.. If DCount("*", "Contacts") > 0 Then Set Rst = db.OpenRecordset("contacts") ..

---

peu-être un probléme dans ta requête...

Ma requete fonctionne (je l'exploite dans d'autres parties de ma base) mais je n'avais pas pensé a inséré le sql ... je m'y affaire de ce pas
merci beaucoup !

non je n'ai pas utilisé à proprement parlé de SQL.. en fait avec ma "requête" sql j'ai juste voulu te décrire la Query1 utilisée... dont en fait l'équivalent SQL donné par access et :

Code:

---

1 2 3

"SELECT Contacts.FirstName FROM Contacts; "

---

peu tu nous montrer l'equivalent SQL de ta requête... ?

j'ai quand meme essayé le sql et ca marche... (du moins un sql simple car le sql généré par bqe ne fonctionne pas)
c'est bien un probleme de requete : la requete (générée par bqe) fonctionne seule mais lorsque je l'appele ou je l'integre dans mon code ca plante (j'ai oublié mais ca m'est deja arrivé ... je pense que c'est d'avoir un critère de date dans la requete)
Merci beaucoup Bbil