vba access: each Ctl in report.controls

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 

я получаю объект ошибки ТРЕБУЕТСЯ на этой линии: Для каждого ЦТЛ fill_boxes.Controls

fill_boxes это название доклада

Как я настроить код, чтобы все прямоугольники были красными при открытии отчета /?

Answer 1

Является ли BackStyle на прямоугольнике равным Прозрачный или Обычный - Обычный - это то, что вы хотите, если хотите покрасить его содержимое.

ctl.Name.BackStyle = Normal