आपको अपने आप से पूछना चाहिए कि क्या आपको एक सामान्य समाधान की आवश्यकता है (एक अन्य एलन ब्राउन द्वारा है ) या यदि आपको इसकी आवश्यकता केवल वर्तमान उद्देश्य के लिए है। यदि आपको वास्तव में इसकी केवल एक बार आवश्यकता है, तो इसे आसान तरीके से करें।
एक तरफ ध्यान दें, जब वीबीए कोड में सूचियों को संयोजित करते हैं, तो लंबे समय तक एक्सेस गुरु ट्रेवर बेस्ट द्वारा मुझे सिखाई गई एक चाल का लाभ उठाएं, और यह है कि प्रत्येक मूल्य की शुरुआत में डिलीमीटर चिपकाएं और फिर इसे स्ट्रिप करने के लिए मिड() का उपयोग करें बंद। इसके बजाय अपने लूप के अंदर चाइल्ड रिकॉर्ड के माध्यम से:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...इसे लूप के अंदर उपयोग करें:
strOutput = strOutput & ", " & NewValue
...और फिर जब आप लूप से बाहर निकलते हैं, तो प्रमुख सीमांकक को हटा दें:
strOutput = Mid(strOutput, 3)
इसका हर जगह प्रभाव पड़ता है और संदर्भों की एक पूरी मेजबानी में संयोजन के लिए कोड को सरल करता है।