Access 2016：未点击Btn_QuitSaisie时取消BeforeUpdate触发

问题场景 #

开发Access表单F_saisie_2，用户填写必填字段后可添加记录：

• region字段为绑定数据库地区的组合框
• 用户点击「添加新地区」按钮打开子表单添加地区，返回主表单时，主表单弹出“未保存更改即退出”提示，已填写内容被撤销
• 该问题并非点击退出按钮Btn_QuitSaisie导致

现有代码 #

退出按钮Btn_QuitSaisie代码 #

按钮绑定RunMenuCommand -> Close宏，VBA代码如下：

Private Sub Btn_QuitSaisie_Click()
Dim intReponse As Integer
    intReponse = MsgBox("Vous vous apprêtez à quitter sans sauvegarder.", vbOKOnly, "Quitter formulaire") '翻译：即将退出且未保存，确认退出表单
    If Me.Dirty Then Me.Undo
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

表单BeforeUpdate事件代码 #

为实现退出按钮的提示与撤销逻辑，添加如下代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim intReponse As Integer
    intReponse = MsgBox("Vous vous apprêtez à quitter sans sauvegarder.", vbOKOnly, "Quitter formulaire")
    If Me.Dirty Then Me.Undo
End Sub

核心问题 #

BeforeUpdate事件会在所有表单更新场景触发（如添加新地区返回后），强制撤销用户输入。需求是仅在点击Btn_QuitSaisie时执行该事件的逻辑，其他场景取消事件执行。

曾尝试将逻辑移至Unload事件，但点击退出按钮时仍会自动保存更改，无法解决问题。优先选择通过标记判断的方案，而非灰化字段强制选地区的方案。

解决方案 #

1. 声明表单级标记变量 #

在表单模块的通用声明区域添加布尔变量，标记是否为退出按钮触发的操作：

Private isQuitButtonClicked As Boolean

2. 修改退出按钮点击事件 #

点击退出按钮时设置标记为True：

Private Sub Btn_QuitSaisie_Click()
Dim intReponse As Integer
    intReponse = MsgBox("Vous vous apprêtez à quitter sans sauvegarder.", vbOKOnly, "Quitter formulaire")
    ' 标记为退出按钮触发的操作
    isQuitButtonClicked = True
    If Me.Dirty Then Me.Undo
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

3. 修改BeforeUpdate事件逻辑 #

通过标记判断是否执行原有逻辑，非退出场景直接取消事件：

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim intReponse As Integer
    ' 非退出按钮触发的更新，直接取消事件
    If Not isQuitButtonClicked Then
        Cancel = True
        Exit Sub
    End If
    
    ' 仅在退出时执行提示与撤销
    intReponse = MsgBox("Vous vous apprêtez à quitter sans sauvegarder.", vbOKOnly, "Quitter formulaire")
    If Me.Dirty Then Me.Undo
    
    ' 重置标记，避免影响后续操作
    isQuitButtonClicked = False
End Sub

4. 优化正常保存场景（可选） #

若有单独的保存按钮，需在保存事件中重置标记，避免BeforeUpdate取消保存：

Private Sub Btn_Save_Click()
    isQuitButtonClicked = False
    DoCmd.RunCommand acCmdSaveRecord
End Sub

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