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.