MS Access | Объекты | Контрол (Control): пример работы с объектом

Пример работы с объектом: указанной форме перекрасить все контролы (например, в красный цвет на желтом фоне)

Sub PaintLabels(frmname As String)

Dim ctl As Control

'ctl - перебираемые контролы, типа 'Контрол'

For Each ctl In Forms(frmname).Controls

  If ctl.ControlType = acLabel Then

       ctl.ForeColor = 255

       ctl.BackStyle = 1

      '1 - нормальный, 0 - прозрачный

       ctl.BackColor = 65535

  End If

Next

End Sub