MS Access VBA：退出表单记录编辑模式以执行记录集操作

我来帮你搞定这个Access里的头疼问题！当表单上有记录处于未保存的编辑状态时，底层记录集确实会被锁定，导致你没法直接执行Recordset操作。不管最佳实践如何，下面几种方法都能帮你先处理掉表单的编辑状态，顺利继续后续操作：

1. 撤销当前未保存的修改 #

如果你不需要保留当前的编辑内容，可以直接撤销，释放锁定。记得先判断表单是否处于修改状态，避免报错：

' 检查表单是否有未保存的修改
If Me.Dirty Then
    ' 撤销所有未保存的更改
    Me.Undo
End If

执行这段代码后，表单会回到编辑前的状态，底层记录集的锁定也会被释放。

2. 保存当前编辑的记录 #

如果你想保留修改，那就先把当前编辑的内容保存下来，同样先判断Dirty状态：

If Me.Dirty Then
    ' 直接保存修改，等价于点击保存按钮
    Me.Dirty = False
    ' 也可以用 DoCmd.RunCommand acCmdSaveRecord 实现同样效果
End If

保存完成后，记录就不再处于编辑锁定状态，你就能正常操作底层的Recordset了。

3. 极端情况的强制处理 #

如果遇到特殊场景（比如用户正在控件中输入，但你必须立即执行Recordset操作），可以结合屏幕刷新控制来强制处理：

' 暂时关闭屏幕刷新，避免操作过程中出现界面闪烁
DoCmd.Echo False

On Error Resume Next
    ' 不管有没有修改，尝试保存（如果有未保存内容）
    If Me.Dirty Then
        Me.Dirty = False
    End If
On Error GoTo 0

' 恢复屏幕刷新
DoCmd.Echo True

关于GUI锁定的疑问 #

你担心的类似Excel单元格编辑时的VBA阻塞情况，在Access里基本不会发生。Excel单元格处于编辑状态时，大部分VBA操作会被拦截，但Access的表单编辑状态对VBA的限制要小得多——哪怕光标还在编辑控件里，VBA依然可以通过Me.Dirty检测状态，并用Me.Undo或Me.Dirty = False来结束编辑，完全可以通过代码释放锁定，不会出现无法操作的情况。

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