Running a VBA Script in MS Access from VFP 1

[jrajesh]

Hi,
I've created a VBA Script in an MSAccess mdb.
Module name: PBProcs
Function in this module: PbFunc
function have no parameters.

The front-end is VFP and I need to run this function PBFunc from the VFP app.

I've tried the following:

1. SQLEXEC(Handle, "Execute PbFunc")
2. SQLEXEC(Handle, "Execute PbFunc()")
3. SQLExec(Handle, "Procedure PBFunc()")

None of the above work.

Could some one please help me on this?

Thanks,
Rajesh

 

[rgbean]

Try just "EXEC pbFunc". That's what you use in VFP when accessing MS SQL.

Rick

 

[jrajesh]

Rick,
Tried your suggestion.
No joy.

I still get the error message:
The microsoft Jet Database Engine cannot find the input table or query 'pbFunc'

Thanks for your input.
Regards,
Rajesh

 

[baltman]

This works for me. MyFunctionName resides in Module1, but that doesn't seem to matter.

Brian

loAccess=CREATEOBJECT("access.application")
loAccess.OpenCurrentDatabase("C:\data\test\test.mdb")
loAccess.visible=.t.
loAccess.Run("MyFunctionName")

 

[jrajesh]

Brian,
Brilliant.. Thank you.
* for you
Regards,
Rajesh