如何设置MS Access中TabControl的选项卡颜色：选中为绿色未选中为灰色

MS Access的TabControl控件无法通过属性面板直接设置选中/未选中选项卡的颜色，必须借助VBA代码实现，步骤如下：

1. 前期准备 #

• 打开窗体设计视图，选中目标TabControl，记录它的控件名称（比如默认的TabCtl0）
• 右键窗体空白处→属性→切换到「其他」选项卡，将HasModule设为Yes，确保窗体可以绑定VBA代码

2. 编写VBA代码 #

按下Alt+F11打开VBA编辑器，找到对应窗体的模块，粘贴以下代码（注意替换代码中TabCtl0为你的TabControl实际名称）：

Private Sub TabCtl0_Change()
    Dim i As Integer
    ' 遍历所有选项卡
    For i = 0 To Me.TabCtl0.Pages.Count - 1
        If i = Me.TabCtl0.Value Then
            ' 选中的选项卡：设置绿色背景
            Me.TabCtl0.Pages(i).BackColor = RGB(144, 238, 144)
            ' 可选：设置选中选项卡的文字颜色
            Me.TabCtl0.Pages(i).ForeColor = RGB(0, 0, 0)
        Else
            ' 未选中的选项卡：设置灰色背景
            Me.TabCtl0.Pages(i).BackColor = RGB(211, 211, 211)
            ' 可选：设置未选中选项卡的文字颜色
            Me.TabCtl0.Pages(i).ForeColor = RGB(64, 64, 64)
        End If
    Next i
End Sub

Private Sub Form_Load()
    ' 窗体加载时初始化选项卡颜色
    Call TabCtl0_Change
End Sub

3. 关键设置验证 #

• 选中TabControl→打开「属性」面板→切换到「格式」选项卡，确保Style属性设为1 - Tabbed Pages，其他样式可能导致背景色不显示
• 可以自行调整RGB值来修改颜色：比如纯绿色用RGB(0,255,0)，深灰色用RGB(128,128,128)

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