Command Button name

[clozed75]

Hi,
is it possible to store the current command button's name in a variable ?

e.g.

Private Sub CommandButton3_Click()

how can I refer to "CommandButton3" from here ?

End Sub


note that the button is in a frame and the activecontrol.name doesn't work..it points to the frame

thanks

 

[sykes]

When you say the button's on a frame, is it on a worksheet, or a userform?

Either way, this should work, but as you see I've used the "Me" keyword so you may need to make a longer reference to the button.

As you see, I've demonstrated that the button's name has been stored in a variable, because it can then be referenced from the message box.

Private Sub CommandButton3_Click()
Dim cmnd_nm As String
cmnd_nm = Me.CommandButton3.Name
MsgBox cmnd_nm
End Sub

 

[clozed75]

thank you for the reply! yes you demonstrate that button's name can be stored in a variable, unfortunaltely my post was very bad written and that is not the goal I wanted..
the point is I would like to address the command button name without specifing the current command button name.. e.g. command button 3.

somthing like "activecontrol" would be good, which can be used in every commanbutton_click sub without referencing directly to the "3, or 4, or 5, etc." which is changing everytime..

by the way, the frame is on a userform..

thank you very much

 

[mikerickson]

Private Sub CommandButton1_Click()
    MsgBox ReallyActiveControl().Name
End Sub

Function ReallyActiveControl() As MSForms.Control
    Set ReallyActiveControl = Me.ActiveControl
    Do Until TypeName(ReallyActiveControl) <> "Frame" And TypeName(ReallyActiveControl) <> "MultiPage"
        If TypeName(ReallyActiveControl) = "Frame" Then
            Set ReallyActiveControl = ReallyActiveControl.ActiveControl
        Else
            With ReallyActiveControl
                Set ReallyActiveControl = .Pages(.Value).ActiveControl
            End With
        End If
    Loop
End Function

 

[Norie]

You could try this.

set cmd = Me.ActiveControl.ActiveControl
MsgBox cmd.Name

The first ActiveControl returns the frame as that's the active control of the form, the second the active control in the frame.

 

[clozed75]

You could try this.

set cmd = Me.ActiveControl.ActiveControl
MsgBox cmd.Name

The first ActiveControl returns the frame as that's the active control of the form, the second the active control in the frame.

Works great..

thank you!