Adding events at runtime

[bonecone]

I Loop through my controls with the following code



Dim Ctrl As Control

For Each Ctrl In Form_frmName
Some Code Here
Next Ctrl

And I want the "Some Code Here" section to add a Got Focus event to each of my textboxes. I tried using the Add Handler method but it isn't recognized in Access 2007. I read about the CodeModule property, which allows you to just add code directly, line by line, but I can't figure out the proper syntax for using it in Access. Could only find instructions on using it in Excel.

These are NOT dynamically generated textboxes, if that matters. Any help at all would be great at this point. Thanks!

[ChrisO]

You did not say what you want to do in the GotFocus event but I will assume it will be the same for all Text Boxes.

The following code will pass a pointer to each text box to a common got focus event handler when each text box receives the focus.

Private Sub Form_Open(ByRef intCancel As Integer)
    Dim ctl As Control
    
    For Each ctl In Me
        If ctl.ControlType = acTextBox Then
            ctl.OnGotFocus = "=HandleGotFocus([" & ctl.Name & "])"
        End If
    Next ctl

End Sub


Private Function HandleGotFocus(ByRef ctl As Control)

    MsgBox ctl.Name

End Function

Chris.

[bonecone]

Thanks Chris! That worked perfectly!