[AccessD] Code help Please

I still do not understand public modules

 

I have the following code for a set of text boxes

 

Private Sub txtFirstName_GotFocus()

Dim lngwhite As Long

lngwhite = RGB(255, 255, 255)

Me.txtFirstName.BackColor = lngwhite

Me.txtFirstName.SpecialEffect = 1

End Sub

 

Private Sub txtFirstName_LostFocus()

Dim lngyellow As Long

lngyellow = RGB(255, 255, 0)

Me.txtFirstName.BackColor = RGB(255, 255, 0)

Me.txtFirstName.SpecialEffect = 2

End Sub

 

How do I make modules that will trigger as each text box
gets and loses focus?

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net