Access VBA需求：关闭所有子窗体后最大化/打开F_StartUp主窗体

我的Access数据库包含多个窗体，主菜单窗体为F_StartUp。点击主菜单上的按钮打开其他窗体时，F_StartUp会被最小化。现在需要编写VBA代码，实现当所有其他窗体关闭时，自动最大化或重新打开F_StartUp。

以下是我目前编写的代码：

Option Explicit

Sub openstartup()
    Dim frm As Object
    Dim isF_InPutOpen As Boolean
    Dim isF_CarriersOpen As Boolean
    Dim isF_InvOpen As Boolean
    Dim isF_QuoteOpen As Boolean

    ' Initialize variables to False
    isF_InPutOpen = False
    isF_CarriersOpen = False
    isF_InvOpen = False
    isF_QuoteOpen = False

    For Each frm In CurrentProject.AllForms
        If frm.IsLoaded Then
            If frm.Name = "F_InPut" Then
                isF_InPutOpen = True
            ElseIf frm.Name = "F_Carriers" Then
                isF_CarriersOpen = True
            ElseIf frm.Name = "F_Inv" Then
                isF_InvOpen = True
            ElseIf frm.Name = "F_Quote" Then
                isF_QuoteOpen = True
            End If
        End If
    Next frm

    ' Check the status of each form
    If isF_InPutOpen Then
        ' Code to be executed when F_InPut is open
    End If

    If isF_CarriersOpen Then
        ' Code to be executed when F_Carriers is open
    End If

    If isF_InvOpen Then
        ' Code to be executed when F_Inv is open
    End If
    '
    If isF_InvOpen Then
        ' Code to be executed when F_Quote is open
    End If
    'This will call macro module which will open 'F_StartUp'
    Call "workeddddd"
End Sub

代码改进方案 #

原代码存在扩展性差（新增窗体需修改判断逻辑）、逻辑错误（最后一个判断误写为isF_InvOpen）、Call "workeddddd"语法错误等问题。以下是更简洁可靠的实现：

1. 通用检查恢复过程

将这段代码放在标准模块中：

Option Explicit

Sub CheckAndRestoreMainForm()
    Dim frm As Object
    Dim openChildFormsCount As Integer
    
    openChildFormsCount = 0
    
    ' 遍历所有已加载窗体，统计非主菜单的窗体数量
    For Each frm In CurrentProject.AllForms
        If frm.IsLoaded And frm.Name <> "F_StartUp" Then
            openChildFormsCount = openChildFormsCount + 1
        End If
    Next frm
    
    ' 无任何子窗体打开时，恢复主菜单
    If openChildFormsCount = 0 Then
        With Forms
            If .Exists("F_StartUp") Then
                ' 主菜单已加载，直接最大化
                .Item("F_StartUp").WindowState = acMaximize
            Else
                ' 主菜单未加载，重新打开
                DoCmd.OpenForm "F_StartUp", WindowMode:=acWindowNormal
            End If
        End With
    End If
End Sub

2. 绑定到子窗体的关闭事件

打开每个子窗体的设计视图，找到窗体的**关闭(Close)**事件，选择「事件过程」并进入VBA编辑器，在Form_Close过程中调用上面的子过程：

Private Sub Form_Close()
    CheckAndRestoreMainForm
End Sub

改进说明 #

• 扩展性强：新增子窗体时，只需在新窗体的Close事件中调用CheckAndRestoreMainForm，无需修改检查逻辑
• 逻辑简洁：通过统计非主窗体的数量判断是否需要恢复主菜单
• 覆盖两种场景：处理主菜单已最小化（直接最大化）和被意外关闭（重新打开）的情况

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