Change Label Color on Focus or Enter

[vandido626]

I'm trying to change the backcolor of a label when I select its data entry field but cant seem to get it right.

I place the code below on the On Enter and also tried it on the On Got Focus property of the text box an nothing.....can someone help me out?

Private Sub GreenBack()
Dim Green As Long
Green = RGB(0, 128, 0)
Me.Label5.BackColor = Green
End Sub

 

[vandido626]

ok, solved the issue by modifying the code in this link
http://support.microsoft.com/kb/210263

 

[nIGHTmAYOR]

Yes you can use a 20 line code posted on microsoft OR :

Private Sub GreenBack()
Dim Green As Long
Green = RGB(0, 128, 0)
Me.Label5.BackStyle = 1   ' Changeing Backstyle to Normal so you can edit BackColor ;)
Me.Label5.BackColor = Green
End Sub

 

[vandido626]

Yes you can use a 20 line code posted on microsoft OR :

Private Sub GreenBack()
Dim Green As Long
Green = RGB(0, 128, 0)
Me.Label5.BackStyle = 1   ' Changeing Backstyle to Normal so you can edit BackColor ;)
Me.Label5.BackColor = Green
End Sub

OH .backstyle=1

thanks!