Suite au code suivant que j'ai trouvé dans le FAQ "Concaténer plusieurs enregistrements dans une seule colonne":


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
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT EMAIL_RECETTEUR FROM TABLE_RECETTEUR 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
J'ai effectué l'action suivante avec Microsoft Access 2013 (je jongle sur deux ordinateurs donc un avec Access 2013 et l'autre avec Access 2007):

Dans le fenetre VB (ALT+F11) -->Outils-->Référence. Et là tu coche la bonne référence "Microsoft DAO 3.6 Object Library"
Mais j'ai le message d'erreur suivant:

Name conflits with existing module, project, or object library
En faisant une recherche sur le net, il est indiqué que Microsoft DAO est en conflit avec

Microsoft Access 15.0 Object library
Mais quand je veux le décocher, cela est impossible

Can't remove control or reference ; in use
Voici les references actuelles:
Nom : Reference.jpg Affichages : 368 Taille : 68,1 Ko

J'ai regarder ici comme préconisé par le modérateur Loufab:
http://warin.developpez.com/access/dao/
http://warin.developpez.com/tutoriel...et-ulterieurs/

Mais je n'ai pas trouvé ma réponse, ai je peut être mal lu?

J'ai une table TABLE_RECETTEUR qui posséde un email par ligne. J'aimerais pouvoir concaténer ses emails dans un champs:
exemple:

1 - d@free.fr
2 - c@free.fr
3 - e@free.fr
4 - f@free.fr
Résultat attendu:

d@free.fr;c@free.fr;e@free.fr;f@free.fr