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?
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
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.
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!
Hallo,
eigentlich solltest Du das auch selber hinbekommen:
strkrit2 = " and distributor='" & Me!Distributor & "'"