Discussion :

[vdbadr]

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 !

[vdbadr]

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 )

Code :

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

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

[SfJ5Rpw8]

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

[vdbadr]

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

[SfJ5Rpw8]

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

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
 
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 :

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

1
2
3
4
5
 
..
If DCount("*", "Contacts") > 0 Then
Set Rst = db.OpenRecordset("contacts")
..

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

[vdbadr]

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 !

[SfJ5Rpw8]

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 :

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

1
2
3
"SELECT Contacts.FirstName
FROM Contacts;
"

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

[vdbadr]

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