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 

: 여기

내 코드의 fill_boxes.Controls

fill_boxes을 각 CTL 들어

은 내가 어떻게 할 보고서의 이름이 보고서를 열 때 모든 직사각형을 빨간색으로 만들려면 코드를 조정하십시오. /?

Answer 1

사각형의 BackStyle이 Transparent 또는 Normal - Normal로 설정되어 있는지 여부는 내용의 색상을 지정하려는 경우에 원하는 것입니다.

ctl.Name.BackStyle = Normal