Access绑定表单手动保存：阻止自动保存及Flag失效问题排查

你在Form_BeforeUpdate事件里重新声明了mIsUserUpdate变量：

Dim mIsUserUpdate As Boolean 'Flag

这会创建一个局部变量，覆盖模块顶部声明的私有模块级变量。当触发BeforeUpdate时，这个局部变量默认值为False，导致Cancel = True始终生效，调用frm.Dirty = False试图保存时被强制取消，从而触发2101错误。

1. 移除事件内的局部变量声明 #

修改Form_BeforeUpdate代码，删除局部变量定义，直接使用模块级的mIsUserUpdate：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' 直接使用模块顶部声明的mIsUserUpdate，不再重新定义
    If Not mIsUserUpdate Then
        Cancel = True
    End If
End Sub

2. 完善SaveTabs函数的标志逻辑 #

在保存操作完成后，务必将mIsUserUpdate重置为False，避免后续用户手动修改控件时意外允许自动保存：

Sub SaveTabs(frm As Form)
    ' 设置标志允许本次保存
    mIsUserUpdate = True
    
    ' 手动赋值1_Val字段为gUser
    frm.Controls("1_Val").Value = gUser
    
    ' 触发保存
    frm.Dirty = False
    
    ' 重置标志，恢复自动保存拦截
    mIsUserUpdate = False
End Sub

3. 额外注意事项 #

• 确保模块顶部的Private mIsUserUpdate As Boolean声明在表单模块的通用声明段（所有事件和过程之外）。
• 如果表单有其他可能触发保存的操作（比如切换记录），这个标志机制依然能拦截自动保存，只有通过你的SaveTabs函数才能触发合法保存。

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