3 回答

TA貢獻(xiàn)1816條經(jīng)驗(yàn) 獲得超6個(gè)贊
您應(yīng)該問自己是否需要通用解決方案(另一個(gè)是Allen Browne的解決方案),還是僅出于當(dāng)前目的而需要。如果您真的只需要一次,那就簡單地做一次。
附帶說明一下,在VBA代碼中連接列表時(shí),請利用長期的Access專家Trevor Best教給我的技巧,那就是將分隔符粘貼在每個(gè)值的開頭,然后使用Mid()剝離它關(guān)。而不是在子記錄中循環(huán):
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...在循環(huán)中使用它:
strOutput = strOutput & ", " & NewValue
...然后退出循環(huán)時(shí),請刪除前導(dǎo)定界符:
strOutput = Mid(strOutput, 3)
這對整個(gè)地方都有影響,并簡化了在整個(gè)上下文中串聯(lián)的代碼。

TA貢獻(xiàn)1998條經(jīng)驗(yàn) 獲得超6個(gè)贊
我發(fā)現(xiàn)Duane Hookum(Microsoft MVP)的這篇帖子聲稱能夠執(zhí)行您想要的操作。我還沒有測試過。
順便說一句,如果您有興趣,這就是我的發(fā)現(xiàn)方式:
首先搜索:GROUP_CONCAT訪問使我這個(gè)職位與這個(gè)答案,但該鏈接已失效。
然后,我在答案試圖鏈接到的內(nèi)容之后再次搜索,并找到了它:site:http://www.rogersaccesslibrary.com/ concatenate。
添加回答
舉報(bào)