Change color of a form depending on the value of a variable

[accote]

Hello All and Thank You for any help you can provide. I'm trying to have my form change colors depending on
the record selection. There will be 4 categories, so 4 different form colors. I can do it fine in the details section
of the form with the code below, but the FormHeader Section does not change. My Question: what can I do to
change the Header also, or what is wrong with my code below?


Private Sub cboGoToContact_Change()
strProjStatus = Me.InstitutionType

Select Case strProjStatus


Case "College"
Me.Section(acFormHeader).BackColor = RGB(77, 62, 80)
Me.Section(acDetail).BackColor = RGB(213, 204, 218)
Case "Grad School"
Me.Section(acDetail).BackColor = RGB(181, 283, 106)
Case "University"
Me.Section(acDetail).BackColor = RGB(198, 228, 220)
Case "Individual"
Me.Section(acDetail).BackColor = RGB(242, 242, 242)
End Select

End Sub

[June7]

I tested code to set the FormHeader BackColor property and it worked. Can't replicate your issue.

Could try
Me.FormHeader.BackColor = RGB(77, 62, 80)

Only want the FormHeader color to change for the value "College"?

[accote]

Hi, thanks for the reply.
It might has to do with the fact that my form is a multiple page form, with tabs?
I did try "Me.Section(FormHeader).BackColor" but that didn't work either.
I need both the header and details part of the form to change to different colors.
Weird part is if I leave only the "Me.Section(acFormHeader).BackColor" in it will
change the details section too, and never the header.

[accote]

June7, you were right on, took out the section and ac part and everything works like a charm. Thank You very much.

Working Code:

Private Sub cboGoToContact_Change()
strProjStatus = Me.InstitutionType

Select Case strProjStatus
Case "College"
Me.FormHeader.BackColor = RGB(77, 62, 80)
Me.Detail.BackColor = RGB(213, 204, 218)
Case "Grad School"
Me.FormHeader.BackColor = RGB(0, 34, 33)
Me.Detail.BackColor = RGB(198, 228, 220)
Case "University"
Me.FormHeader.BackColor = RGB(67, 66, 49)
Me.Detail.BackColor = RGB(212, 219, 199)
Case "Individual"
Me.FormHeader.BackColor = RGB(44, 23, 0)
Me.Detail.BackColor = RGB(255, 237, 217)
End Select

[June7]

Not sure what you mean by 'multiple page'.

cboGoToContact is a bound control?

Might need code in the form Current event as well as the combobox event.

My suggestion was for Me.FormHeader, not Me.Section(FormHeader). However, my suggestion will probably produce same result as your original code.

If you want to provide db for analysis, follow instructions at bottom of my post.