Měli byste si položit otázku, zda potřebujete obecné řešení (další je od Allena Browna ) nebo pokud jej potřebujete pouze pro současný účel. Pokud to opravdu potřebujete jen jednou, udělejte to snadným způsobem.
Na okraj, při zřetězení seznamů v kódu VBA využijte trik, který mě naučil dlouholetý guru Access Trevor Best, a to nalepit oddělovač na začátek každé hodnoty a poté použít Mid() k jejímu odstranění. vypnuto. Místo toho uvnitř vaší smyčky přes podřízené záznamy:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...použijte toto uvnitř smyčky:
strOutput = strOutput & ", " & NewValue
...a poté, když opustíte smyčku, odstraňte úvodní oddělovač:
strOutput = Mid(strOutput, 3)
To má důsledky všude a zjednodušuje to kód pro zřetězení v celé řadě kontextů.