abfrage- runtimerror 3075

[tobsn121]

Hallo Zusammen,

ich versuche eine Abfrage zu erstellen bei der nach vergangen Daten gesucht wird.
Ich weiß leider nicht wo mein Fehler liegt...
Dabei wird das heutige datum mit folgender Klasse kreiert:

Code [Auswählen] Erweitern

Public Function SQLdate(a_date As Date) As String
   SQLdate = Day(a_date) & "." & Month(a_date) & "." & Year(a_date)
End Function

Und hier ist die Abfrage:

Code [Auswählen] Erweitern

    DVS = SQLdate(Date)
   
    strSQL = "SELECT tblCovenants.[Project_Name] ,tblCovenants.[Covenant], tblCovenants.[Next_Review]" & _
                " FROM tblCovenants" & _
                " WHERE tblCovenants.Next_Review <= #" & DVS & "# AND tblCovenants.[Fullfilled?]=False"
    CurrentDb.Execute strSQL

Der Fehler lautet wie folgt:
Runtime Error 3075: syntax error.. ich kann mir nur vorstellen, dass bei der Datumskonvertierung etwas nicht passt, aber ich finde nicht was es ist.
In der abzufragenden Tabelle liegt das datum wie folgt vor:
DD.MM.YYYY

[DF6GL]

Hallo,

das Datum muss im USA- oder ISO-Format vorliegen..

Code [Auswählen] Erweitern

SQLdate = "#"  & Month(a_date) & "/" & Day(a_date)  & "/" &  & Year(a_date) & "#"   'USA
SQLdate = "#" & Year(a_date) & "-" & Month(a_date) & "-" & Day(a_date)   & "#"    'ISO

und

Code [Auswählen] Erweitern

" WHERE tblCovenants.Next_Review <= " & DVS & " AND tblCovenants.[Fullfilled?]=False"


Die Where-Condition kann aber gleich für "Date"  (Heute)  so geschrieben werden:

Code [Auswählen] Erweitern

" WHERE tblCovenants.Next_Review <= Date()  AND tblCovenants.[Fullfilled?]=False"

[tobsn121]

Perfekt, Danke!