如何修复Access VBA插入log_time_tbl时的运行时错误3061？

错误原因分析 #

你的INSERT语句报错核心问题是**[GO info]字段的值未用单引号包裹**（假设该字段为文本类型），导致Access将其识别为未定义的参数，而非字符串值。另外直接拼接SQL字符串还存在其他潜在风险：

• 文本值含单引号时会直接破坏SQL结构
• 日期格式依赖系统区域设置，容易出现解析错误
• 代码可读性差，维护困难

原代码中Forms("Tech_frm").GO_list.ItemData(selectedGO)直接拼接在SQL里，没有加单引号，这是触发"参数不足"错误的直接原因。

临时修复：修正字符串拼接 #

如果暂时想用拼接方式解决，给[GO info]的值加上单引号，同时处理文本值中的单引号（避免SQL语法错误）：

' 先处理文本中的单引号（替换为两个单引号，符合Access SQL语法）
Dim goInfo As String
Dim workerName As String
Dim phase As String
goInfo = Replace(Forms("Tech_frm").GO_list.ItemData(selectedGO), "'", "''")
workerName = Replace(Forms("Tech_frm").signin_txt.Value, "'", "''")
phase = Replace(Forms("Tech_frm").phase_combo.Value, "'", "''")

' 修正后的INSERT语句
db.Execute "INSERT INTO log_time_tbl " & _
           "([GO info], [worker name], [phase], [start time], [end time], [Time Elapsed]) " & _
           "VALUES ('" & goInfo & "', '" & workerName & "', '" & phase & "', #" & startTime & "#, #" & startTime & "#, #" & startTime & "#);"

推荐方案：使用参数化查询（更安全可靠） #

直接拼接SQL不是最佳实践，推荐用DAO参数化查询，彻底避免格式错误和SQL注入风险：

Dim qdf As QueryDef
Dim sqlStr As String

' 定义带参数占位符的SQL模板
sqlStr = "INSERT INTO log_time_tbl " & _
         "([GO info], [worker name], [phase], [start time], [end time], [Time Elapsed]) " & _
         "VALUES (?, ?, ?, ?, ?, ?);"

' 创建临时查询
Set qdf = db.CreateQueryDef("", sqlStr)

' 绑定参数值（按占位符顺序对应字段顺序）
qdf.Parameters(0) = Forms("Tech_frm").GO_list.ItemData(selectedGO)
qdf.Parameters(1) = Forms("Tech_frm").signin_txt.Value
qdf.Parameters(2) = Forms("Tech_frm").phase_combo.Value
qdf.Parameters(3) = startTime
qdf.Parameters(4) = startTime ' 注意此处end time复用了startTime，根据实际业务逻辑修改
qdf.Parameters(5) = startTime ' 若Time Elapsed是计算字段，无需手动插入，Access会自动计算

' 执行查询，dbFailOnError可抛出详细错误便于调试
qdf.Execute dbFailOnError

' 释放对象
Set qdf = Nothing

额外提示 #

• 检查[Time Elapsed]字段类型：如果是计算字段，不需要手动插入值；如果是手动存储字段，需先计算正确的时间差再传入参数。

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