Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum

Yardımcı olacak kimse yok mu??

Umarım bir çözümü vardır.

Aklıma şöyle bir çözüm geldi ama yapamadım,siz yardımcı olursanız sevinirim.
Çoklu seçim yaptığımız açılır kutuda örnek Ankra-Bursa işaretledik diyelim,bunu başka metin kutusuna Ankara,Bursa şeklinde arada virgül olacak şekilde yazdırabilirsek,bu metin kutusundan diğer tabloya tekli veriymiş gibi giriş mümkün olabilir mi??

Yardım ederseniz sevinirim.

İnceleyip olumlu/olumsuz bildirimde bulununuz.

Dim GSorgu, GSorgu2, GSorgu3 As String

Dim GVarMi, GSayi As Integer

Dim rs As DAO.Recordset, GSonSayi As Integer



GVarMi = Nz(DCount("[id]", "tbl_begendirmeler", "[id]=" & [id]), 0)





If GVarMi > 0 Then



    MsgBox (Me.id & " numaralı veri daha önce aktarılmış")

    

    Exit Sub



Else



    GSorgu = "INSERT INTO tbl_begendirmeler ( id, begenid, baslikid, alanlar, personel, ANACLAR, personel2, baslama, basla, yon, olc, ort ) " & _

    "VALUES ('" & Me.id & "','" & Me.begenid & "','" & Me.baslikid & "','" & Me.alanlar & "','" & Me.personel & "','" & Me.ANACLAR & "','" & Me.personel2 & "','" & Me.baslama & "','" & Me.basla & "','" & Me.yon & "','" & Me.olc & "', '" & Me.ort & "');"

    

    CurrentDb.Execute (GSorgu)

    

        If UBound(Me.mat.OldValue) > 0 Then

        

            

            GSorgu2 = "SELECT MAX(degerlendirid) FROM tbl_begendirmeler"

            Set rs = CurrentDb.OpenRecordset(GSorgu2)

            GSonSayi = rs.Fields(0)

            

            For GSayi = LBound(Me.mat.OldValue) To UBound(Me.mat.OldValue)

                GSorgu3 = "INSERT INTO tbl_begendirmeler ([mat].[Value]) VALUES ('" & Me.mat.OldValue(GSayi) & "') WHERE degerlendirid=" & GSonSayi

                CurrentDb.Execute (GSorgu3)

           Next GSayi

           

        End If

        

       MsgBox (seciciid & " Seçici Id numaralı veri aktarıldı.")

Çok teşekkür ederim istediğim tam buydu sorun  kalmadı.