aşağıdaki kodlar örneğinizden alıntıdır.
bu mantık ile arama kriteri olabilecek form elemanlarını if ile dolu olma durumunu kontrol ederek
Sql değişkeni içersinde kriteri biriktirerek buton kodunun en sonuna eklediğim liste veri kaynağını tekrar oluştur ve yenile yapıp formda sonucu görebilirsin.
Private Sub Komut112_Click()
Dim
Sql As String
SQL = ""
If Me.BOLGE <> "" Then
If
Sql = "" Then
Sql =
Sql + "[BOLGE]='" & Me.BOLGE & "'"
Else
Sql =
Sql + " and [BOLGE]='" & Me.BOLGE & "'"
End If
End If
.
.
.
.
.
.
.
.
.
.
Me.Liste113.RowSource="SELECT ARACLAR.[Sıra No], ARACLAR.[Çeker Plaka], ARACLAR.Markası, ARACLAR.Tipi, ARACLAR.Modeli, ARACLAR.Rengi, ARACLAR.Sahiplik, ARACLAR.Operasyon, ARACLAR.[Trafiğe Çıkış Tarihi], ARACLAR.[Garanti Süresi Bitiş Tarihi], ARACLAR.[Fenni Muayene Bitiş Tarih], ARACLAR.[Eksoz Muayene Bitiş Tarih], ARACLAR.[Trafik Sigorta Bitiş Tarih], ARACLAR.Durum, ARACLAR.Bölge FROM ARACLAR" &
Sql & ";"
Me.Liste113.Requery
End Sub