Have you ever tried to make a shortcut to launch/open an MS Access database and had an error returned because the Target string was too long? Or do you simply need more control/flexibility from your launching routine. In that case, a VBScript is the ideal way to go. Below is the most basic format that the VBScript can take. Simply alter the Script Variables, Save and execute!
I have made the following as flexible as possible so it can open simple database files, as well as security enabled database. It is simply a question of assigning values to the Script Variables or not.
I truly hope this helps you out!
'******************************************************************************* 'Date: 2008-05-27 'Author: Daniel Pineault / CARDA Consultants Inc. ' http://www.cardaconsultants.com 'Copyright: You are free to use the following code as you please so long as ' this header remains unaltered. 'Purpose: Launch the specified access database 'Revision: 2008-05-27 Initial Release '******************************************************************************* Dim sAcc Dim sFrontEnd Dim sSec Dim sUser Dim objShellDb Dim sComTxt 'Script Configuration Variable '******************************************************************************* 'Specify the Fullpath and filename of the msaccess executable sAcc = "C:\Program Files\Microsoft Office\OFFICE11\msaccess.exe" 'Specify the Fullpath and filename of the database to launch sFrontEnd = "D:\Main\My Documents\TestDb.mdb" 'If your database is secured by an mdw file specify it below, otherwise 'leave its value blank sSec = "C:\Databases\Security.mdw" 'If your database is secured by an mdw file and you want to specify the 'username to use specify it below, otherwise leave its value blank sUser = "" '******************************************************************************* '******************************************************************************* 'You should not need to edit anything below this point '******************************************************************************* '******************************************************************************* 'Launch database '******************************************************************************* Set objShellDb = CreateObject("WScript.Shell") 'Build the command to launch the database sComTxt = chr(34) & sAcc & chr(34) &_ " " & chr(34) & sFrontEnd & chr(34) if isNull(sSec)=False AND sSec<>"" Then sComTxt = sComTxt & " /wrkgrp " & chr(34) & sSec & chr(34) End if if isNull(sUser)=False AND sUser<>"" Then sComTxt = sComTxt & " /user " & sUser End if objShellDb.Run sComTxt 'Launch the database |
