Discussion :

[Michel Hubert]

En fait je veux récupérer les valeurs d'une requête (requête qui ne comporte qu'une seule colonne) pour pouvoir les inclure dans un message d'erreur.

J'ai pensé utilisé un recordset pour contenir le résultat de ma requête, mais récupérer chaque ligne et la concaténer dans une variable de type String.

Voila ce que j'ai pour l'instant:

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
 
Dim tmp As DAO.Recordset
Dim s As String
Dim qdf As DAO.QueryDef
 
Set qdf = CurrentDb.QueryDefs("nomRequête")
Set tmp = qdf.OpenRecordset
Set qdf = Nothing
 
If DCount("*", "nomRequête") > 0 Then
 
    If Not tmp.EOF Then
        While Not tmp.EOF
            '... Construction du message s par concaténation ...
            tmp.MoveNext
        Wend
 
    End If
    MsgBox s
 
End If

Si vous pouviez m'éclairer sur la façon de faire, ce serait sympa.

[ActionAccess]

Bonjour,

Par exemple, on peux procéder ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Génération du message avec une liste
Dim rsMsg As DAO.Recordset
Dim strMsg As String
Set rsMsg = CurrentDb.OpenRecordset("Liste", dbOpenDynaset)
 
rsMsg.MoveFirst
strMsg = "Rapport : " 'titre introductif pour le message.
Do
strMsg = strMsg & vbCrLf & CStr(rsMsg!Num)
rsMsg.MoveNext
Loop Until rsMsg.EOF = True
rsMsg.Close

Ici, Liste est une table avec une seule colonne Num.
Les Num apparaissent les uns en dessous des autres grâce à vbCrLf.

A mon sens, par rapport à ton code, pas besoin de définir un objet QueryDef (le recordset suffit).

Bon courage

[Michel Hubert]

Cool ça marche! Merci beaucoup!

Et maintenat, comment je fais si j'ai plusieurs colonnes avec ma requête?

[ActionAccess]

S'il y a plusieurs colonnes, tu peux mettre, par exemple :

Code :

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

1
2
 
strMsg = strMsg & vbCrLf & CStr(rsMsg!Num) & vbTab & CStr(rsMsg!Colonne2) & vbTab & CStr(rsMsg!Colonne3)

Bon courage