如何解决DoCmd.RunSQL最后执行语句报错或误删数据问题

代码中的核心问题： #

• 硬编码表名：最后一条Delete语句的WHERE子句使用固定的[MOD 556]，而非动态变量ModNum，导致仅当用户输入MOD 556时有效，其他场景会报错或误删数据。
• 重复单引号语法错误：Equip变量已拼接单引号，Delete语句中又额外添加一层单引号，形成''输入内容''的无效语法。
• 冗余字段列表：Delete语句无需列出所有字段，直接DELETE FROM 表名 WHERE ...即可，冗余字段会引发语法问题。
• 表名变量含多余空格：ModNum = " [" & ModNo & "]"前导空格导致创建的表名带空格，后续操作会出现找不到表的错误。
• 未处理用户取消输入：InputBox返回空值时未终止流程，会导致后续代码执行失败。
• 建议用CurrentDb.Execute替代DoCmd.RunSQL：前者支持错误捕获参数，且无确认弹窗，更适合自动化操作。

修正后的代码： #

Private Sub AddModNote_Click()
    Set db = CurrentDb()
    Dim ModNo As String
    Dim ModNum As String
    Dim UpQ As String
    Dim EqpEntry As String
    Dim Equip As String
    
    ' 获取MOD编号，处理用户取消输入的情况
    ModNo = InputBox("Enter in format : MOD XXX", "What is your MOD Number?")
    If ModNo = "" Then Exit Sub
    
    ModNum = "[" & ModNo & "]" ' 移除前导空格，正确定义带方括号的表名
    
    ' 创建新表，INTO与表名间添加空格避免语法错误
    db.Execute "SELECT SITELIST.id, SITELIST.EQP, SITELIST.[SITE NAME], SITELIST.[ORG CODE], SITELIST.SID INTO " & ModNum & " FROM SITELIST;", dbFailOnError
    
    ' 更新MAT_MOD_NO字段，处理输入中的单引号
    UpQ = "UPDATE " & ModNum & " SET [MAT_MOD_NO] = '" & Replace(ModNo, "'", "''") & "'"
    db.Execute UpQ, dbFailOnError
   
    ' 重命名字段（TableDefs使用不带方括号的原始表名）
    db.TableDefs(ModNo).Fields("id").Name = "SITELIST ID"
    db.TableDefs(ModNo).Fields("EQP").Name = "EQUIPMENT AFFECTED"
    db.TableDefs(ModNo).Fields("SITE NAME").Name = "SITE"
    db.TableDefs(ModNo).Fields("ORG CODE").Name = "ORG_CODE"

    ' 修改字段属性
    db.Execute "ALTER TABLE " & ModNum & " ALTER COLUMN [EQUIPMENT AFFECTED] Text(5)", dbFailOnError
    db.Execute "ALTER TABLE " & ModNum & " ALTER COLUMN [SITE] Text(50)", dbFailOnError
    db.Execute "ALTER TABLE " & ModNum & " ALTER COLUMN [ORG_CODE] Text(10)", dbFailOnError
    db.Execute "ALTER TABLE " & ModNum & " ALTER COLUMN SID Text(5)", dbFailOnError
    db.Execute "ALTER TABLE " & ModNum & " ALTER COLUMN MAT_MOD_NO Text(7)", dbFailOnError
      
    ' 获取设备编号，处理用户取消输入的情况
    EqpEntry = InputBox("What is your Equipment Affected?")
    If EqpEntry = "" Then Exit Sub
    
    ' 转义输入中的单引号，避免语法错误
    Equip = Replace(EqpEntry, "'", "''")
   
    ' 简化Delete语句，使用动态表名与正确条件
    db.Execute "DELETE FROM " & ModNum & " WHERE [EQUIPMENT AFFECTED] <> '" & Equip & "'", dbFailOnError
End Sub

额外优化说明： #

• 加入Replace函数处理输入中的单引号，避免SQL语法错误与注入风险。
• 使用dbFailOnError参数，执行出错时会抛出明确错误信息，便于调试。
• 添加用户取消输入的判断，防止空值引发后续操作失败。

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