Multiple workgroup information file dilemna

Bob Bedell · January 7th, 2006, 01:15 AM

Hi again. Another security issue.

I've created two workgroup information files for two different applications, one for each.

I open app A, and join workgroup A. Alls good. Then I open app B, and it defaults to workgroup A. So I use the workgroup administrator and have app B join workgroup B. Alls good. But then when I open app A again, it defaults to workgroup B.

It appears that every time I open Access, its default workgroup is set to the last workgroup joined by the previous instance of Access.

How can I have two apps join two seperate workgroups and persist those settings???

Bob

Bob Bedell · January 7th, 2006, 02:03 AM

Hmm....

Its looking like you can only use one system database (workgroup information file) per Windows user account??? I can use two .mdw files if I log in under two seperate Windows accounts. It seems that any time I change the workgroup information file in any instance of Access, the following registry key gets set to the new workgroup information file:

HKEY_CURRENT_USER
Software
Microsoft
Office
10.0
Access
Jet
4.0
Engines

Name: SystemDB
Data: C:\Secured Databases\WorkgroupInformationFileA.mdw

(The default key data is Application Data\Microsoft\Access\System.mdw)

Once this key is set, all other Access dbs opened under the current Windows user account seem to use that workgroup information file until its changed manually.

Just wondering if there is a way to use multiple workgroup information files for different apps under the same Windows user account???

Bob

Bob Bedell · January 7th, 2006, 02:34 AM

I gotta' use a shortcut to override the system db setting, don't I?

Bob Bedell · January 7th, 2006, 02:50 AM

"C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"
"C:\Secured Databases\SecuredDatabaseA.mdb"
/WRKGRP
"C:\Secured Databases\WorkgroupInformationFileA.mdw"

That'll get it...

Bob Bedell · January 7th, 2006, 03:53 AM

this'll get it from code...

Code:

   'Open secured Jet connection
   With cnn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Properties("Data Source") = "C:\Secured Databases\SecuredDatabaseA.mdb"
      .Properties("Jet OLEDB:System Database") = _
                                    "C:\Secured Databases\WorkgroupInformationFileA.mdw"
      .Properties("Mode") = adModeShareDenyNone
      .Properties("User ID") = "John Doe"
      .Properties("Password") = "John"
   End With