Application.Run Calling a subroutine with a variable

[CPGDeveloper]

Hello ~

I have an MS Access application that I administer (Access FE, Azure SQL Server BE).

I have a section of code in which I call a function written in a different module and call it something like this --

iRet = Module1.Function1 (Arg1, Arg2, Arg3)

The above works -- I want to be able to call the same routine, however, using a variable, so instead of "Module1.Subroutine1", something like this --

x = "Module1.Function1"
iRet = Application.Run x, Arg1, Arg2, Arg3

I can't seem to figure out the proper syntax to make this work -- it may not be possible -- but if anyone has any insight it would be greatly appreciated. Thanks!

 

[GWteB]

Using parentheses should work.

x = "Module1.Function1"
iRet = Application.Run(x, Arg1, Arg2, Arg3)

 

[CPGDeveloper]

Unfortunately, that syntax returns error 2517, cannot find the procedure. I'm hoping there must be a syntax that works, but every variation I can think of seem to produce the same error.

 

[GWteB]

Sorry, I only now see that this is an Access VBA question.

In Excel VBA the procedure may be preceded by the name of the code module in which that procedure is located, in Access this will error so the module name must be omitted.
In Access VBA the procedure name may be preceded by the VBA project name ("DBGW" in the image attached).
In case the macro to be invoked is in another database, the macro name needs to be preceded by the project name.

Both examples should work.

    Dim Macro As String
    Macro = "DBGW.SomeFunction"
    
    ' example 1
    Access.Application.Run Macro, Arguments
    
    ' example 2
    Dim RetVal As Variant
    RetVal = Access.Application.Run(Macro, Arguments)

 

[CPGDeveloper]

That worked! Thank You!!!

 

[GWteB]

Glad to help and thanks for letting me know

 

[james_lankford]

wow -- I am shocked
I never knew Access had "function pointers"
sure, not really the same, but still pretty cool