Concaténer enregistrements dans plusieurs colonnes
Bonjour,
J'ai utilisé l'excellent tuto : http://access.developpez.com/sources/?page=Requete
pour concaténer plusieurs enregistrements sur une colonne
Est il possible d'adapter le module repris :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function |
Pour l'appliquer à plus d'un champs?
Par exemple à partir d'une table avec les champs suivants
id | champs1 | champs2
obtenir : id | champs1 concaténé | champs2 concaténé
Merci à toutes et tous