vba访问：report.controls中的每个Ctl

Question

我需要在报表打开时将表单上的所有矩形都设为红色。我该怎么做？

这是我的代码：

Private Sub Report_Load()
    For Each ctl In fill_boxes.Controls
            If ctl.Name = acRectangle Then
                ctl.Name.BackColor = "#ED1C24"
            End If
    Next ctl
End Sub

我收到此行所需的错误对象：For each ctl in fill_boxes.Controls

fill_boxes是报告的名称

我如何调整代码以使报表打开时所有矩形变为红色？

Answer 1

矩形的BackStyle是否设置为Transparent或Normal - 如果要为其内容着色，则为Normal。

ctl.Name.BackStyle = Normal