一般的な解決策が必要かどうかを自問する必要があります(もう1つはAllenBrowneによるものです )または、現在の目的のためだけに必要な場合。本当にこれが1回だけ必要な場合は、簡単な方法で行ってください。
ちなみに、VBAコードでリストを連結するときは、長年のAccessの第一人者であるTrevor Bestから教えられたトリックを利用してください。これは、すべての値の先頭に区切り文字を付けてから、Mid()を使用して削除することです。オフ。子レコードのループ内でこれを行う代わりに:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...ループ内でこれを使用します:
strOutput = strOutput & ", " & NewValue
...次に、ループを終了するときに、先頭の区切り文字を削除します。
strOutput = Mid(strOutput, 3)
これはあらゆる場所に影響を及ぼし、多くのコンテキストで連結するためのコードを簡素化します。