Formatting Text colour on resul

[CraigR]

Hi and thanks for any help provided



I have a yes/no field. name "Preferred1"
I then have field. Name "Mobile1"
& field. Name "Email1"

I would like to change the font colour for Mobile1 & Email1 from Black to #D8D8D8 if Preferred1 is checked Yes

Private Sub Prefer1_AfterUpdate()
If Me.Prefer1 = "No" Then
Me.Mobile1 = "#D8D8D8" 'Text becomes grey if Prefer1 is not checked
Me.Email1 = "

#D8D8D8"

Else
If Me.Prefer1 = "Yes" Then

Me.Mobile1 = "#000000" 'Text stays black If Prefer1 is checked
Me.Email1 = "

#000000

"

End If
End Sub

[Micron]

you want to apply any color value to the Forecolor property of the control: Me.Mobile1.Forecolor =
and I think remove the quotes as the value is not text. You will find it easier to use the RGB method as opposed to the hex value as it has to be tweaked as in
Val("&H" & "FFFFFF"). You can also use vb color constants like vbGreen.

Or just use conditional formatting.

[June7]

Using VBA to set property will affect all instances of control. So if form is in Continuous or Datasheet, all records will show same color. Use Conditional Formatting.