Filtern mit 2 Variablen

[lutschi83]

Hallo Leute,

ich steh vor folgendem Problem. Ich habe zwei Variablen, die ich als Filterkriterien einsetzen möchte. Im Moment funktioniert nur das filtern nach Datum, aber das gleichzeitige filtern nach Distributor und Datum funktioniert nicht. Wie kann ich die beiden Variablen verbinden?

Code [Auswählen] Erweitern

Private Sub Befehl36_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 = "delivery_note_date Between " & strVon & " AND " & strBis
        strkrit2 = "distributor='" & Me!Distributor & "'"
        Forms!frm_invoice!subfrm_invoice.Form.Filter = strKrit
        Forms!frm_invoice!subfrm_invoice.Form.FilterOn = True
       
       Else
        Forms!frm_invoice!subfrm_invoice.Form.Filter = ""
        Forms!frm_invoice!subfrm_invoice.Form.FilterOn = False
    End If

End Sub

[ebs17]

Die Kriterien wären mit AND bzw. OR zu einem Gesamtfilter zu verketten (zusammenzusetzen).

So ein Filter ist das Gleiche wie der Inhalt einer WHERE-Klausel in einer SQL-Anweisung ohne das Schlüsselwort WHERE und unterliegt auch genau den gleichen Syntaxforderungen.

[lutschi83]

Danke für die Antwort. Jetzt bin ich aber auch nicht weiter.
Könnte mir bitte jemand den Code sagen, wie ich das zusammensetzen muss?
Ich bekomm es einfach nicht hin.
Danke schon einmal!

[DF6GL]

Hallo,

eigentlich solltest Du das auch selber hinbekommen:

Code [Auswählen] Erweitern

strkrit2 = " and distributor='" & Me!Distributor & "'"