最小化Access主窗口时如何保持自定义弹出窗体不被同步最小化

问题根因 #

Access默认所有弹出窗体的父窗口句柄都绑定到Access主窗口，系统会将子窗口的状态与父窗口同步，因此主窗口最小化时弹出窗体会被同步隐藏。

解决方案步骤 #

1. 补充API声明 #

在你现有的代码模块中，加入以下适配32/64位Access的API声明，用于修改窗体的父窗口绑定：

' 新增API声明，和原有全局常量、apiShowWindow声明放在同一模块即可
#If VBA7 Then
    Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As LongPtr
    Private Declare PtrSafe Function apiSetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As LongPtr, ByVal hWndNewParent As LongPtr) As LongPtr
#Else
    Private Declare Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
    Private Declare Function apiSetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
#End If

2. 修改弹出窗体的加载事件 #

在弹出窗体的Form_Load事件中，先执行父窗口修改逻辑，再调用原有最小化主窗口的函数：

Private Sub Form_Load()
    ' 将当前窗体的父窗口设为系统桌面，脱离Access主窗口控制
    apiSetParent Me.hwnd, apiGetDesktopWindow()
    ' 保留原有最小化Access主窗口的调用
    fSetAccessWindow SW_SHOWMINIMIZED
End Sub

3. 可选：补充窗体卸载逻辑（避免进程残留） #

为了防止关闭窗体后Access主窗口一直处于最小化状态、残留在后台进程，建议在窗体的Form_Unload事件中添加主窗口恢复代码：

Private Sub Form_Unload(Cancel As Integer)
    ' 关闭自定义窗体时恢复Access主窗口显示
    fSetAccessWindow SW_SHOWNORMAL
End Sub

注意事项 #

• 必须保持窗体的Pop Up属性为Yes，否则修改父窗口的操作不会生效
• 建议将窗体的Modal属性设为No，避免模态限制导致操作异常
• 修改父窗口后，窗体的数据源绑定、VBA逻辑都可以正常运行，不受影响

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