MS Access分割窗体绑定双击事件后集合异常及运行时错误解决问询

问题核心成因 #

• 对Split Form的底层实现存在普遍认知偏差：它并非同一个窗体对象在两种视图间切换，而是Access渲染时自动生成的两个平行独立的Form子实例，两个实例共享同一套记录源，但各自拥有完全独立的模块级变量空间。
• VBA语法细节放大了这个结构的坑：模块级声明的Dim PersColl As New Collection带自动实例化的New关键字，不会在模块初始化时就创建集合对象，而是第一次代码引用该变量时才触发对象新建。这就导致两个平行Form子实例，在第一次各自引用本地PersColl变量时，都会独立执行一次New Collection，最终生成两个完全独立、无内存关联的集合实例。
• 所有异常本质都是事件触发的对象错位导致的：
  • 双击下方数据表字段的操作，触发的是数据表侧Form子实例的事件过程，操作的是它自己持有的那份PersColl，所有双击添加的记录都存在这个独立集合里
  • 窗体视图上的添加、移除、清空按钮，触发的是上方窗体侧Form子实例的事件过程，操作的是完全独立的另一份PersColl
  • 移除按钮执行时，因为操作的集合里根本没有对应记录的键，直接触发运行时错误5
  • 清空按钮仅将上方实例的集合设为Nothing，下方实例的集合完全不受影响，因此后续重复添加时，下方集合的键校验会识别出已存在的记录，弹出自定义的重复提示
  • 列表框加载历史残留记录，本质是两个实例的控件引用在操作时出现错位，遍历了非当前实例的集合内容完成了列表填充。

适配需求的可行解决方案（无需将代码迁出窗体模块） #

方案1：利用窗体容器的公共Tag属性存储集合单实例 #

彻底抛弃模块级变量带New的自动实例化写法，改用顶层窗体的公共属性作为集合的统一存储位，让两个平行子实例都能拿到同一个集合引用：

1. 修改模块顶部的集合声明，去掉New关键字：

   ' 不带New，避免子实例各自触发独立的集合创建
   Dim PersColl As Collection
   

2. 在窗体的Load事件中做单实例初始化：

   Private Sub Form_Load()
       ' 统一从顶层容器的Tag属性取已存在的集合引用
       If TypeOf Me.Parent.Tag Is Collection Then
           Set PersColl = Me.Parent.Tag
       Else
           ' 第一次初始化时，把集合对象存在顶层容器的Tag里，作为唯一存储位
           Set PersColl = New Collection
           Set Me.Parent.Tag = PersColl
       End If
   End Sub
   

   这个方案完全不需要新建标准模块，不管哪个平行子实例触发事件，取到的都是同一个内存地址的集合对象，所有增删改操作都不会出现错位。

方案2：跨实例显式引用主窗体的公共过程 #

调整双击事件的代码逻辑，不依赖当前子实例的本地变量，而是显式指定操作主窗体（上方窗体视图）的集合和控件：

1. 将主窗体中原本为Private的AddPersToColl、FillListbox过程的访问权限改为Public，允许跨实例调用。
2. 修改数据表字段的双击事件代码，强制引用主窗体的逻辑：

   Private Sub Nachname_DblClick(Cancel As Integer)
       Dim MainForm As Form
       ' 拿到Split Form主窗体的引用，直接调用主窗体自己的集合操作逻辑
       Set MainForm = Me.Parent
       MainForm.AddPersToColl Me!ID
       MainForm.FillListbox
   End Sub
   

   这种写法下，所有的添加操作最终都会落到主窗体实例持有的集合上，不会触发生成独立的子实例集合。

方案3：改用手动搭建的等效Split结构 #

如果上述方案调试成本过高，可以把Access自动生成的Split Form结构，替换为手动搭建的等效结构：主窗体上放置一个独立的子窗体控件，子窗体设置为数据表视图，数据源和原有的数据表视图保持一致。这种结构下主窗体和子窗体是明确的父子从属关系，不会出现Split Form自动生成双平行实例的问题，所有业务代码依然可以全部保留在主窗体模块中。

你之前测试的将集合声明到独立标准模块的方案之所以可用，本质是标准模块的变量是全局单实例，无论哪个子实例触发，拿到的都是同一个集合引用，但是上述三种方案完全不需要修改代码的存储位置，即可解决双实例集合的错位问题。

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