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: 11)



  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: 3)



  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: 3) ilk mesaj cevabi, iki kosula gore, rapor sorgusunun olusturulmasi.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Üretim modülü oluşturma hk Dekdurmaz 7 352 26-05-2019, 22:05
Son Mesaj: metocan
  [FORM] QR Kod Oluşturma ebenli 13 414 06-05-2019, 09:34
Son Mesaj: ebenli
  [SORGU] access sorgu sayma korsan29 6 211 01-05-2019, 21:03
Son Mesaj: halily
  [RAPOR] Raporlama Yönetimi Formu Oluşturma/Özel Rapor Kodu-Otomatik Bildirim ve Mail Gönderme ebenli 4 270 26-02-2019, 09:14
Son Mesaj: ebenli
  [FORM] Risk Yönetimi Haritası Oluşturma ebenli 4 183 15-02-2019, 14:26
Son Mesaj: ebenli
  Parametre ve Kodla Tablo Oluşturma Arayışı onur06 19 11.461 23-12-2018, 17:43
Son Mesaj: internally
  Kullanıcı ve Şifre Oluşturma Sihirbazı M_Kemal_Askeri 2 512 22-06-2018, 23:39
Son Mesaj: M_Kemal_Askeri
  [RAPOR] Raporda Birbirinden Farklı Sayfalar Oluşturma mmert06 2 466 22-06-2018, 12:05
Son Mesaj: mmert06

Foruma Git:


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