Access SQL日期时间类型不匹配错误3464解决咨询

核心问题 #

触发错误3464的根源是：Access的日期时间字段在SQL中需用#作为常量分隔符，你错误使用了文本字段的单引号'，导致字符串与日期字段类型不匹配；同时手动拼接日期字符串的方式易引发格式问题。

快速修复方案 #

修改日期字符串生成与SQL拼接逻辑，用Format函数生成Access兼容的美式日期时间格式，并用#包裹（不要单引号）：

' 生成Access可识别的美式日期时间字符串（完整保留时分秒）
stempelstring = Format(stempel, "mm/dd/yyyy hh:nn:ss")
' 构造正确的SQL语句，用#分隔日期时间常量
LSQL = "DELETE * FROM [ImportDoopAanvragen] WHERE Tijdstempel <= #" & stempelstring & "#"

原因说明 #

1. 分隔符错误：Access SQL中，日期时间常量必须用#包裹，单引号'仅用于文本类型，用单引号会将日期字符串识别为文本，与日期字段Tijdstempel比较必然触发类型不匹配。
2. 格式可靠性：Format函数的mm/dd/yyyy hh:nn:ss格式会自动处理单数字月/日的前导零问题，避免手动拼接可能出现的格式错误（比如将3/5/2024转为03/05/2024，确保Access能正确解析）。
3. 保留时分秒：该格式完整保留时间部分，不会像DateValue那样丢失时分秒信息。

更安全的进阶方案（推荐） #

使用参数查询完全规避格式拼接问题，同时防止SQL注入风险：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
' 创建参数化查询
Set qdf = db.CreateQueryDef("", "DELETE * FROM [ImportDoopAanvragen] WHERE Tijdstempel <= [pStempel]")
' 直接传递日期时间变量，无需格式转换
qdf.Parameters("[pStempel]") = stempel
' 执行查询并开启错误捕获
qdf.Execute dbFailOnError

' 释放对象
Set qdf = Nothing
Set db = Nothing

这种方式直接将日期时间类型变量传入参数，跳过格式转换步骤，从根源避免类型不匹配问题。

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