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.