Access VB ile sorgu oluşturma ve raporlama

irfans · 18-07-2019, 10:17

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

halily · **Kayıt Tarihi:** 29.06.2014

ö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

halily · 18-07-2019, 13:24

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

irfans · 19-07-2019, 15:30

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

halily · **Kayıt Tarihi:** 29.06.2014

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

dsezgin · 19-07-2019, 23:10

(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

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

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[RAPOR] Rapor üzerinde Hyperlink Oluşturma	ulsogr	1	260	21-01-2025, 00:10 Son Mesaj: dsezgin
	Form Oluşturma	sfgungor	0	199	26-10-2024, 06:33 Son Mesaj: sfgungor
	[FORM] Gmaile Etiket Oluşturma	Access Ziyaretçisi	90	4.238	27-09-2024, 13:55 Son Mesaj: Access Ziyaretçisi
	[RAPOR] Raporlama Sorunu	aycnc	1	250	10-07-2024, 07:02 Son Mesaj: dsezgin
	[RAPOR] Raporlama Sorunu	aycnc	1	257	08-07-2024, 14:05 Son Mesaj: celalll
	Qrbarkod Oluşturma	ates2014	5	633	09-04-2024, 10:15 Son Mesaj: ates2014
	Resim Işaretleme Ve Raporlama	burhanb	1	289	06-03-2024, 11:26 Son Mesaj: dsezgin
	[FORM] QR Kod Oluşturma	ebenli	20	5.320	08-02-2024, 13:24 Son Mesaj: BeyTor

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL