How to pass an argument to the active control (vba)

[kelly mort]

I want a way that I could pass an argument to the active or current control that I have selected.

For example, when I double click on a textbook, there is this code that I would run.

Instead of placing the code under each textbox, I want a way where I would create a separate Sub for the code then call it each time I double click a textbox.

The issue now is how to be able to know which textbox to point to from the sub.

All the codes that will run before pointing to the textbox does not depend on the various textboxes.

But they are a bit long - the reason why I want to avoid writing them one by one.

So say I double click textbox1 then after running all my verification code, what I do is unlock the textbox1 because it has been locked before I do the double click.

Is there a way around it?

 

[mikerickson]

What did it do and how did you trigger it. If there was a Command Button clicked, what is that button's .TakeFocusOnClick property?

Also, the Container argument is optional. Omit it if you want the reallyactivecontrol of the whole userform.

 

[kelly mort]

I triggered the code with the double click event of the textbox. I am using that message box to test it.

.......
ReallyActiveControl
.........

Public Function ReallyActiveControl(Optional Container As Object) As MSForms.Control
    If Container Is Nothing Then
        Set Container = Me
    End If
   
    On Error Resume Next
    Set ReallyActiveControl = Container.ActiveControl
    Set ReallyActiveControl = Container
    On Error GoTo 0
   
    On Error Resume Next
    Do
        If TypeName(ReallyActiveControl) = "MultiPage" Then
            With ReallyActiveControl
                Set ReallyActiveControl = .Pages(.Value)
            End With
        End If
        Set ReallyActiveControl = ReallyActiveControl.ActiveControl
    Loop Until Err
   
  MsgBox ReallyActiveControl.Name 
    
    On Error Goto 0
End Function

 

[mikerickson]

Is this textBox in a userform?
What is it returning?

 

[kelly mort]

Is this textBox in a userform?
What is it returning?

It's on the multi page form.

This is the level.
Userform - multi page form - frame - textbox

Currently when I double click the textbox, the message I get is the name of the multi page form

"MultiPage2"

 

[mikerickson]

I can't replicate that problem. Have you tried setting a break point and stepping through the function?
The MultiPage should be caught by the If Typename line.

 

[kelly mort]

@mikerickson
I have now placed the textboxes directly on the userform - no frames or whatever.
I would be glad if you can get the script for it for me.

Thanks