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:
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:
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
Hallo,
das Datum muss im USA- oder ISO-Format vorliegen..
SQLdate = "#" & Month(a_date) & "/" & Day(a_date) & "/" & & Year(a_date) & "#" 'USA
SQLdate = "#" & Year(a_date) & "-" & Month(a_date) & "-" & Day(a_date) & "#" 'ISO
und
" WHERE tblCovenants.Next_Review <= " & DVS & " AND tblCovenants.[Fullfilled?]=False"
Die Where-Condition kann aber gleich für "Date" (Heute) so geschrieben werden:
" WHERE tblCovenants.Next_Review <= Date() AND tblCovenants.[Fullfilled?]=False"
Perfekt, Danke!