ms доступ к несоответствию типов данных в выражении критериев при передаче переменной в SQL-запрос

Question

Я получаю несоответствие типа данных со следующим кодом.Тем не менее, это выглядит хорошо, когда я делаю отладочную печать.

Dim strSQL As String
Dim StartDate As Date
Dim EndDate As Date

StartDate = “1/1/2019”
EndDate = “2/1/2019”


strSQL = SELECT Table1.Start INTO 1 FROM Table1 WHERE (((Table1.Start) BETWEEN ‘“ & StartDate & “‘“ & “ AND ‘“ & EndDate & “‘));”

Debug.Print strSQL

Docmd.RunSQL strSQL 

Answer 1

Используйте правильный синтаксис для дат и выражений значения даты:

Dim strSQL As String
Dim StartDate As Date
Dim EndDate As Date

StartDate = #1/1/2019#
EndDate = #2/1/2019#


strSQL = "SELECT Table1.Start INTO 1 FROM Table1 WHERE (((Table1.Start) BETWEEN #" & Format(StartDate, "yyyy\/mm\/dd") & "# AND #" & Format(EndDate, "yyyy\/mm\/dd") & "#);"