Change field color on form using "On Got Focus" and "On Lost Focus"

[Treeivery]

I've got a data entry form for end users that I would like to enhance with some code to change the color of fields when the user tabs to or places cursor.
I've successfully used code in one database that I found at http://www.allenbrowne.com/highlight.html. However, the code is not working or a second database that I tried.


Treeivery

[ranman256]

'on got focus
txtBox.backcolor = vbyellow

'on lost focus
txtBox.backcolor = vbWhite

[Bob Fitz]

No code required if you use conditional formatting

[wvmitchell]

I have a sub in the code-behind for the form:

Private Sub Highlight()
On Error Resume Next
Me.ActiveControl.BackColor = vbYellow
Screen.PreviousControl.BackColor = vbWhite
End Sub

and then I add the GotFocus event to every control on the form that is Enabled; like this:

Private Sub txtFees_GotFocus()
Highlight
End Sub

You just have to make sure that the BackStyle property is set to Normal, not Transparent.