How to get the active field?

[DeepButi]

I have a Form with several Text fields that go to a common code on TextBoxn_Change. How do I get the field that triggers the event so I can call the common routine with it?

 

[DeepButi]

Once you have the TextBox name, then you can reference it's Properties w/
Me.Controls(tb)

Sorry, but that doesn't work,

Just try the MsgBox on the event and you will see the problem, If it doesn't even work on the event, it will not (it does not) on MyTest()

Private Sub TextBox1_Change()
    MsgBox "Current ActiveCell is " & ActiveSheet.Name & "!" & ActiveCell.Address & _
        " and, the current TextBox is " & Me.ActiveControl.Name & ".", vbInformation, "Info Show"               ' ERROR Me,ActiveControl is not an object
...

a) ActiveSheet.Name and ActiveSheet.Address refers to the active cell. I don't need this at all. I need the active Form Field
b) Me.ActiveControl doesn't exist.

 

[Skyybot]

Private Sub TextBox1_Change()
Dim tObj, tName As String, tVal As String
Set tObj = Me.ActiveControl
tName = tObj.Name
tVal = tObj.Value
Debug.Print tName & " "; tVal
End Sub

 

[Skyybot]

Private Sub TextBox1_Change()
Dim tObj
Set tObj = Me.ActiveControl
Me.DoStuff tObj
End Sub

Private Sub TextBox2_Change()
Set tObj = Me.ActiveControl
Me.DoStuff tObj
End Sub

Sub DoStuff(ByVal tb As Control)
Debug.Print tb.Name & " " & tb
End Sub

 

[DeepButi]

Let's put it simple ... I need the equivalent of the Form.ActiveControl as in Form.ActiveControl property (Access)

It seems to be available only in Access, so trying to figure how to get an equivalent in Excel

 

[DeepButi]

Private Sub TextBox1_Change()
Dim tObj
Set tObj = Me.ActiveControl
Me.DoStuff tObj
End Sub

Private Sub TextBox2_Change()
Set tObj = Me.ActiveControl
Me.DoStuff tObj
End Sub

Sub DoStuff(ByVal tb As Control)
Debug.Print tb.Name & " " & tb
End Sub

OMG ... please read my answers ... Me.ActiveControl doesn't exist

Are you using an AI to answer???????

 

[Skyybot]

OMG ... please read my answers ... Me.ActiveControl doesn't exist

Are you using an AI to answer???????

Well, it exists on my machine. What version of Windows are you using?

 

[Skyybot]

Is your Form reference checked?

 

[Fluff]

Me.ActiveControl doesn't exist

It does if your controls are on a userform. If they they are on a sheet then there is no such thing as a Change event for FormControls.
So what exactly are you using?

 

[DeepButi]

Curious because according to Microsoft doc it doesn't exist

I will continue to use my initial code

Private Sub TextBox1_Change()
    MyTest(TextBox1)
End Sub
Private Sub TextBox2_Change()
    MyTest(TextBox2)
End Sub
... and so on

Thanks for all your answers

 

[DeepButi]

It does if your controls are on a userform. If they they are on a sheet then there is no such thing as a Change event for FormControls.
So what exactly are you using?

I am using an ActiveX control and yes, ActiveX controls have events

Going to try it on a form!