eğer metin alanları sıralı ise belki tag özelliği işinize yarayabilir
önce değerlerin olduğu metin kutularını seçip im/tag="ekle" yada istediğiniz bir şey yapın
aşağıdaki koda benzer bir şeyler deneyebilirsiniz
formdaki tum nesneleri kontrol edip im/tag="ekle" olanları txtstring ekler


Dim kutu As Control

dim txtdeger as string

txtdeger=""
For Each kutu In Me
   If kutu.Tag = "ekle" Then txtdeger= iif(isnull(txtdeger);kutu;"," & kutu)  
Next

DoCmd.RunSQL "INSERT INTO tablo2 (Daire,Mahalle,....) VALUES ('" & txtstring & "')"