sql - VBA在访问功能中按日期搜索

Question

有人可以帮我下面的代码吗？我试图提示用户输入日期，然后在表中按该日期搜索。我正在查询的表具有datetime格式，但是我希望能够仅按日期进行搜索。
我能够获得用户输入，但随后在查询表达式中出现错误“语法错误(缺少运算符)”。

 Function cmdInputBox_Click()
    Dim DatePick As Date
    DatePick = InputBox("Enter Date:", "Date", Format(Now(), "dd/mm/yy"))

  Dim strSQL As String


    strSQL = " INSERT INTO PalletMoves " _
        & "SELECT [Pick Area].[From Location], [Pick Area].[Game Number], [Pick Area].[Pallet Number], [Pick Area].[Game Name], [Pick Area].[Shipment Number], [Pick Area].[Box Range], [Pick Area].Cases, [Pick Area].Packs, [Pick Area].Tickets, [Pick Area].[Price Point], [Pick Area].[Delivery Date], [Pick Area].Skids, [Pick Area].[Created Date] " _
        & "FROM [Pick Area] " _
        & "WHERE CAST([Created Date] AS Date) dateDate = '" & DatePick & "';"
DoCmd.RunSQL strSQL

End Function

Answer 1

where子句必须看起来像:

"WHERE [Created Date] = #" & DatePick & "#;"

更多信息:https://support.office.com/en-us/article/Examples-of-using-dates-as-criteria-in-Access-queries-aea83b3b-46eb-43dd-8689-5fc961f21762

注意:我需要警告您。当用户删除默认字符串并单击Cancel按钮时，InputBox函数将返回空字符串!在执行进一步的代码(查询)之前，应检查它。