vbs batch program needs to bypass startup form 1

[BitZero]

I have an Access 2003 database, and a little vbs program that runs every night to refresh a table from the mainframe. The vbs program looks like this:

dim objAccess
set objAccess = createObject("Access.Application")
objAccess.OpenCurrentDataBase "c:\myDir\myProg.mdb"
objAccess.Run "Nightly_Update"
objAccess.Quit
set objAccess = nothing

The problem is when OpenCurrentDataBase starts the program, the Startup form opens. The vbs program is run by the windows scheduler on a server in batch mode. How can I disable the startup form if running in batch, but open the startup form when not in batch?

 

[jges]

You might try running Access with command line arguments (ref:

http://office.microsoft.com/en-us/access-help/command-line-switches-for-access-HA010166605.aspx)

At an opportune time try running your script by typing this into a command line (with appropriate edits for your system):

"Your\Path\to\access\msaccess.exe" "c:\My Folder\My Database.accdb" /x "Nightly_Update"

If that works to your satisfaction, you can change your VBScript to something like:

option explicit

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")
'window option '4' specifies the most recently used size/position
WshShell.Run "Your\Path\to\access\msaccess.exe" "c:\My Folder\My Database.accdb" /x "Nightly_Update", 4, False