Skip to main content

AccessTr.neT


2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi

2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi

#7
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.
Cevapla
#8
Çok teşekkür ederim ilginiz ve alakanız için.
eyupakdas, 29-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da