ActiveControl form Events - VBA

[Epidural]

I need to perform certain scripts when Me.ActiveControl changes; how might I go about this? I havn't been able to find a suitable event. This needs to be done for all controls, so writing "On Got Focus" for each event is far too tedius.

Private Sub SOME_ON_CHANGE_EVENT()
    Dim desc As String
    desc = "Description:" & vbCrLf & cbCrLf & Me.ActiveControl.Name & vbCrLf & vbCrLf & Forms(Me.Form.Name).Controls(Me.ActiveControl.Name).StatusBarText
    Me.txtInfo.Caption = desc
End Sub

As you can see, I'm trying to put the description of the field into a viewable "Description" box standardized across my forms. When the user clicks the control (or better yet, hovers over the control) the above code should be executed. Ideas involving little work (ie not having to do it for each control) ?

[June7]

Don't know of any event that would accomplish this.

The procedure could be a function that could be called by each control's GotFocus event. The function call can be directly in the event property line.

[Missinglinq]

To do this by hovering over Controls is going to require code in an event for each Control, even if it's just Calling a function common to all of the Controls, such as one displaying the Control Name. But to trigger your code each time a character is entered into any Textbox/Combobox, for instance, in Form Design View, with the Form itself selected, go to Properties - Events and set the Key Preview Property to Yes. Then use your code in the Form_KeyDown event:

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim desc As String
  desc = "Description:" & vbCrLf & cbCrLf & Me.ActiveControl.Name & vbCrLf & vbCrLf & Forms(Me.Form.Name).Controls(Me.ActiveControl.Name).StatusBarText
  Me.txtInfo.Caption = desc
End Sub

Linq ;0)>

[June7]

Just remembered controls have a ControlTipText property. This property gives controls a 'popup tip on hover' behavior.

[Epidural]

Don't know of any event that would accomplish this.

The procedure could be a function that could be called by each control's GotFocus event. The function call can be directly in the event property line.

I think this might be enough; I don't have to enter it for all fields individually as I just learned you can multi-select things and simply write the event once to have it appear across all fields (kind of like how re-tagging a bunch of songs with one artist by selecting the songs and changing one's artist changes them all).

However, what is the syntax for calling the procedure from the OnClick: [Event Procedure] property line?

[June7]

Just enter the name of the function preceded by = sign and followed by parens: =MyFunctionName()