+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi (/konu-2-liste-kutusundaki-verilerin-tek-tabloya-eklenmesi.html)
Sayfalar:
1
2
Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - ozanakkaya - 18/11/2019
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 TrueBu ş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.
Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - eyupakdas - 18/11/2019
Çok teşekkür ederim ilginiz ve alakanız için.