Subform focus

[cdo3]

I have a form with a subform. On the subform I have a small box with a bock color of red. I want the box to turn green when the user has clicks on any control on the subform. I can't get the main form or subform gotfocus of lostfocus events to work. Can some one help me with this.

 

[Databaseguy]

Form3 = Main Form
Form1 = Sub form
BOX11 = Rectangle on subform with background set to red

You'll have to do this for each control, or, make a public function and call it from each control (Saves typing)

Private Sub Text0_GotFocus()
Forms("form3&quot("form1&quot.Form.Controls("Box11&quot.BackColor = 11
End Sub

Private Sub Text0_LostFocus()
Forms("form3&quot("form1&quot.Form.Controls("Box11&quot.BackColor = 255
End Sub