Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim trz As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("[COLOR=red]Aktarılacak_Tablonun_Adı[/COLOR]", dbOpenDynaset)
For Each trz In Me.[COLOR=red]Listenin_Adı[/COLOR].ItemsSelected
If rs.RecordCount > 0 Then
rs.MoveLast
End If
With rs
.AddNew
![COLOR=darkgreen]AlanAdı1[/COLOR] = Me!Liste0.Column(0, trz)
![COLOR=navy]AlanAdı2[/COLOR] = Me!Liste0.Column(1, trz)
![COLOR=purple]AlanAdı3[/COLOR] = Me.Liste0.Column(2, trz)
.Update
End With
Next trz
Set db = Nothing
Set rs = Nothing
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.