selam
liste kutusundaki verileri ado yada dao ile tabloya aktarma nasıl yapılır
örnekte aktar butonunna basıldığında
liste kutusundaki verilerin tümünü seçip ana tabloya aktarmasını istiyorum

not : liste kutus kayıt kaynağı ara tabo adında tabloya bağlı
sorgu kullanmadan tamamen vb kodları ile olması gerekli
saygılarımla

Private Sub aktar_Click()

    Dim rs As New ADODB.Recordset

    rs.Open "anatoblo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

    Dim i As Integer

    For i = 1 To Me.Liste1.ListCount - 1

        rs.AddNew

            rs("id") = Me.Liste1.Column(0, i)

            rs("Adi") = Me.Liste1.Column(1, i)

            rs("Soyadi") = Me.Liste1.Column(2, i)

            rs("Adres") = Me.Liste1.Column(3, i)

            rs("Tel") = Me.Liste1.Column(4, i)

        rs.Update

    Next

    

    rs.Close

    MsgBox "Kayıtlar AnaTablo'ya Aktarılmıştır."



End Sub

çok teşekkürler
bir sorum daha olacak
ado ile silme yapıyorum fakat tek kayıdı silmekte aynı id si olan kayıtların tümünü bu kod ile nasıl sildirebilirim

Dim rs As New ADODB.Recordset
rs.Open "anatablo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & id
rs.Delete
rs.Close
Liste1.Requery

saygılarımla

Bu konu size daha fazla yardımcı olabilir.
Tamamen ADO ile hazılanan Apartman / Site Takip programı

teşekkürler konu çözülmüştür

Sayın Seruz;
Hepsini değilde seçtiklerimizi nasıl aktarbiliriz?