VBA доступ: каждый Ctl в 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

Я получаю сообщение об ошибке, ОБЯЗАТЕЛЬНО ОБЪЕКТИВНО в этой строке: Для каждого ctl In fill_boxes.Controls

fill_boxes - название отчета

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

Answer 1

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

ctl.Name.BackStyle = Normal