Access VBA插入数据报错：查询值数量与目标字段数量不匹配

嘿，这个错误我之前处理过好多次，咱们先拆解问题：

错误提示Number of query values and destination fields are not the same字面意思是「查询值的数量和目标字段数量不匹配」，但看你的代码，目标字段是5个，VALUES里也写了5个值，所以大概率是字符串拼接时的语法错误导致数据库解析SQL时误以为值的数量不对，最常见的原因就是字符串字段里包含单引号（比如字段值是O'Conner），直接拼接会破坏SQL的结构。

问题根源举个例子 #

假设rcrd!Subsystem的值是O'Neil，那拼接后的SQL会变成：

INSERT INTO [Available workfront_tmp] (Subsystem, [Tag Number], ITR, Pending, Completed) VALUES ('O'Neil', '...', ...);

这里的'O'Neil'会被数据库解析成'O' + 无效的Neil'，相当于第一个值就提前结束了，后面的结构全乱了，自然会提示值和字段数量不匹配。

两种解决方案 #

1. 推荐：使用参数化查询（彻底避免问题）

参数化查询不用手动拼接字符串，既安全（防止SQL注入）又能完美处理单引号、空值等问题，代码示例：

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

Set db = CurrentDb()
' 用?作为参数占位符
strSQL = "INSERT INTO [Available workfront_tmp] (Subsystem, [Tag Number], ITR, Pending, Completed) " & _
         "VALUES (?, ?, ?, ?, ?);"

Set qdf = db.CreateQueryDef("", strSQL)
' 按顺序绑定参数
qdf.Parameters(0) = rcrd!Subsystem
qdf.Parameters(1) = rcrd![Tag Number]
qdf.Parameters(2) = rcrd!ITR
qdf.Parameters(3) = Pending
qdf.Parameters(4) = (Total - Pending) / Total

' 执行查询，出错会抛出具体错误（比RunSQL更易排查）
qdf.Execute dbFailOnError 

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

rcrd.MoveNext

2. 临时方案：转义字符串中的单引号

如果一定要用字符串拼接，写个辅助函数转义单引号（把单个'换成两个''）：

Function EscapeSingleQuote(inputStr As String) As String
    EscapeSingleQuote = Replace(inputStr, "'", "''")
End Function

然后修改你的SQL拼接代码：

strSQL = "INSERT INTO [Available workfront_tmp] (Subsystem, [Tag Number], ITR, Pending, Completed) VALUES " & _
"('" & EscapeSingleQuote(rcrd!Subsystem) & "', '" & EscapeSingleQuote(rcrd![Tag Number]) & "', '" & EscapeSingleQuote(rcrd!ITR) & "', " & Pending & ", " & (Total - Pending) / Total & ");"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
rcrd.MoveNext

排查小技巧 #

你可以在执行RunSQL前加一句Debug.Print strSQL，然后打开VBA的立即窗口（Ctrl+G），把打印出来的SQL复制到Access的查询设计里直接运行，就能看到具体的语法错误，比只看VBA的模糊提示更高效。

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