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 :
Pour l'appliquer à plus d'un champs?
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 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
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
Partager