[AC-2003] concatener plusieurs lignes

[josi1986]

Bonjour,
je souhaite, dans une requete existante, concaténer plusieurs champs dans un seul mais je n'y arrive pas, j'ai suivi le tutoriel mais sans succés.

exemple de ce que j'ai:

arret1................poteau
arret1................banc
arret2................banc
arret3................poteau
arret3................abri
arret3................banc

et je souhaite obtenir:

arret1.................poteau, banc
arret2.................banc
arret3.................poteau, abri, banc

merci d'avance pour vos reponses

[jpcheck]

salut,

en utilisant la fonction recherche dans la on trouve une solution toute faite

http://access.developpez.com/sources...QLLigneColonne

Toujours penser a la

[josi1986]

justement c'est le tuto que j'ai regardé mais j'arrive pas à l'adapter

[jpcheck]

A quelle etape rencontres tu des problemes ?

Si tu ne nous en dis pas plus, on va avoir bien du mal a te proposer des solutions

[josi1986]

Bon, j'ai une table qui sappelle: LienPointArretMobilier
avec 3 colonnes: ID_Lien ; ID_Mobilier ; Num_GIPA

je souhaite concaténer le mobilier en fonction des Num_GIPA

je n'ai jamais utilisé de module auparavant,
quand il me dit:"Pour que ce code fonctionne, vous devez ajouter une référence Microsoft DAO à votre projet." je fais comment pour l'ajouter?

ensuite dans le module j'ai tapé ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function RecupMobilier(Num As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les  mobiliers du point d'arrêt
'chr(34) correspond a des guillemets pour encadrer le texte
SQL = "SELECT ID_Mobilier FROM LienPointArretMobilier WHERE Num_GIPA=" & _
          Chr(34) & Num & Chr(34)
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrements
While Not res.EOF
RecupMobilier = RecupMobilier & res.Fields(0).Value & ";"
res.MoveNext
Wend
'Enleve le dernier ;
RecupMobilier = Left(RecupMobilier, Len(RecupMobilier) - 1)
'libere la mémoire
Set res = Nothing
End Function

et je ne trouve pas le bouton pour compiler le module
donc je saute cette étape et je saauvegarde mon module sous le nom RecupMobilier

ensuite je cré une requete R02:

Code :

1
2
SELECT DISTINCT LienPointArretMobilier.Num_GIPA, RecupMobilier(Num_GIPA) AS LeMobilier
FROM LienPointArretMobilier;

en sql direct

puis je clique sur la requete et j'ai la fenetre "selectionner la source de données" qui apparait et je sais pas quoi en faire, j'espere que c'est assez précis

[josi1986]

j'ai réussi à trouver commment inserer la réference microsoft DAO mais ça ne m'avance guère plus dans ma requête, est-ce que c'est une erreur dans mon code ou bien il reste encore à définir quelque chose?