Command Button that opens a Form based on its own Caption

[mainerain]

Is there a way to create generic vba that would be able to get the corresponding Command Buttons Caption? The On Click Event would trigger opening a Form based on that Command Buttons Caption. I have many similar Command Buttons and having generic vba would seem to be easier.



Thanks

[ssanfu]

Would you provide examples of button captions and the associated forms that should be opened?

Here is one way:
For a button named "Command0", this will display the button caption, then open the form

Private Sub Command0_Click()
    MsgBox Me.Command0.Caption   'comment out or delete this line after debugging
    Call OpenMyFormByCaption(Me.Command0.Caption)
End Sub

You could write a sub that has the button caption as an argument, that opens the form.

Private Sub OpenMyFormByCaption(btnCaption As String)
    DoCmd.OpenForm btnCaption
End Sub

Note:
You shouldn't use spaces in form names.
The button caption must match the form name.

[mainerain]

i.e. Caption = LT-0100 Name = btnLT-0100 Private Sub btnLT_0100_Click() to open frmLTLoop via extracting the LT from the Caption with code

edit
I just realized that because each button has to have a unique name that it's easier to individualize the vba for each button.

        DoCmd.OpenForm "frmLTLoop", acNormal, , "LoopTag = 'LT-0100'"

[Micron]

Maybe you should be selecting the form from a combo rather than having many buttons? One column could show the form name by description, another (hidden) would be the object name?

[mainerain]

Thanks for the input.
I chose to use a listbox. Never tried that before but is working out well. Thanks.