Hi
I have an application in A2007 & I want to re-brand elements on the forms with a different color. This will apply to a range of header/footer backgrounds, text, labels, lines etc. I have looked at a range of options, and tried to get a solution to work, but (as I'm not good with VBA) without success. Where am I going wrong please? The code i have been using is:
Code:
Private Sub Command0_Click()
Dim ao As AccessObject
Dim ctl As control
For Each ao In CodeProject.AllForms
DoCmd.OpenForm ao.Name, acDesign
With Forms(ao.Name)
If ctl.ControlType = acHeader Then
.Item.BackColor = RGB(0, 120, 144)
End If
' Repeated for each relevant item as necessary
End With
DoCmd.Close acForm, ao.Name, acSaveYes
Next ao
End Sub
Thanks