Merhaba arkadaşlar bir etiket tablom var form1 de istediğim raporları oluşturdum fakat oluşturduğum özet listedeki verileri başka bir alt forma gönderemiyorum kafam durdu onlarca örnek inceledim ama kafamı bir türlü veremiyorum. sabahtan beri uğraşıyorum yardımlarınız için şimdiden teşekkür ederim.
irfan bey liste kutusundaki değerleri doğrudan tabloya ekleyemeyiz ama değerleri "dlookup" ile ait oldukları tablolardan çekebiliyoruz.
listedeki sütunların değerleri hangi tablodan hangi alana denk geliyor
dileyelim ki
BAHADDİN YILMAZ - BHA ÜTÜ PAKET
37701 seçtik
liste kutusundan da seçimimizi yaptık ve aşağıdaki değerler geldi
37701, ADL WORKING CHİC TEMA KARTI SİYAH, Siyah, 924, AD bu değerleri doğrudan tabloya ekleyemiyoruz çünkü tablo bu değerlere değil bunların karşılığı olan sayısal bir alana eşit
o değerleri "dlookup" ile alabiliriz ama hangi tablonun hangi alanına denk onu bilmiyorum
listedeki değerlerin kimliklerini
Dlookup ile yazabilir misiniz?
37701 T_ARTIKELLER tablosundan ,adl workıng chıc tena kartı T_MALZEMELER Tablosunda, siyah T_RENK, sayısal karşılıkları buralarda aslında liste olmak zorunda değil sorgu yapıp tek tek de aktarılsa da olur. sayısal değerler olsa da olabilir sanırım sorgu ile görünmesi gerekene getiririz. ilginize teşekkür ederim. Benim amacım çıkan malları irsaliyeye yazdırmak ve fiili sarfiyatı artikel bazında meydana çıkarmak.
boş alan kontrolü yaptırmadığım için sorun çıkarabilir ama tüm alanlar doluysa sorunsuz çalışıyor.
not: giren ve çıkan alanları tamsayı olarak tanımlamışsınız o nedenle ben de sonucu tamsayıya çevirttim -clng() fonksiyonuyla-
Dim Secim As Variant
Dim SqlEkle, txtSecim As String
For Each Secim In Me.Liste.ItemsSelected
txtSecim = Me.Metin1 & ", " & _
Me.Metin4 & ", " & _
Me.Metin3 & ", cdate(" & _
CLng(Me.Metin2) & "), " & _
Dlookup ("kimlik", "T_ARTIKELLER", "KOD='" & Liste.Column(0, Secim) & "'") & "," & _
Dlookup ("kimlik", "T_MALZEMELER", "ACIKLAMA='" & Liste.Column(1, Secim) & "'") & "," & _
Dlookup ("kimlik", "T_RENK", "ACIKLAMA='" & Liste.Column(2, Secim) & "'") & ", " & _
CLng(Liste.Column(3, Secim)) & ", '" & _
Liste.Column(4, Secim) & "'"
SqlEkle = " insert into T_VERI ( ISLEM, FIRMA, BELGE, TARIH, ARTIKEL, MALZEME, RENK, CIKAN, [NOT] ) values (" & txtSecim & ")"
CurrentDb.Execute SqlEkle
Next Secim
Me.T_VERI_1.Requery
"seçilenleri aktar" butonunun kodu
teşekkürler tam istediğim olmuş