使用VBA更新MS Access日期/时间字段时遇类型不匹配问题

核心问题1：WHERE子句的类型不匹配错误 #

你的UPDATE语句中WHERE [FileDate] Is Null OR [FileDate]=''存在逻辑错误：日期/时间类型字段永远不会存储空字符串，空值只能用Is Null判断。当字段中已有有效日期值后，Access尝试将日期类型与空字符串（文本类型）比较，就会触发类型不匹配错误。

核心问题2：日期字符串拼接的格式隐患 #

直接将VBA的Date类型变量dt拼入SQL语句时，会自动转换为系统区域设置对应的字符串格式，若该格式与Access默认的日期解析格式不兼容，也会导致类型不匹配。

修正后的代码方案 #

方案1：修复SQL语句格式与条件

Dim db As DAO.Database
Dim str_table As String
Dim str_sql As String
Dim dt As Date

str_table = "Items"
' 直接获取文件日期，无需额外Format转换Date类型
dt = FileDateFromPath(file_path)

Set db = CurrentDb()

' 1. 移除[FileDate]=''的错误条件
' 2. 用Format将日期转为Access通用的yyyy-mm-dd格式，避免区域设置影响
str_sql = "UPDATE [" & str_table & "] SET [FileDate] = #" & Format(dt, "yyyy-mm-dd") & "# " & _
          "WHERE [FileDate] Is Null;"
   
DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:=str_table, _
        FileName:=file_path, _
        HasFieldNames:=True

db.Execute str_sql, dbFailOnError

方案2：使用参数查询（更安全，推荐）

避免字符串拼接的潜在问题，通过DAO参数查询传递日期值：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim str_table As String
Dim dt As Date

str_table = "Items"
dt = FileDateFromPath(file_path)

Set db = CurrentDb()

' 创建临时参数查询
Set qdf = db.CreateQueryDef("", _
    "UPDATE [" & str_table & "] SET [FileDate] = [pFileDate] " & _
    "WHERE [FileDate] Is Null;")

' 传递日期参数
qdf.Parameters("[pFileDate]") = dt

DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:=str_table, _
        FileName:=file_path, _
        HasFieldNames:=True

' 执行参数查询
qdf.Execute dbFailOnError

' 清理对象
Set qdf = Nothing
Set db = Nothing

额外注意事项 #

• 确保Access表中的FileDate字段类型确实是日期/时间，而非文本类型。
• 若Excel源文件中FileDate列存在非空的无效值，导入时可能会导致字段类型异常，需提前清理Excel数据。

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