Access窗体中实现同页面同标题子类别切换按钮批量控制

核心优化思路 #

把硬编码的通用过程改成带参数的动态逻辑，让它自动识别触发点击的主按钮所在页面、标题和状态，精准同步对应子按钮，实现一份代码适配所有主按钮。

优化后的通用过程 #

Private Sub ToggleMatchingSubGenres(ByVal sender As ToggleButton)
    Dim ctrl As Control
    Dim parentPage As Page
    
    ' 获取主按钮所在的选项卡页面
    Set parentPage = sender.Parent
    
    ' 遍历当前页面内的所有控件
    For Each ctrl In parentPage.Controls
        ' 筛选：Tag为Subgenre 且 标题与主按钮一致的子切换按钮
        If ctrl.Tag = "Subgenre" And ctrl.Caption = sender.Caption Then
            ' 同步主按钮的选中状态
            ctrl.Value = sender.Value
        End If
    Next ctrl
End Sub

主按钮点击事件的统一调用方式 #

所有主切换按钮的点击事件都用以下格式编写，把自身作为参数传入通用过程即可：

Private Sub tglSeason_BatALL_Click()
    ToggleMatchingSubGenres Me.tglSeason_BatALL
End Sub

Private Sub tglTeam_BatALL_Click()
    ToggleMatchingSubGenres Me.tglTeam_BatALL
End Sub

' 其他主按钮的点击事件直接复制上述格式，替换对应按钮名称即可

关键改进点 #

• 动态识别页面：通过sender.Parent自动获取主按钮所在的选项卡页面，无需硬编码页面名称（比如原来的pgeBatting）
• 精准匹配子按钮：增加ctrl.Caption = sender.Caption条件，只同步和主按钮标题完全一致的子按钮
• 简化状态同步：直接用sender.Value赋值，替代原来嵌套的If判断，代码更简洁
• 高复用性：所有主按钮都可以复用同一个通用过程，新增按钮时只需添加一行调用代码即可

内容的提问来源于stack exchange，提问作者L'le Tom