Access窗体编辑字段值时意外切换数据集的故障求助

按优先级从高到低排查以下常见根因，90%以上的同类问题都是前两项配置错误导致的：

• 首先排查窗体记录集的可更新配置问题
  打开窗体设计视图，选中窗体后在属性表「数据」分类下检查两个配置：
  1. 记录集类型不要选「动态集（不一致更新）」，先改成「动态集（一致更新）」测试。如果你的窗体记录源是多表关联查询，必须确认查询已正确返回基表的主键ID字段，同时把查询属性的唯一记录设为“是”，否则Access编辑时无法正确锚定当前记录，会出现指针随机漂移。
  2. 如果记录源设置了排序规则，确认排序字段是有唯一值的（比如主键ID），如果排序基于有重复值的字段，编辑触发记录集重排时，Access会自动把当前指针移到排序后同值的第一条记录，看起来就像跳到了无关数据集。
• 排查隐式触发的事件逻辑
  你提到两句代码之间没有其他逻辑，但是Access的控件、窗体事件会在赋值时自动触发，很多残留的测试代码会导致记录跳转：
  1. 逐行检查被编辑字段（Column1）的BeforeUpdate/AfterUpdate事件、窗体的Current/BeforeUpdate事件、“alter”解锁按钮的点击事件中，有没有写Requery、FindFirst、GoToRecord这类移动记录指针、刷新记录集的代码，哪怕是注释掉的测试代码也要确认没有生效。
  2. 快速验证方法：在所有相关事件的第一行加Debug.Print "触发事件：" & CodeContextObject.Name & "_" & 事件过程名，运行操作看立即窗口，就能抓到赋值操作偷偷触发了哪个隐藏逻辑。
• 检查主键与绑定配置
  打开对应基表的设计视图，确认作为主键的ID字段是自动编号类型，且索引属性设为「有（无重复）」，不要出现主键值重复的情况；同时确认窗体上的ID控件已正确绑定到表的ID字段，没有误绑其他字段、也没有被其他逻辑偷偷赋值。
• 排查记录锁配置问题
  如果是拆分库架构（后端表存放在共享路径），检查窗体的记录锁定属性，先改成「已编辑的记录」测试，避免编辑时因为其他用户修改同范围数据、触发本地记录集刷新导致指针跳转。

可以用以下测试代码定位问题类型，直接把这段逻辑套到你赋值操作的前后：

Dim rs As DAO.Recordset
Dim savedBookmark As Variant
Set rs = Forms(formName).RecordsetClone
savedBookmark = Forms(formName).Bookmark

' 初始状态打印ID
Debug.Print "赋值前ID：" & Forms(formName).Controls("ID")
' 执行字段赋值
Forms(formName).Controls("Column1") = "foo"
' 赋值后打印ID
Debug.Print "赋值后ID：" & Forms(formName).Controls("ID")

' 强制回到原记录位置
rs.Bookmark = savedBookmark
Forms(formName).Bookmark = rs.Bookmark
Debug.Print "归位后ID：" & Forms(formName).Controls("ID")
Debug.Print "归位后Column1值：" & Forms(formName).Controls("Column1")

如果归位后能看到Column1的值已经成功改成"foo"，说明问题纯粹是记录指针漂移，根源在前面说的记录集配置、事件触发刷新两类问题；如果归位后Column1值没有变化，说明赋值操作根本没有写入目标记录，需要重点排查记录集的可更新权限配置。

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