VBA：如何让子选项卡仅显示在主选项卡指定页面？代码是否合规？

当前代码的问题分析 #

你的代码核心逻辑（通过TabCtl11_Change事件控制子选项卡显示/隐藏）可以实现需求，但存在冗余和潜在风险：

• Form_Load中重复执行Me.TabCtl206.visible = False、SetAllControlsEnabled等操作，冗余代码增加维护成本
• TabCtl206_Change事件仅启用当前页控件，未禁用其他页面控件，会导致多页面控件同时可编辑
• SearchAndPopulate函数直接拼接用户输入到SQL语句，存在SQL注入风险
• SetBtnLeftSideBar中的i变量未显式声明，属于隐式声明，易引发逻辑错误
• 依赖控件名称的硬编码（如B1、P1），后续修改控件名称会导致代码失效

规范实现步骤 #

1. 先解决布局根源问题 #

Access中选项卡控件的子页面默认会隔离内部控件，出现子选项卡跨页面显示的核心原因是：TabCtl206的父控件是表单，而非TabCtl11的Page3。

解决方法：

• 打开表单设计视图，选中TabCtl206，执行剪切操作
• 选中TabCtl11的第3页（索引从0开始对应Value=2），执行粘贴操作
• 确认TabCtl206的Parent属性是TabCtl11.Pages(2)（可通过VBA调试窗口?Me.TabCtl206.Parent.Name验证）

这种方式不需要代码控制，从布局层面彻底解决问题，是最优方案。

2. 布局调整后的代码优化（兼容特殊情况） #

如果布局调整后仍存在控件跨页显示的bug（部分旧版本Access偶发），再用代码辅助控制，优化后的代码如下：

Option Compare Database
Option Explicit ' 强制变量显式声明，避免隐式错误

Private Sub btnSearch_Click()
    SearchAndPopulate
End Sub

Private Sub Form_Load()
    ' 初始化主选项卡默认页
    Me.TabCtl11.Value = 0
    
    ' 初始化子选项卡状态：仅在主选项卡第3页显示
    Me.TabCtl206.Visible = (Me.TabCtl11.Value = 2)
    
    ' 初始化子选项卡控件状态：仅启用默认页控件
    SetAllControlsEnabled False
    SetControlsEnabledOnPage "Personal_Infor", True
    
    ' 最大化表单
    DoCmd.Maximize
End Sub

Private Sub SetAllControlsEnabled(enabled As Boolean)
    Dim i As Integer
    For i = 0 To Me.TabCtl206.Pages.Count - 1
        SetControlsEnabledOnPage Me.TabCtl206.Pages(i).Name, enabled
    Next i
End Sub

Private Sub SetControlsEnabledOnPage(pageName As String, enabled As Boolean)
    Dim ctrl As Control
    On Error Resume Next
    For Each ctrl In Me.TabCtl206.Pages(pageName).Controls
        ' 跳过选项卡控件本身，避免误操作
        If Not TypeOf ctrl Is TabControl Then
            ctrl.Enabled = enabled
        End If
    Next ctrl
    On Error GoTo 0
End Sub

Private Function SetBtnLeftSideBar()
    Dim Ax As Integer ' 用Integer替代Single，控件索引为整数
    Dim i As Integer ' 显式声明变量
    Dim defaultColor As Long
    
    Ax = CInt(Mid(Me.ActiveControl.Name, 2))
    defaultColor = RGB(45, 80, 143)
    
    ' 重置所有侧边栏按钮颜色
    For i = 1 To 9
        Me("B" & i).BackColor = defaultColor
    Next
    
    ' 设置当前激活按钮颜色
    Me.ActiveControl.BackColor = RGB(100, 150, 200)
    
    Me("P" & Ax).SetFocus
    LB0.Caption = Me("B" & Ax).Caption
End Function

Private Sub TabCtl11_Change()
    ' 仅在主选项卡第3页显示子选项卡
    Me.TabCtl206.Visible = (Me.TabCtl11.Value = 2)
    
    ' 切换主选项卡时，重置子选项卡到默认页
    If Me.TabCtl206.Visible Then
        Me.TabCtl206.Value = 0
        SetAllControlsEnabled False
        SetControlsEnabledOnPage "Personal_Infor", True
    End If
End Sub

Private Sub TabCtl206_Change()
    ' 切换子选项卡时，仅启用当前页控件，禁用其他所有页
    SetAllControlsEnabled False
    SetControlsEnabledOnPage Me.TabCtl206.Pages(Me.TabCtl206.Value).Name, True
End Sub

Private Sub txtSearch_AfterUpdate()
    SearchAndPopulate
End Sub

Private Sub SearchAndPopulate()
    Dim searchCriteria As String
    Dim strSQL As String
    
    searchCriteria = Nz(Me.txtSearch.Value, "")
    If searchCriteria = "" Then
        ' 搜索框为空时显示全部数据
        strSQL = "SELECT * FROM tblPersonnel;"
    Else
        ' 使用参数化查询避免SQL注入
        strSQL = "SELECT * FROM tblPersonnel WHERE PersonnelID = ?;"
        ' 执行参数化查询
        Dim qdf As QueryDef
        Set qdf = CreateQueryDef("", strSQL)
        qdf.Parameters(0) = searchCriteria
        Me.RecordSource = qdf.SQL
        Set qdf = Nothing
        Exit Sub
    End If
    
    Me.RecordSource = strSQL
    Me.Refresh
    Debug.Print "SQL Query: " & strSQL
End Sub

关键优化点说明 #

• 添加Option Explicit强制变量声明，避免隐式错误
• 修复SearchAndPopulate的SQL注入问题，改用参数化查询
• 完善TabCtl206_Change事件，确保切换子选项卡时仅当前页控件可用
• 清理Form_Load中的冗余代码，简化初始化逻辑
• 显式声明所有变量，避免未声明变量导致的逻辑错误

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