您應該問自己是否需要通用解決方案（另一個是Allen Browne的解決方案），還是僅出于當前目的而需要。如果您真的只需要一次，那就簡單地做一次。

附帶說明一下，在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)

這對整個地方都有影響，并簡化了在整個上下文中串聯的代碼。

我發現Duane Hookum（Microsoft MVP）的這篇帖子聲稱能夠執行您想要的操作。我還沒有測試過。

順便說一句，如果您有興趣，這就是我的發現方式：

首先搜索：GROUP_CONCAT訪問使我這個職位與這個答案，但該鏈接已失效。

然后，我在答案試圖鏈接到的內容之后再次搜索，并找到了它：site：http：//www.rogersaccesslibrary.com/ concatenate。