Question

VB 错误3464 标准表达式中的数据类型不匹配

Private Sub Command5_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "事情查询"

stLinkCriteria = "DateValue(Now()) = DateValue([时间])"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub
请高手指点，黄标指向倒数第二行

Answer 1

没怎么用过VBA，但是你看wherecondition的说明，它指的是标准SQL，而DateValue应该是VBA中的函数，不能用在SQL中的，你或许该用Convert来代替DateValue

ETking DoCmd.OpenForm formname[, view][, filtername][, wherecondition][, datamode][, windowmode][, openargs]

formname => 表单名称。
view => acNormal 开启在表单检视中的表单。(预设值)
filtername => 是在现用资料库中一个有效的查询名称。
wherecondition => 此字串运算式是不含 WHERE 的有效 SQL WHERE 子句。
datamode => acFormPropertySettings (预设值)
windowmode => acWindowNormal (预设值)
openargs => 用来设定表单的 OpenArgs 属性

Answer 2

[时间]的类型是时间吗？也许编译器就认为那是个字符串而已。
你在用access的vba是不是，
DoCmd.OpenForm 的参数你有窗体名就行了，其他的参数不用管吧？
你展示的代码不完整，因此没法为你修改。