3 comboboxtan 1 listboxa ayrı ayrı veri süzme?

Merhaba, liste kutusunun satır kaynağına kod ile sorgu eklenecek. Oluşturulacak GSorgu isimli geçici sorguda WHERE kodunu silerseniz kodun devamı çalışmaz. WHERE'den sonra kriter eklenmesi için 

Me.list_box.RowSource = GSorgu & GKriter

kodu mevcut.

Sıralama eklenmesini istiyorsanız.

GSorgu Kodunu aşağıdaki gibi eski haline getir,

GSorgu = "SELECT yb_tarih, n_tarih, [istek no] FROM Tablo1 WHERE "

Bu kodun hemen altına

GSiralama = " ORDER BY [istek no] DESC;"

kodu ekle,

Me.list_box.RowSource = GSorgu & GKriter

Kodunu da

Me.list_box.RowSource = GSorgu & GKriter & GSiralama

Kodu ile değiştir.

Böylelikle Geçici Sorguda kriter ve sıralamayı sorgu yapısına uygun hale getirmiş olursunuz.

SELECT yb_tarih, n_tarih, [istek no] FROM Tablo1 WHERE ([yb_tarih] = #11/9/2016#)  ORDER BY [istek no] DESC;

Ayrıca, tabloda alan isimlerinde boşluk kullanmamaya gayret ediniz.

çok çok teşekkür ederim.

kod ile alanları sıralamayı sayenizde öğrenidikten sonra alana ölçüt eklemeyi kendim hallederim sanmıştım ama yine beceremedim
yani [istek no] yu azalan sıralama yaparken diğer yandanda n_tarihin boş olmadığı verileri süzsün diye şu kodları uydurdum ama olmadı . bu konuyla ilgili son isteğim olduğunu umarak yardımlarınızı rica ediyorum tekrar, sağlıcakla kalın...

sayın prtkl,

bahsettiğiniz talebinize yönelik olarak;

GSorgu satırını

GSorgu = "SELECT yb_tarih, n_tarih, [istek no] FROM Tablo1 WHERE (((Tablo1.n_tarih) Is Not Null)) and "

kod satırı ile değiştirmek sureti ile deneyiniz.

KayitYenile içeriğini

Dim GSorgu As String

Dim GKriter As String

Dim GKriterSayisi As Long

Dim GSiralama As String

















If (IsNull(Me.yb_tarih_bul) Or Me.yb_tarih_bul = "") And (IsNull(Me.ntarih_bul) Or Me.ntarih_bul = "") And (IsNull(Me.istekno_bul) Or Me.istekno_bul = "") Then









    Me.list_box.RowSource = "SELECT yb_tarih, n_tarih, [istek no] FROM Tablo1 "

    Exit Sub









Else

    GSorgu = "SELECT yb_tarih, n_tarih, [istek no] FROM Tablo1 WHERE (((Tablo1.n_tarih) Is Not Null)) and "

    GSiralama = " ORDER BY [istek no] DESC;"









End If









If Not IsNull(Me.yb_tarih_bul) Then

    GKriter = GKriter & "([yb_tarih] = #" & Month(yb_tarih_bul) & "/" & Day(yb_tarih_bul) & "/" & Year(yb_tarih_bul) & "#) AND "

End If









If Not IsNull(Me.ntarih_bul) Then

    GKriter = GKriter & "([n_tarih] = #" & Month(ntarih_bul) & "/" & Day(ntarih_bul) & "/" & Year(ntarih_bul) & "#) AND "

End If









If Not IsNull(Me.istekno_bul) Then

    GKriter = GKriter & "([istek no] = '" & Me.istekno_bul & "') AND "

End If

















    GKriterSayisi = Len(GKriter) - 4

       

If GKriterSayisi > 1 Then

    GKriter = Left$(GKriter, GKriterSayisi)

    Me.list_box.RowSource = GSorgu & GKriter & GSiralama









End If

kodları ile değiştiriniz.

bilginize...iyi çalışmalar,saygılar.

kodu dediğiniz şekilde güncelledim ancak her hangi bir alana değer girince hiç bir şey bulmuyor

düzeltme: afedersiniz eksik yapmışım çalışıyor. çok teşekkürler sizi çok seviyorum