MS Access窗体锁定编辑：添加解锁按钮后无法新增记录

这个问题我太熟了！你遇到的核心坑是Form_Current事件的触发时机——每次切换记录（包括你刚要新增的空白记录），这个事件都会重新执行，把你通过解锁按钮打开的新增权限又给强制关掉了！

问题根源 #

当你点击解锁按钮设置AllowAdditions = True后，试图新增记录时，Access会触发Form_Current事件（因为要切换到新的空白记录），而你的原始代码里这个事件会把所有权限重置为False，导致新增操作被直接阻止。

解决方案：用窗体级变量控制权限状态 #

我们需要一个“开关变量”来标记当前窗体是否处于解锁状态，让Form_Current事件根据这个开关动态调整权限，而不是硬编码为只读。

1. 定义窗体级变量

打开窗体的代码编辑器，在所有事件之外的顶部通用声明区域，添加一个私有变量：

Private isUnlocked As Boolean ' 标记窗体是否处于解锁状态

2. 修改Form_Current事件代码

把原来固定设置权限的代码，改成根据变量动态判断：

Private Sub Form_Current()
    ' 根据解锁状态动态设置窗体权限
    Me.AllowEdits = isUnlocked
    Me.AllowDeletions = isUnlocked
    Me.AllowAdditions = isUnlocked
End Sub

3. 优化解锁按钮逻辑

让按钮具备“切换锁定/解锁”的功能，同时更新按钮提示方便用户识别当前状态：

Private Sub Command110_Click()
    ' 切换解锁状态
    isUnlocked = Not isUnlocked
    
    ' 更新按钮显示文本
    If isUnlocked Then
        Me.Command110.Caption = "锁定编辑"
        MsgBox "已解锁：可编辑、删除、新增记录", vbInformation
    Else
        Me.Command110.Caption = "解锁编辑"
        MsgBox "已锁定：所有记录只读", vbInformation
    End If
    
    ' 手动触发Current事件，确保权限立即生效
    Me.Form_Current
End Sub

4. 子窗体的同步处理

因为你的子窗体也有同样的Form_Current事件逻辑，所以需要对子窗体做同步修改：

• 在子窗体的通用声明区添加Private isUnlocked As Boolean
• 修改子窗体的Form_Current事件代码，和主窗体逻辑一致
• 或者更简便的方式：在主窗体的解锁按钮里，直接同步设置子窗体的权限：

  ' 在主窗体Command110_Click里添加以下代码，替换成你的子窗体控件名称
  Me.子窗体控件名称.Form.AllowEdits = isUnlocked
  Me.子窗体控件名称.Form.AllowDeletions = isUnlocked
  Me.子窗体控件名称.Form.AllowAdditions = isUnlocked
  

  注意：这里的「子窗体控件名称」是主窗体上承载子窗体的那个控件的名字，不是子窗体本身的名称，别搞混了！

为什么这样有效？ #

当你点击解锁按钮，isUnlocked变量变为True，之后无论Form_Current事件触发多少次（包括切换到新增的空白记录），都会根据这个变量保留编辑/新增权限；点击锁定时，变量变回False，所有权限自动关闭，完美解决了误修改防护和新增失效的矛盾问题。

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