[ACCESS] Concatener entièrement une colonne

Tu imagines probablement à tort que c'est très simple.

Montre-nous ce que tu as essayé, et ce que tu as obtenu, nous pourrons sans doute t'aider.

A tout hasard, tu peux t'inspirer de ceci: https://stackoverflow.com/questions/54328595/access-vba-concatenate-single-column-query-into-a-single-line-result

Ma réponse semble s'être volatilisée..

Merci, ton lien m'a lancé sur une piste !

En fait en voyant les différentes propositions sur ton lien je me suis souvenu d'un bout de code que j'avais utilisé pour autre chose. Je l'ai adapté et après un peu de temps et de nombreux échecs, j'ai réussi à faire marcher la bête.

ublic Function Concatenation() As String


Dim res As DAO.Recordset
Dim sql As String
'Selectionne la colonne Ma_colonne de la table Ma_Table
sql = "SELECT Ma_colonne FROM Ma_Table"
Set res = CurrentDb.OpenRecordset(sql)

'Concatene les différents enregistrement
While Not res.EOF
   Concatenation = Concatenation & res.Fields(0).Value & "|"
   res.MoveNext
Wend

'Enleve le dernier |
Concatenation = Left(Concatenation, Len(Concatenation) - 1)


'libere la mémoire
Set res = Nothing



End Function

Et derrière j'ai appelé la fonction dans ma requête.

Un détail: si la table est vide, la ligne 17 va se planter, je pense.

Effectivement, je viens de vider ma table pour tester et c'était bloquant. Merci pour la relecture ! :)