troubleshooting Question

VBSCRIPT - Run a macro from a securised Access Database

Avatar of Phve_364
Phve_364 asked on
Microsoft AccessMicrosoft Development
1 Comment1 Solution1757 ViewsLast Modified:
I'm writing a VBScript that will run a macro from a secured Access database :

Database : c:\afac\test.mdb
SystemDB (not secured) : c:\afac\system.mwd
SystemDB (secured) : c:\afac\NewSystem.mdw (user = test - password = PwdTest)

Example 1 : my database is not secure -> no problem :

Dim oAccess
Dim oWorkspace
Set oAccess = CreateObject("Access.Application")
oAccess.SetDefaultWorkgroupFile("c:\afac\System.mdw")
oAccess.OpenCurrentDatabase "c:\afac\test.mdb"
oAccess.DoCmd.RunMacro "Macro"
oAccess.CloseCurrentDatabase
oAccess.Quit

Example 2 : my database is secure -> problem : How can I say who is the user and what is the password ?

Dim oAccess
Dim oWorkspace
Set oAccess = CreateObject("Access.Application")
oAccess.SetDefaultWorkgroupFile("c:\afac\NewSystem.mdw")
oAccess.OpenCurrentDatabase "c:\afac\test.mdb"  ' -> Microsoft Office Access can't open the database because it is missing, or opened exclusively by another user.
oAccess.DoCmd.RunMacro "Macro"
oAccess.CloseCurrentDatabase
oAccess.Quit

Thanks for your help
ASKER CERTIFIED SOLUTION
peter57r

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 1 Comment.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros