Merhaba,

Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim rS As New ADODB.Recordset

Dim GSayi As Integer





rS.Open "T_MUSTERIFIYAT", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



    For GSayi = 1 To Me.lst_liste.ListCount - 1

    

        rS.AddNew

        rS!MusteriNo = Me.mno

        rS!UrunNo = Me.lst_liste.Column(0, GSayi)

        rS!SatisFiyati = Me.mtn_satisfiyati

    

    Next GSayi



rS.Update

rS.Close: Set rS = Nothing

MsgBox "Kayıt Tamamlandı"