Vous devriez vous demander si vous avez besoin d'une solution générique (une autre est d'Allen Browne ) ou si vous en avez besoin uniquement pour l'objectif actuel. Si vous n'en avez vraiment besoin qu'une seule fois, faites-le simplement.
En passant, lors de la concaténation de listes dans le code VBA, profitez d'une astuce que m'a enseignée Trevor Best, le gourou d'Access de longue date, et c'est de coller le délimiteur au début de chaque valeur, puis d'utiliser Mid() pour le supprimer. désactivé. Au lieu de cela dans votre boucle à travers les enregistrements enfants :
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...utilisez ceci dans la boucle :
strOutput = strOutput & ", " & NewValue
... puis lorsque vous quittez la boucle, supprimez le délimiteur de début :
strOutput = Mid(strOutput, 3)
Cela a des implications partout et simplifie le code pour la concaténation dans une multitude de contextes.
