Access VBA中日期处理问题：UPDATE查询与DLookup语法错误排查

问题根源 #

你的UPDATE和DLookup代码都存在日期格式的语法错误：

• Access的SQL语句中，日期/时间类型字段的值必须用#包裹，而非双引号
• DLookup的参数和条件拼接没有正确引用变量，导致VBA无法识别

1. 修正UPDATE语句 #

原代码用双引号包裹日期变量，会导致类型不匹配。正确写法是用#包裹日期，同时用Format函数统一日期格式（避免区域设置差异导致的解析错误）：

Dim locking As Date
locking = Now()

' 修正后的UPDATE语句
Dim query As String
query = "UPDATE table " & _
        "SET locktime = #" & Format(locking, "yyyy-mm-dd hh:nn:ss") & "# " & _
        "WHERE recordID = 1"
        
db.Execute query, dbFailOnError

2. 修正DLookup语句 #

DLookup的第一个参数（要查询的字段名）必须是字符串，条件部分需要把VBA日期变量转成Access SQL能识别的#包裹格式：

' 修正后的DLookup
Dim lockedID As Variant
lockedID = DLookup("recordID", "table", "lockTime = #" & Format(locking, "yyyy-mm-dd hh:nn:ss") & "#")

' 可选：处理查询不到结果的情况
If Not IsNull(lockedID) Then
    ' 执行后续逻辑
Else
    ' 处理无匹配记录的情况
End If

额外优化建议 #

尽量避免直接拼接SQL字符串（更规范的写法是用参数查询，能彻底规避格式问题）：

' 参数查询版UPDATE示例
Dim qdf As QueryDef
Set qdf = db.CreateQueryDef("", "UPDATE table SET locktime = [pLockTime] WHERE recordID = 1")
qdf.Parameters("[pLockTime]") = locking
qdf.Execute dbFailOnError
Set qdf = Nothing

内容的提问来源于stack exchange，提问作者shura30