用VBA撤销表字段更改时触发错误提示的解决办法

针对你遇到的取消编辑触发错误的问题，有两种更稳妥的处理方式：

方法1：通过Cancel参数阻止更改（推荐） #

直接利用表Before Change事件的Cancel参数取消更改，无需事后撤销，从根源避免错误：

1. 将表的Before Change事件改为VBA事件过程：

   • 打开表设计视图，右键选「属性」→「事件」选项卡
   • 「Before Change」下拉选择「[事件过程]」，点击右侧「...」进入编辑器

2. 编写事件代码：

   Private Sub Table_BeforeChange(Cancel As Integer)
       ' 调用确认函数，返回False则取消更改
       If Not ConfirmEdit() Then
           Cancel = True
       End If
   End Sub
   

3. 修改模块中的ConfirmEdit函数，返回布尔值：

   Function ConfirmEdit() As Boolean
       Dim response As VbMsgBoxResult
       response = MsgBox("确定要修改记录吗？", vbYesNo + vbQuestion, "确认编辑")
       ' 返回True表示允许编辑，False表示取消
       ConfirmEdit = (response = vbYes)
   End Function
   

这种方式完全符合Access事件的设计逻辑，不会触发冲突错误，也比撤销操作更高效。

方法2：在函数中捕获并忽略撤销错误 #

如果必须保留原有的宏调用+撤销的方式，可以给函数添加错误处理，捕获撤销操作引发的特定错误（错误号2046："该操作此时无法执行"）：

Function ConfirmEdit()
    Dim response As VbMsgBoxResult
    response = MsgBox("确定要修改记录吗？", vbYesNo + vbQuestion, "确认编辑")
    
    If response = vbNo Then
        On Error GoTo ErrorHandler
        DoCmd.RunCommand acCmdUndo
    End If
    
ExitFunction:
    Exit Function
ErrorHandler:
    ' 仅忽略撤销操作的特定错误，其他错误正常提示
    If Err.Number = 2046 Then
        Resume ExitFunction
    Else
        MsgBox "错误：" & Err.Description, vbCritical
        Resume ExitFunction
    End If
End Function

错误原因说明 #

之前触发错误是因为Before Change事件触发时，记录的更改流程尚未完成，此时调用acCmdUndo会与Access内部的事件执行逻辑冲突，导致系统抛出错误。直接设置Cancel=True是更合理的处理方式。

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