[FORM] raporda formdaki liste kutusundaki veriyi gösterme
#1
merhaba arkadaşlar,

form açık iken rapor (etiket) yazdırıyorum.

rapordaki etiket de eklemek istediğim özellik şu.
Formda liste1 deki ParKg var. burada alt alta birden fazla veri olabiliyor.
raporu (etiket3)ü etkinleştirdiğimde formdaki liste1 deki parKg daki verileri alması gerekiyor.
yardımcı olabilirmisiniz.

iyi çalışmalar


Eklenti Dosyaları
.rar   etiket.rar (Boyut: 120,25 KB / İndirilme: 51)
.png   etiketjpeg2.png (Boyut: 168,86 KB / İndirilme: 52)



  Alıntı
Bu mesajı beğenenler:
#2
sn husem;
Raporun Kağıt Kaynağını;
Aşağıdaki Sql Cümlesi İle değiştir.. ve
Parti Kg alanın denetim kaynağını da;
PAR_KG şeklinde değiştirin

SQL
  1. SELECT HATA_LISTESI_TOP_KG.PARTI_NO, HATA_LISTESI_TOP_KG.IRS_KODU, HATA_LISTESI_TOP_KG.EBAT,
  2. SUM(HATA_LISTESI_TOP_KG.TOP_KG) AS ToplaTOP_KG, MAX(HATA_LISTESI_TOP_KG.TOPNO) AS EnÇokTOPNO, PARTILENENLER.PAR_KG FROM
  3. HATA_LISTESI_TOP_KG INNER JOIN PARTILENENLER ON HATA_LISTESI_TOP_KG.IRS_KODU = PARTILENENLER.IRS_KODU GROUP BY
  4. HATA_LISTESI_TOP_KG.PARTI_NO, HATA_LISTESI_TOP_KG.IRS_KODU, HATA_LISTESI_TOP_KG.EBAT,
  5. PARTILENENLER.PAR_KG HAVING (((HATA_LISTESI_TOP_KG.PARTI_NO)=[Formlar]![HATA_KAYIT_GIRIS]![PARTINO]));




imza; jon206
www.access-sql.com



  Alıntı
Bu mesajı beğenenler:
#3
sn jon206
teşekkür ederim
iyi çalışmalar.



  Alıntı
Bu mesajı beğenenler:
#4
Sn jon206 yonteminden farkli olarak acik olan formda ki liste1 kutusu verilerinden rapora veri cekme islemi oldugu icin ekleme yaptim.

Bir Module
Visual Basic
  1. Public Function SordaGel(prtN, Irs As String)
  2. Dim Kyt As Control, Sw As Long
  3. Set Kyt = Forms("HATA_KAYIT_GIRIS").Controls("Liste1")
  4. For Sw = 1 To Kyt.ListCount - 1
  5. If CLng(Kyt.Column(1, Sw)) = CLng(prtN) And CLng(Kyt.Column(2, Sw)) = CLng(Irs) Then SordaGel = CLng(Kyt.Column(8, Sw)): Exit For
  6. Next Sw
  7. End Function


Prosedurunu yazin.
Raporun SQL'ine
SELECT HATA_LISTESI_TOP_KG.PARTI_NO, HATA_LISTESI_TOP_KG.IRS_KODU, HATA_LISTESI_TOP_KG.EBAT, Sum(HATA_LISTESI_TOP_KG.TOP_KG) AS ToplaTOP_KG, Max(HATA_LISTESI_TOP_KG.TOPNO) AS EnÇokTOPNO, SordaGel(CVar([PARTI_NO]),CVar([IRS_KODU])) AS PrtKgrm
FROM HATA_LISTESI_TOP_KG
GROUP BY HATA_LISTESI_TOP_KG.PARTI_NO, HATA_LISTESI_TOP_KG.IRS_KODU, HATA_LISTESI_TOP_KG.EBAT, SordaGel(CVar([PARTI_NO]),CVar([IRS_KODU]))
HAVING (((HATA_LISTESI_TOP_KG.PARTI_NO)=[forms]![HATA_KAYIT_GIRIS]![PARTINO]))
koyu yazilan yer eklendiginde sonuc alinabilir.



  Alıntı
Bu mesajı beğenenler:
#5
sn dsezgin, çok teşekkür ederim.
sizin yönteminizi de denedim, çalışıyor. süper.
yardımınız için çok teşekkür ederim.
iyi çalışmalar.




  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Raporda Resimleri Gösterme ahmet114 53 930 05-04-2024, 00:43
Son Mesaj: dsezgin
  Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme Pasham 24 268 04-04-2024, 01:18
Son Mesaj: halily
  Raporda Tek Sayfada 2 Kayıt Gösterme adnnfrm 5 129 28-01-2024, 01:25
Son Mesaj: adnnfrm
  [FORM] Metin Kutusundaki Değere Göre Altforma Kayıt Eklensin Yada Eklenmesin ŞabanTR 4 166 17-12-2023, 17:40
Son Mesaj: ŞabanTR
  Birden Fazla Alandaki Veriyi Sorguda Alt Alta Birleştirme adnnfrm 3 168 18-11-2023, 19:54
Son Mesaj: dsezgin
  [SORGU] Textbox'taki Veriyi Dinamik Sorgulama NLas7 2 129 06-09-2023, 08:44
Son Mesaj: NLas7
access-sql-9 Text Kutusundaki Rakamı Alt Formda Bulan Hesap Sutunun Tüm Satırlarına Nasıl Eklenir bilservisci 7 260 29-08-2023, 22:19
Son Mesaj: bilservisci
  [FORM] Liste Kutusundaki Veriye Göre Stok Ve Ihtiyaç Verisini Otomatik Hesaplama husem 2 225 08-06-2023, 19:03
Son Mesaj: husem

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi