Is there a way to pragmatically pass a Public Procedure Name to a Form cmdButton?

[FD90503]

Hi everyone, Newbie Here!

Within a Form, I have Command Button that calls and executes a Public Procedure:

Sub cmdButtton_Click()

MyProcedureName1

End Sub

The above works fine, as expected.

My question is as follows:

For my application, I have defined many Procedures within a Public Module (e.g., "MyProcedureName1", "MyProcedureName2", ...)
and would like to know if there is a way to Call any of these Procedures through a single cmd Button by somehow passing
a Procedure Name (generated programmatically or through a Record Field). In other words, for each record on my Form (...where cmd Button is defined), I would like to execute a specific procedures through a single cmd Button. I trying to avoid having many unnecessary cmd Butttons on my Form.

So far, I have not been able to find a way to do this. Any help on this would be greatly appreciated.

Many thanks in advance!

[Gicu]

I can think of a few ways of doing this but most would probably involve some Select statements or similar. You can check the PK of the record you're in and call the matching procedure right in the Click event of the button, or you could save the procedure name in the record source of the form and pass it as a variable and use Eval() or Run to execute if:
https://www.access-programmers.co.uk...riable.160567/
http://www.vbaexpress.com/forum/show...me-as-variable

Have a look at this thread and sample in post #18, should give you some hints how to achieve what I think you're after:
https://www.accessforums.net/showthr...=delete+module

Cheers,

[Micron]

Seems like a job for an unbound combo rather than trying to decide which procedure to run based on a control that has no data property?

[FD90503]

Gicu,
Thank You Very Much for the WebLinks you Provided! The example shown in the vbaexpress.com Forum clearly demonstrated what I was looking to achieve.

Below is what I implemented in my Application:

Private Sub cmdButton_Click()
Dim strSubName As String

strSubName = [ProcedureNames]
Run strSubName

End Sub

... Works like a charm!

Also, learned a few new tricks from the other Weblinks!

Thanks again,
fd90503

[FD90503]

Gicu,
Thank You Very Much for the WebLinks you Provided! The example shown in the vbaexpress.com Forum clearly demonstrated what I was looking to achieve.

Below is what I implemented in my Application:

Private Sub cmdButton_Click()
Dim strSubName As String

strSubName = [ProcedureNames]
Run strSubName

End Sub

... Works like a charm!

Also, learned a few new tricks from the other Weblinks!

Thanks again,
fd90503

[Gicu]