A.S.C Filtre, Grafik ve Raporlama Eklentisi

Access VB ile sorgu oluşturma ve raporlama
#1
Merhaba arkadaşlar ekteki dosyada bulunan formdan 2 kritere göre sorgu oluşturup raporlama yapmak istiyorum ama bir yerde ya eksik yazı yada fazla bir şey yapıyorum anlayamadım. Bana yardımcı olursanız sevinirim


Eklenti Dosyaları
.rar   DEPO-YENİ.rar (Boyut: 677,69 KB / İndirilme: 24)



  Alıntı
Bu mesajı beğenenler:
#2
öncelikle raporla butonunun kodunu aşağıdaki kod ile
Kod:
Dim txtSQL, txtKumas, txtRenk, txtOlcut As String
Dim ctl As Control
Dim varItm As Variant

Set ctl = Me.Liste
For Each varItm In ctl.ItemsSelected
    If ctl.Column(1, varItm) <> "<TÜMÜ>" Then txtKumas = txtKumas & ",'" & ctl.Column(1, varItm) & "'"
Next varItm

Set ctl = Me.Listerenk
For Each varItm In ctl.ItemsSelected
   If ctl.Column(1, varItm) <> "<TÜMÜ>" Then txtRenk = txtRenk & ",'" & ctl.Column(1, varItm) & "'"
Next varItm

txtSQL = " select * from sorgu1 "
txtKumas = IIf(Len(txtKumas) > 0, "and [UNVANI] in (" & Mid(txtKumas, 2) & ")", "")
txtRenk = IIf(Len(txtRenk) > 0, "and [ISCILIK] in (" & Mid(txtRenk, 2) & ")", "")

txtSon = Mid(txtKumas & txtRenk , 4)

If Len(txtSon) > 0 Then txtSQL = txtSQL & " where " & txtSon

DoCmd.OpenReport "Gidecek Kumaşlar", acPreview, , , , txtSQL
   
Exit_komut15_Click:
   Exit Sub
   
Err_komut15_Click:

  If Err.Number = 5 Then
       MsgBox "Listeden Kumaş Seçmelisiniz", , "Eksik İşlem !"
       Resume Exit_komut15_Click
   Else

       MsgBox Err.Description
       Resume Exit_komut15_Click
   End If
değiştirip  sonrada rapora aşağıdaki kodu ekleyip -rapor açılırken gerekli süzme kriterlerini formdan alabilmesi için-

Kod:
Private Sub Report_Open(Cancel As Integer)
If Me.OpenArgs <> vbNullString Then Me.RecordSource = Me.OpenArgs
End Sub
dener misiniz?
bende sorunsuz çalıştı
dilerim işinize yarar



  Alıntı
Bu mesajı beğenenler:
#3
bence "liste"nin kayıt kaynağını değiştirip sadece "sorgu1" de yer alan kumaşları göstersin doğrudan kumaşlar tablosundan seçince sorguda olamayan kumaş türleri bile "liste" kutusunda yer alıyor ama boş rapor dönüyor



  Alıntı
Bu mesajı beğenenler:
#4
Dosyama entegre ettim 
1. istediğim raporda düzgün çalışıyor farklı bir forma entegre ettiğimde hatalar oluyor)
üç listeden oluşan bir form fazla bir liste eklemiştim ondan kaynaklanıyor sandım ama ondan değil tek listeyi seçince sıkıntı yok. Parametre çoğalınca (Farklı Listeleden Seçim yapınca) hata veriyor
Runtime eror 3075 hatası veriyor eksik işleç diyor
sorgu dizimi içindeki sözdizimi hatası

İki listeden seçince de hata veriyor tek listenin her hangi birini seçince hata yok rapor düzgün
Sadece Firma seçince veya sadece işçilik seçince veya sadece sezon seçince rapor çalışıyor 
Uyguladığım kod aşağıdadır. 
Hatamı söyleyebilir misiniz?

Dosyanın ilgili kısmını gönderiyorum


Eklenti Dosyaları
.rar   DEPO-YENİ.rar (Boyut: 652,13 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#5
kodu değiştirip  daha esnek yapmaya çalıştım
Kod:
txtSQL = " select * from Fasondakiler " '<==Bu satırdan öncesi aynı dokunmadım
txtKumas = IIf(Len(txtKumas) > 0, "and [UNVANI] in (" & Mid(txtKumas, 2) & ")", "") '<== değişti
txtRenk = IIf(Len(txtRenk) > 0, "and [ISCILIK] in (" & Mid(txtRenk, 2) & ")", "")'<== değişti
txtsezon = IIf(Len(txtsezon) > 0, "and [Alan1] in (" & Mid(txtsezon, 2) & ")", "")'<== değişti

txtSon = Mid(txtKumas & txtRenk & txtsezon, 4)'<== eklendi
If Len(txtSon) > 0 Then txtSQL = txtSQL & " where " & txtSon'<== eklendi

DoCmd.OpenReport "Fasondaki Mallar", acPreview, , , , txtSQL '<==Bu satırdan Sonrası aynı dokunmadım



  Alıntı
Bu mesajı beğenenler:
#6
(18-07-2019, 10:17)irfans demiş ki: Merhaba arkadaşlar ekteki dosyada bulunan formdan 2 kritere göre sorgu oluşturup raporlama yapmak istiyorum ama bir yerde ya eksik yazı yada fazla bir şey yapıyorum anlayamadım. Bana yardımcı olursanız sevinirim


.rar   DEPO-YENİ.rar (Boyut: 674,34 KB / İndirilme: 12) ilk mesaj cevabi, iki kosula gore, rapor sorgusunun olusturulmasi.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access Penceresini Gizleme(tablo, Sorgu Görüntüleme) grdlsv 3 76 01-12-2019, 11:24
Son Mesaj: grdlsv
  Seçime Göre Rapor Oluşturma abdullahkaya 16 9.549 21-11-2019, 21:10
Son Mesaj: sefersanli
  [RAPOR] ürün Sorgulama Raporlama Ean13 Etiket Basma raindorfler 3 76 18-11-2019, 05:30
Son Mesaj: dsezgin
  Iç Içe Sorgu Oluşturma husem 11 329 04-11-2019, 15:49
Son Mesaj: husem
  Accesste Pasta Grafik Oluşturma HilalAccess 7 176 21-10-2019, 17:39
Son Mesaj: dsezgin
  [SORGU] Birden çok Tablodan Sorgu Oluşturma. EminA 2 126 19-10-2019, 22:17
Son Mesaj: EminA
  [FORM] Liste Kutusu Verisine Göre Grafik Oluşturma husem 12 298 11-10-2019, 00:14
Son Mesaj: husem
  [FORM] Üretim modülü oluşturma hk Dekdurmaz 7 507 26-05-2019, 22:05
Son Mesaj: metocan

Foruma Git:


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