developingprogrammer
asked on
opening access programatically without opening its opening forms
hey guys, i have a vbscript that has these lines of code in it:
what i'm interested in is - when i open access through VBscript like that, does it open the opening forms as well? cause i'm thinking of putting a synchronise code at the starting form when the user opens the access database BUT if the access database is opened programatically then i don't want to run that synchronise code. so how do i open the database programmatically without opening the opening forms? thanks guys!!
Set objAccess = CreateObject("Access.Application")
on error resume next
dim strCurrentProjectName
strCurrentProjectName = objaccess.currentproject.name
If err.Number=0 then
	if objaccess.currentproject.name <> "WBR.mdb" then
		objAccess.OpenCurrentDatabase strNameOfFolderVBScriptIsIn & "WBR.mdb"
	end if
Else
	objAccess.OpenCurrentDatabase strNameOfFolderVBScriptIsIn & "WBR.mdb"
End if
what i'm interested in is - when i open access through VBscript like that, does it open the opening forms as well? cause i'm thinking of putting a synchronise code at the starting form when the user opens the access database BUT if the access database is opened programatically then i don't want to run that synchronise code. so how do i open the database programmatically without opening the opening forms? thanks guys!!
You can either use a macro (I don't generally use macros) or vba code.
The way I do this is that when I want to open the application programmatically, I pass it a parameter, then in my StartUp form, I check to see whether a command line parameter was passed to the application, using the Command() function call. If so, I bypass that form and process the specific actions the command line parameter used by calling specific functions within the application. Then I close the application.
The normal syntax for opening Access with a command line parameter would be something like:
"C:\Program Files\Microsoft Office\Office12\MSACCESS.E XE" "C:\YourFileName.accdb" /cmd "Out-of-Variance"
I'm not sure how you would do that using the vbScript
The way I do this is that when I want to open the application programmatically, I pass it a parameter, then in my StartUp form, I check to see whether a command line parameter was passed to the application, using the Command() function call. If so, I bypass that form and process the specific actions the command line parameter used by calling specific functions within the application. Then I close the application.
The normal syntax for opening Access with a command line parameter would be something like:
"C:\Program Files\Microsoft Office\Office12\MSACCESS.E
I'm not sure how you would do that using the vbScript
ASKER
thanks fyed, your method seems to be the one i'm looking for. but i tried a few ways to run this line of "code" you gave me from vbs and from excel but i can't get it to work. it's supposed to run from a shortcut and that's why i have problems trying to get it running from code. i came across this article but doesn't help much. http://support.microsoft.com/kb/209207
could anyone advise on how to use fyed's method from vbs? thanks guys!!
could anyone advise on how to use fyed's method from vbs? thanks guys!!
In the startup code, place something like this:
if Command = "Out-of-Variance" then
' what to do if opened programmatically, with /cmd parameter
else
' what to do if opened in regular way - display some form etc.
end if
That said, maybe you don't need to open Access at all. If what you need is the data from Access database, you can create ADO object, and open ADO connection to the database as to any other data source, then you can run queries against Access tables and queries in the file, but no Access forms etc will open up.
There's also another option. If in different scenarios you want to open as startup different forms, one way to do it is have no auto-startup form at all, create shortcuts from the forms themselves, and give these shortcuts to the users. Using the shortcut will open the right form directly. You can create shortcuts for all Access objects.
if Command = "Out-of-Variance" then
' what to do if opened programmatically, with /cmd parameter
else
' what to do if opened in regular way - display some form etc.
end if
That said, maybe you don't need to open Access at all. If what you need is the data from Access database, you can create ADO object, and open ADO connection to the database as to any other data source, then you can run queries against Access tables and queries in the file, but no Access forms etc will open up.
There's also another option. If in different scenarios you want to open as startup different forms, one way to do it is have no auto-startup form at all, create shortcuts from the forms themselves, and give these shortcuts to the users. Using the shortcut will open the right form directly. You can create shortcuts for all Access objects.
If you want to pass Command line parameters, you'll have to use the Shell command, something like this:
Dim w_shell
Set w_shell = WScript.CreateObject("WScr ipt.Shell" )
w_shell.Run "full path to microsoft access.exe " & "full path to the db" & " /cmd YourcommandHere"
Dim w_shell
Set w_shell = WScript.CreateObject("WScr
w_shell.Run "full path to microsoft access.exe " & "full path to the db" & " /cmd YourcommandHere"
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
whao guys, all fantastic fantastic responses. let me try them out next week and get back to yall (a bit under the pump this week!!) = )) thanks guys once again, from first read seems like super fantastic responses to try!!!
HTH,
Kent