düzeltiyorum, sayın berduş hocamın verdiği kod gayet işimi gördü onu uyarlayınca işim tamam, ama yine de bu tarz yapabilir miyim diye sormaktan kendimi alamadım, aşağıda...


merhaba değerli arkadaşlar, and bağlacı ile çok kriterli form filtresi uygulamada sıkıntım yok ama o kriterlerin hepsinin opsiyonel olmasını istiyorum çünkü normal and bağlacıyla yaptığımdan, diyelimki ben o an, iki kriterli filtre uygulamak istiyorum, sadece ikisini baz alsın, üç olunca üçünü.... yani şöyle ; diyelimki beş değişkenli , and bağlcıyla bağlanmış bir filtre stringim var, icabında ikisini seçeyim diyorum diğerleri de değer beklediğinden hata veriyor, bu konuda çok düşündüm bi sonuca varamadım, yardımcı olur musunuz?

Dim a As String
Dim b As Variant
Dim c As Variant

a = Me.acilan.Column(1)
b = Me.tarih1.Value
c = Me.tarih2.Value

Call suz(a, b, c)


Function suz(Optional sinif As String, Optional tarih1 As Variant, Optional tarih2 As Variant) As Variant
Me.surecAltForm.Form.Filter = "siniflar.sinifAdi='" & sinif & "'" & " And " & "'" & [islemTarihi] & "'  Between #" & Format(tarih1, "mm\/dd\/yyyy") & "# And #" & Format(tarih2, "mm\/dd\/yyyy") & "#"

Me.surecAltForm.Form.FilterOn = True



End Function