VBS Script to Run Macro in Access 2003

[White Horse]

I want to nightly run a VBS Script in Scheduled tasks to open an
Access 2003 database and execute a macro.

The problem is that the database opens to a switchboard screen. I
need to open this database with a VBS script that mimicks opening the
database with {shift} open. My code:
dim accessApp
set accessApp = CreateObject("Access.Application")
accessApp.visible = True
accessApp.OpenCurrentDataBase("C:\ACF\Copied from Server\ACF.mdb")
accessApp.Run "Macro1"
accessApp.Quit
When this script executes, the switchboard is open, and the Macro1
can't be found (executed).
Thanks

[JvC]

Set up a seperate application with the objects you need to run your macro.
Attach the tables you need in ACF.mdb
Give your new mdb an autoexec macro, with the following commands:
RunMacro with Macro 1 as the Macro name.
Quit

Set up the new mdb to run in Scheduled Tasks

John

"White Horse" <mi***********@msn.comwrote in message
news:47**********************************@79g2000h sk.googlegroups.com...

>I want to nightly run a VBS Script in Scheduled tasks to open an
Access 2003 database and execute a macro.

The problem is that the database opens to a switchboard screen. I
need to open this database with a VBS script that mimicks opening the
database with {shift} open. My code:
dim accessApp
set accessApp = CreateObject("Access.Application")
accessApp.visible = True
accessApp.OpenCurrentDataBase("C:\ACF\Copied from Server\ACF.mdb")
accessApp.Run "Macro1"
accessApp.Quit
When this script executes, the switchboard is open, and the Macro1
can't be found (executed).
Thanks

[Albert D. Kallal]

As the other poster suggested, simply setup another mdb file with linked
tables to the application, and then you good to go. Place you code in a
standard module, and then your run command will execute that code (your
script looks just fine).
--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
pl*****************@msn.com

[White Horse]

Thanks for the input.

I believe this would be a good solution, but unfortunately, I can't
change the original ACF.mdb database (admin permissions that have
nothing to do with Access databases). I am permitted to "go through
the backdoor" by pressing the shift key before clicking open. I tried
Sendkeys "+", but this did not work.

I do a great amount of VBA from Excel dealing with Access databases,
but I couldn't do anything from there, either.

Mike