Access拆分窗体如何禁用记录编辑但保留按钮、组合框等控件功能？

我来分享一下针对这个Access窗体需求的解决方案和踩坑经历：

需求背景 #

我有一个基于客户属性表创建的拆分窗体，顶部包含若干按钮（cmd）和组合框（cbo），核心需求是：禁用记录的编辑权限，但允许正常使用按钮和组合框。

尝试过的方案及问题 #

• 直接设置Me.AllowEdits = False
  这是最常规的禁用编辑方法，但设置后按钮的On_Click事件完全无法触发，按钮和组合框也失去了交互能力，完全不符合需求。

• 通过GetFocus/LostFocus临时切换AllowEdits
  初步测试有效果：点击控件时触发GetFocus启用编辑，离开控件时触发LostFocus恢复锁定。但存在致命漏洞——如果用户操作完控件后直接去编辑记录，LostFocus事件不会触发，记录会一直处于可编辑状态，无法达到锁定目的。

• 逐个锁定字段控件
  理论上可行，但当窗体包含大量字段和按钮时，操作极其繁琐，后续维护成本也很高，完全不实用。

最优方案：切换RecordsetType属性 #

在社区帮助下，动态切换窗体的RecordsetType被认定为最优解：

• 当设为**Snapshot（快照）**时，记录集变为只读状态，无法编辑记录，但按钮、组合框等控件的交互完全不受影响；
• 需要编辑记录时，再切换回**Dynaset（动态集）**即可。

遇到的新限制 #

测试时发现一个奇怪的问题：在窗体AfterUpdate事件中设置Me.RecordsetType = Snapshot后，记录仍然可以编辑——我的需求是每次完成编辑后自动重新锁定编辑模式，但这个设置并没有生效。

临时绕过方案 #

目前我采用了通过临时变量触发锁定的绕过方案，代码如下：

Private Sub Form_AfterUpdate()
    ' 记录更新后标记需要锁定
    TempVars("AftUpd") = True
End Sub

Private Sub Form_Current()
    ' 在当前记录加载时执行锁定操作
    If TempVars("AftUpd") = True Then
        TempVars.Remove ("AftUpd") ' 清除标记，避免重复触发
        tbuAllowEdit.Value = False ' 切换编辑按钮状态
        Call tbuAllowEdit_Click ' 触发按钮点击事件完成锁定（切换为Snapshot模式）
    End If
End Sub

这个方案可以正常实现需求，但我至今不清楚为什么Snapshot模式在AfterUpdate事件中无法直接生效，如果有了解原因或修复方法的朋友，欢迎留言分享！

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