如何编程执行动态编写的代码？Access 2016动态窗体代码运行异常求助

根本原因 #

手动关闭窗体时，Access会自动触发VBA工程全量模块状态刷新，所有动态创建的窗体模块和类实例的绑定关系会被重置。而程序化关闭窗体默认仅卸载窗体界面，不会刷新VBA工程的模块绑定缓存，导致动态窗体的模块修改和类实例化逻辑无法正常加载。

修复步骤 #

• 把ALFA窗体的重启逻辑迁移到独立标准模块，不要在ALFA窗体自身的代码中执行关闭+重启操作，避免窗体卸载时上下文丢失。
• 关闭窗体前强制保存所有修改过的对象，同时触发VBA工程状态刷新，参考代码：

' 标准模块代码
Public Sub RestartALFAForm()
    ' 先保存所有动态创建的窗体和模块修改
    DoCmd.Save acForm, "ALFA"
    Application.VBE.ActiveVBProject.Save
    
    ' 关闭ALFA窗体
    DoCmd.Close acForm, "ALFA", acSaveYes
    
    ' 加入短延迟处理缓存清空
    Dim waitStart As Single
    waitStart = Timer
    Do While Timer < waitStart + 0.15
        DoEvents
    Loop
    
    ' 重新打开ALFA窗体
    DoCmd.OpenForm "ALFA"
End Sub

• 调整ALFA窗体的类实例化逻辑位置：把原本在Form_Load事件中的类实例化代码，迁移到Form_Activate事件中，每次触发时先清空原有类实例引用再重新初始化，避免残留对象干扰。
• 如果动态创建的窗体修改过模块代码，每次修改完成后调用 Application.SaveAsText acForm, "你的动态窗体名称", "NUL" 强制刷新模块状态，该操作不会生成实际磁盘文件，仅触发Access内部的模块缓存更新。

注意事项 #

调试前先手动对VBA工程执行一次全量编译（VBA编辑器菜单→调试→编译），排除隐藏的编译错误导致的模块加载失败。

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