Skip to main content

AccessTr.neT


Listeden Seçilenleri Alt Forma Ekleme

Listeden Seçilenleri Alt Forma Ekleme

Çözüldü #1
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.
.rar Etiket.rar (Dosya Boyutu: 89,75 KB | İndirme Sayısı: 4)
Cevapla
#2
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?
Cevapla
#3
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.
Son Düzenleme: 29/07/2019, 15:21, Düzenleyen: irfans.
Cevapla
#4
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
Cevapla
#5
teşekkürler tam istediğim olmuş
Cevapla
#6
ÖD
iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da