Die Methode OpenReport enthält einen Parameter namens WhereCondition, mit dem Sie einen Filter als Where-Klausel angeben können. Der Aufruf des Berichts für Lieferscheine am heutigen Datum würde beispielsweise so aussehen:
DoCmd.OpenReport "repLieferscheine", WhereCondition:="LieferscheinDatum = " & SQLDatum(Date)
In diesem Beispiel wird die benutzerdefinierte Funktion SQLDatum eingesetzt, um das Datum für SQL zu formatieren. Die Funktion hat folgenden Aufbau:
Public Function SQLDatum(Datum As Variant) As String
If Not IsNull(Datum) Then
SQLDatum = "#" & Month(Datum) & "/" & Day(Datum) & "/" & Year(Datum) & "#"
Else
SQLDatum = ""
End If
End Function