Access报错Error 3464：条件表达式数据类型不匹配求助

可能的原因及对应解决方法 #

1. 检查表字段数据类型一致性 #

• 确认两台电脑上nrefs表的Proveedor字段，与proveedores表的idproveedor字段数据类型完全匹配：
  • 若idproveedor是数字类型（如长整型），更新语句里的单引号会导致类型不匹配，需改为where idproveedor=" & rst!Proveedor
  • 同时验证nrefs的cuantos字段和proveedores的nrefs字段均为数值型（如双精度、长整型），避免CDbl转换时出现隐性错误

2. 排查数据库表损坏问题 #

• 本地数据库可能存在隐性表损坏，导致记录集打开失败：
  • 打开Access数据库，点击文件>信息>压缩和修复数据库，修复后重新运行代码
  • 也可将nrefs表导出为Excel，再重新导入当前数据库替换原表

3. 重新验证DAO引用有效性 #

• 即使表面引用正常，仍可能存在版本冲突或隐性失效：
  • 打开VBA编辑器，点击工具>引用，取消所有DAO相关引用后，重新勾选对应版本的Microsoft DAO x.x Object Library（优先选高版本，如12.0及以上）
  • 改用晚绑定写法，彻底避免版本兼容性问题：

    Dim dbs As Object
    Dim rst As Object
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("SELECT * from nrefs")
    

4. 分步调试定位真实错误点 #

• 错误提示的定位可能存在偏移，需分步验证：
  • 先注释所有DoCmd.RunSQL语句，单独运行打开记录集的代码，确认是否真的是这一步出错
  • 若记录集打开正常，再逐步恢复更新语句，逐行排查哪个条件导致类型不匹配

代码优化（彻底规避类型问题） #

建议改用参数化查询替代字符串拼接，既避免类型不匹配，也能防范SQL注入风险：

Sub PonerNRefsProveedores()
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim updQuery As DAO.QueryDef
    Dim sqlUpd As String
    
    Set dbs = CurrentDb
    ' 定义参数化更新语句
    sqlUpd = "UPDATE proveedores SET nrefs = ? WHERE idproveedor = ?"
    Set updQuery = dbs.CreateQueryDef("", sqlUpd)
    
    ' 重置所有nrefs为0
    dbs.Execute "UPDATE proveedores SET nrefs=0", dbFailOnError
    
    ' 遍历nrefs记录集执行更新
    Set rst = dbs.OpenRecordset("SELECT * from nrefs")
    While Not rst.EOF
        updQuery.Parameters(0) = rst!cuantos
        updQuery.Parameters(1) = rst!Proveedor
        updQuery.Execute dbFailOnError
        rst.MoveNext
    Wend
    
    ' 清理对象
    rst.Close
    updQuery.Close
    Set rst = Nothing
    Set updQuery = Nothing
    Set dbs = Nothing
End Sub

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