Anda harus bertanya pada diri sendiri apakah Anda memerlukan solusi umum (lainnya dari Allen Browne ) atau jika Anda membutuhkannya hanya untuk tujuan saat ini. Jika Anda benar-benar hanya membutuhkannya sekali ini, lakukan dengan cara yang mudah.
Di samping catatan, saat menggabungkan daftar dalam kode VBA, manfaatkan trik yang diajarkan kepada saya oleh guru Access Trevor Best, dan itu untuk menempelkan pembatas di awal setiap nilai dan kemudian menggunakan Mid() untuk menghapusnya mati. Alih-alih ini di dalam loop Anda melalui catatan anak:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...gunakan ini di dalam loop:
strOutput = strOutput & ", " & NewValue
...dan kemudian saat Anda keluar dari loop, lepaskan pembatas utama:
strOutput = Mid(strOutput, 3)
Ini memiliki implikasi di semua tempat dan menyederhanakan kode untuk penggabungan di seluruh host konteks.