Value of Active TextBox in a UserForm

**j_Southern** · 01-08-2015, 08:11 AM

I have a Userform which contains TextBoxes loaded with the chosen data from a database.
Typically there are from 1 to 4 records which the choosing procedure picks up.
I want the user to select one of these for passing on to the rest of my application.

I had thought that some code along the lines of

Choice = UserForm.ActiveControl.value

would do the trick, but ActiveControl does not have a Value property.
How should I proceed?
John

**Andy Pope** · 01-08-2015, 08:55 AM

Me refers to the loaded userform.

Me.Caption = Me.ActiveControl.Value

The problem will be making sure the activecontrol is the correct control when the code runs.

**j_Southern** · 01-08-2015, 10:16 AM

andy,
Is there an important difference between your Me.ActiveControl.Value and my Userform2.ActiveControl.Value ?
I ask because when I tried my way I found that UserForm2.ActiveControl. did not have a Value property.

I am a bit worried about ensuring that the correct control is active. I have thought about putting a Button beside each of the identifying TextBoxes for the user to click, but this seems a bit clunky.
John

**Andy Pope** · 01-08-2015, 10:37 AM

help says this about the ME keyword.

The Me keyword behaves like an implicitly declared variable. It is automatically available to every procedure in a class module. When a class can have more than one instance, Me provides a way to refer to the specific instance of the class where the code is executing. Using Me is particularly useful for passing information about the currently executing instance of a class to a procedure in another module. For example, suppose you have the following procedure in a module:

Either will work

Private Sub CommandButton1_Click()

    MsgBox "Activecontrol is " & Me.ActiveControl.Name & vbLf & Me.ActiveControl.Value
    
    MsgBox "Activecontrol is " & UserForm2.ActiveControl.Name & vbLf & UserForm2.ActiveControl.Value

End Sub

you can see in the example that a button will change the activecontrol.