Access 2007自定义事件异常求助：压缩修复/编译ACCDE后失效

我来帮你解决这个Access 2007自定义事件失效的问题——这个坑我之前也踩过，核心问题出在标准模块静态对象的生命周期和事件绑定的稳定性上。下面是具体的分析和解决方案：

问题根源 #

你用标准模块的Static变量维护Controller的单例实例，虽然首次运行正常，但压缩修复数据库或编译为ACCDE后，Access会重置模块级静态变量的状态，导致窗体中WithEvents声明的mController引用的是旧的实例（或事件订阅关系被破坏）。当你通过objController获取新的实例并修改PropertyA时，触发的是新实例的EventA，但窗体的事件处理过程并没有订阅这个新实例的事件，所以毫无响应。

解决方案 #

我们需要重构单例实例的维护方式，同时确保窗体的事件绑定始终有效：

1. 重构Controller类为类内维护的单例 #

把单例实例的管理从标准模块移到Controller类内部，使用Shared变量（Access 2007及以上支持）来维持全局唯一实例，这样实例的生命周期更稳定：

' Controller类模块代码
Private Shared mInstance As Controller
Public Event EventA()
Private mPropertyA As String

' 获取单例实例的属性
Public Property Get Instance() As Controller
    If mInstance Is Nothing Then
        Set mInstance = New Controller
    End If
    Set Instance = mInstance
End Property

Public Property Let PropertyA(RHS As String)
    mPropertyA = RHS
    RaiseEvent EventA
End Property

Public Property Get PropertyA() As String
    PropertyA = mPropertyA
End Property

Private Sub Class_Initialize()
    ' 确保实例初始化时正确绑定到Shared变量
    If mInstance Is Nothing Then
        Set mInstance = Me
    End If
End Sub

2. 修改窗体代码，确保事件绑定实时有效 #

原来的Form_Load只绑定一次实例，现在需要在窗体激活时检查并更新引用，保证始终订阅最新的单例实例：

' 窗体模块代码
Private WithEvents mController As Controller

Private Sub Form_Load()
    ' 初始化绑定单例实例
    Set mController = Controller.Instance
End Sub

' 每次窗体激活时检查引用，确保事件绑定有效
Private Sub Form_Activate()
    If Not (mController Is Controller.Instance) Then
        Set mController = Controller.Instance
    End If
End Sub

' 事件处理过程
Private Sub mController_EventA()
    Me!PropertyA = mController.PropertyA
End Sub

' 树节点点击事件修改属性
Private Sub tvwRDS_NodeClick(ByVal node As Object)
    Controller.Instance.PropertyA = node.Key
End Sub

3. 验证修复效果 #

完成重构后，无论是压缩修复数据库还是编译为ACCDE，只要重新打开数据库，窗体的Form_Load和Form_Activate会重新执行，绑定最新的单例实例，此时点击树节点修改PropertyA，EventA会正常触发，主窗体控件也会更新。

内容的提问来源于stack exchange，提问作者D.C.