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

Dim GArac, GMusteri As String

Dim rc As DAO.Recordset





GArac = Nz(Me.Liste0.Column(0), 0)

GMusteri = Nz(Me.Liste4.Column(0), 0)



If GArac = 0 Then



MsgBox ("ARAÇ SEÇ")

Exit Sub

ElseIf GMusteri = 0 Then

MsgBox ("Musteri SEÇ")

Exit Sub



Else



Set rc = CurrentDb.OpenRecordset("sıfır_satılan_stok")

    

    

rc.AddNew

rc!arac_tipi = Me.Liste0.Column(6)

rc!arac_modeli = Me.Liste0.Column(7)

rc!otpa = Me.Liste0.Column(2)

rc!sasi_no = Me.Liste0.Column(3)

rc!motor_no = Me.Liste0.Column(4)

rc!aciklama = Me.Liste0.Column(5)

rc!musteri_id = Me.Liste4.Column(0)

       

    

rc.Update



End If

Bu, konu başlığındaki sorunuzun cevabıdır. Arama olayı için Form Üzerinden Veri Arama bağlantısındaki konuyu inceleyiniz.

Ayrıca Yapılmaması Gereken Ölümcül Hatalar konusunu da inceleyiniz. Satış adında form, araç tipleri adında da tablo olmaz.