AccessTr.neT
2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - Baskı Önizleme

+- 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


2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - eyupakdas - 17/11/2019

Arkadaşlar Merhaba

ekteki programda satış formunun altında iki tane liste kutusu var birisi stoktaki araçlar diğerinde müşteri var. Satış yap butonuna bastığımda iki listedeki verileri sıfır_satılan_stok altına kaydedilmesinin istiyorum.
yardımcı olursanız sevinirim.


Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - ozanakkaya - 17/11/2019

Merhaba, müşteri bilgilerinin bulunduğu liste kutusunda 2 müşteri var ise her ikisi de ayrı ayrı mı kaydedilecek, yoksa her iki liste kutusunda da seçim yapılan satırlar mı aktarılacak?


Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - eyupakdas - 17/11/2019

merhaba

örneğin stokta 19 araç var. müşteri sayısıda 27 olsun. stoktaki araçlardan 9. cu müşteridende 6. yı seçtiğimde yaptığım seçimleri sıfır_satılan_stok tablosuna yazdırmak istiyorum. bide iki liste kutusuna da arama kutusu eklememiz lazım.
anlayışın için şimdiden teşekkür ederim.


Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - ozanakkaya - 17/11/2019

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 HatalarURL'ye Git konusunu da inceleyiniz. Satış adında form, araç tipleri adında da tablo olmaz.


Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - eyupakdas - 18/11/2019

Yardımın için çok teşekkür ederim


Cvp: 2 Liste Kutusundaki Verilerin Tek Tabloya Eklenmesi - eyupakdas - 18/11/2019

Sayın ozanakkaya

Bu komutla aynı zamanda sıfır_satılan_stok a gönderdiğimiz araç bilgilerini sıfır_stok tablosundan silmek için ne yapmam lazım.
Anlayışın ve yardımların için şimdiden teşekkür ederim.