Listboxtan veri göndermek..

[xrolexx]

Merhaba arkadaslar,

Accesste bir form icindeki listbox'tan sectigim verileri (Listbox MULTISELECT iken) yine accesste bulunan bir tabloya nasil kaydedebilirim..

Tesekkürler..

 

[Taruz]

Merhaba..

Bunun birkaç yolu var.. Birini önereyim size..:

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

 

[xrolexx]

Tesekkürler..