2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi

Merhaba, Liste0'ın satır kaynağındaki sorguya, sıfır_stok tablosundaki stok_id alanını ekle. Bu alan sorguda 9. sütun olacak.

Liste0'ın sütun sayısını 9, sütun genişliklerini 2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;0cm şeklinde belirle, 

Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Dim GArac, GMusteri As String

Dim GAracId As Integer

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



GAracId = Nz(Me.Liste0.Column(8), 0)



DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE stok_id FROM sıfır_stok WHERE stok_id = " & GAracId

DoCmd.SetWarnings True

Bu şekilde silme işlemi yaptırdığında liste0'daki veri de silinir. Çünkü liste0'ın satır kaynağındaki sorguda sıfır_stok tablosu var.

Çok teşekkür ederim ilginiz ve alakanız için.