vba - 无法获得子表单上标签的 BackColor 以反映新颜色 --- 即使我首先将 BackStyle 更改为“1”并重新绘制表单

Question

我很困惑为什么 MS Access 子窗体上标签的背景颜色不会在视觉上更新。我写了一些代码先将 BackStyle 更改为“1”，然后更改 BackColor 的颜色。我进行了测试，发现 BackStyle 和 BackColor 实际上已经在系统中更新，但在属性表中没有更新——它仍然显示 BackStyle 为“0”，BackColor 为默认颜色。子窗体上标签的颜色也保留默认颜色。我也没有收到任何错误消息，但这并不意味着我没有把事情搞砸。我什至尝试重新绘制表单以查看是否可以解决问题，但无济于事。下面是简单的代码：

Dim frm As Form
Dim ctl As Control


Set frm = Me![subfrm_Review Forecast Totals].Form

For Each ctl In frm.Controls

    If ctl.ControlType = acLabel And ctl.Name = "2020-12-25_Label" Then    
       
        ctl.BackStyle = 1
        ctl.BackColor = vbGreen      
                    
    End If

Next ctl

Me.Repaint

结束子

标签： vbams-accesslabelsubformbackcolor