Filtern mit mehreren Optionen

[lutschi83]

Hallo,
ich habe folgenden Filter, der auch bedingt funktioniert.

Code [Auswählen] Erweitern

Private Sub btn_filter_Click()
Dim strVon As String
Dim strBis As String
Dim strKrit As String
Dim strkrit2 As String


    If IsDate(Me.txtvon) And IsDate(Me.txtbis) Then
        strVon = Format(Me!txtvon, "\#yyyy\-mm\-dd\#")
        strBis = Format(Me!txtbis, "\#yyyy\-mm\-dd\#")
        strKrit = "invoice_month Between " & strVon & " AND " & strBis
        strkrit2 = " and distributor='" & combdistri & "'"
        Forms!frm_faktura.Form.Filter = strKrit & strkrit2
        Forms!frm_faktura.Form.FilterOn = True
       
      Else
       
        Forms!frm_faktura.Form.Filter = ""
        Forms!frm_faktura.Form.FilterOn = False
   
    End If
   
'Forms!frm_faktura.Form.Requery

End Sub
Wie bekomme ich hin, wenn combdistri leer ist, dass er nur nach dem Datum filtert. Im Moment müssen alle Felder des Filters gefüllt sein um die richtigen Datensätze angezeigt zu bekommen.

[Xoar]

Huhu, du müsstes prüfen ob Distributer null ist und abhängig davon den Filterstring erweitern.

Code [Auswählen] Erweitern

If not isnull(combdistri) then strKrit = strKrit & " and distributor='" & combdistri & "'"

Forms!frm_faktura.Form.Filter = strKrit
Forms!frm_faktura.Form.FilterOn = True


Grüße     

Combdistri müsste wenn es nicht wo deklariert ist noch den Formularbezug bekommen, oder? Me!combdistri oder wenns nicht im formularmodul ist mit Forms

[lutschi83]

Hat funktioniert!
Vielen vielen Dank!!!!