Hallo zusammen,
ich habe eine Abfrage und einen dazugehörigen Bericht der alle Datensätze enthält.
Über ein Formular möchte ich nun den Zeitraum (über Textfeld) und zusätzlich mit Kombinationsfeld einen Kunden auswählen. Durch klicken eines Buttons soll dann der Bericht entsprechend den Kriterien gefiltert werden.
Wenn ich nur nach Datum filtere funktioniert meine Lösung, jedoch liegt irgendein Problem mit dem Kombinationsfeld vor. Unten mein VBA Code:
Private Sub Befehl0_Click()
If IsDate(Me!txtDatumvon) And IsDate(Me!txtDatumBis) Then
DoCmd.OpenReport "Abfrage_1", acViewPreview, , _
"customer name=" & Me!customer.Column(0) & _
"AND date >= " & Format(Me!txtDatumvon, "\#yyyy\-mm\-dd\#") & " " & _
"AND date <= " & Format(Me!txtDatumBis, "\#yyyy\-mm\-dd\#") & " " '& _
Else
MsgBox "Falsche oder fehlende Datumsangabe!", , "Korrektur"
End If
End Sub
hat sich bereits erledigt... hatte nur ' und eckige Klammern vergessen... Mann Mann Mann
Hallo,
"Hochkomma" ist richtig, "Eckklammern" aber nicht. Das eigentliche Problem wäre hier das fehlende Leerzeichen vor dem ersten "And".
Durch die Eckklammer(n) kann Access jedoch den Kombiwert vom anschließenden "And" auch auftrennen.