VBA向同表插入数据失败：INSERT INTO语句无报错但未生效

针对你的VBA代码执行后未插入数据也无错误提示的情况，从几个常见方向排查和解决：

1. 强制捕获执行错误 #

你的db.Execute没有指定错误处理参数，Access默认会忽略执行错误（比如主键冲突），导致看似无反应。修改代码加上dbFailOnError参数，一旦有错误就会抛出提示，快速定位问题：

Dim sqlStr As String
sqlStr = "INSERT INTO Calibration_Table_New SELECT * FROM Calibration_Table_New WHERE [Calibration_Table_New].Transaction_Id =" & [Forms]![Trans_eq_form]![Transaction_Id]
' 打印SQL语句到立即窗口，方便手动验证
Debug.Print sqlStr
' 加上dbFailOnError强制抛出错误
db.Execute sqlStr, dbFailOnError

如果执行时弹出主键冲突的错误，说明Transaction_Id是表的主键，不能重复插入——这是最常见的原因。此时需要修改表结构（如果主键不是必须的），或者在插入时生成新的Transaction_Id值。

2. 验证实际执行的SQL语句 #

通过Debug.Print输出拼接后的SQL，复制到Access的查询设计视图中直接运行：

• 如果SELECT部分能返回数据，但INSERT执行失败，大概率是主键/唯一约束冲突；
• 如果SELECT部分也没返回数据，说明[Forms]![Trans_eq_form]![Transaction_Id]的值和表中实际存储的格式不匹配（比如是文本类型但没加引号）。

如果Transaction_Id是文本类型，你的SQL会因为缺少引号报错（但之前没加参数所以被忽略），需要修改SQL为：

sqlStr = "INSERT INTO Calibration_Table_New SELECT * FROM Calibration_Table_New WHERE [Calibration_Table_New].Transaction_Id ='" & [Forms]![Trans_eq_form]![Transaction_Id] & "'"

3. 检查表字段约束 #

确认表中没有其他不允许为空、有默认值冲突或者计算字段的问题——不过因为是复制已有行，这种概率较低，但可以通过手动在查询中执行INSERT语句来验证。

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