请教大师，哪里出错了！

冷酷的云

Sub 测试()
On Error GoTo errorHandler
    Dim strSQL As String
    strSQL = "SELECT 乡镇出苗.*, 乡镇出苗.开票日期 FROM 乡镇出苗 WHERE 乡镇出苗.开票日期 Like " * " & [Forms]![窗体1]![查询日期] & " * ""

    CurrentDb.QueryDefs("查询日期").SQL = strSQL
ExitHere:
    Exit Sub
errorHandler:
    MsgBox Err.Description
    Resume ExitHere

End Sub

显示类型不匹配，要怎样修改，谢谢各位！

z865593849

sql 的模糊匹配符是 % ，如果是日期报错的话要用 ## 括起来

冷酷的云

z865593849 发表于 2024-11-20 10:57
sql 的模糊匹配符是 % ，如果是日期报错的话要用 ## 括起来

语法错误，不能运行

z865593849

冷酷的云 发表于 2024-11-20 11:00
语法错误，不能运行

你这个应该是数据透视表，框架要完整，还报错就把变量换成常量，自己一步一步调试