您应该问自己是否需要通用解决方案（另一个是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)

这对整个地方都有影响，并简化了在整个上下文中串联的代码。