Salut a tous,
voila j'essaie de faire une concaténation de champ de plusieurs colonnes sur une même ligne, voici mon code :
Ma requete est :
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 Option Compare Database Public Function Tache(NomDuProspectHA As String) As String Dim res As DAO.Recordset Dim SQL As String 'Selectionne les participant du projet SQL = "SELECT Tache FROM TACHENEXT2 WHERE NomDuProspectHA=" & NomDuProspectHA Set res = editialis.OpenRecordset(SQL) 'Concatene les différents enregistrement While Not res.EOF Tache = Tache & res.Fields(0).Value & " " res.MoveNext Wend 'Enleve le dernier espace Tache = Left(Tache, Len(Tache) - 1) 'libere la mémoire Set res = Nothing End Function
erreur de compilation et il surligne '.recordset'.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 SELECT DISTINCT TACHENEXT2.NomDuProspectHA, Tache(NomDuProspectHA) AS LesTaches FROM TACHENEXT2;
Comprends po !!!
Merci d'avance
Partager