relinquish control after password

[BUmed]

Hi all,
The problem is that when someone logs into my database they have to enter a user name and password. Then they are directed to my Z_Menu_Main form and they can work from there. And on startup I have allowed only the display statues bar to be shown. The problem that I have is that a new database needs the same set up but after the password is entered to relinquish control of the database so that all the functionality is there, as if the startup was never limited. The problem is that do not know how to do this. Any help would be much appreciated. I have included my code if that will help



Private Sub Command14_Click()
Dim usrArray As Variant
Dim pwArray As Variant

usrArray = Array("*******", "*******", _
"*******", "*******", "*******", _
"*******")

pwArray = Array("*******", "*******", _
"*******", "*******", "*******", _
"*******")

For i = 0 To UBound(usrArray)
If ((Me![username] = usrArray(i)) And (Me![password] = pwArray(i))) Then
Me![passfail] = "Pass"
DoCmd.Close
DoCmd.OpenForm "Z_Menu_Main"
Exit Sub
End If
Next i

Me![passfail] = "Fail"
DoCmd.Close
DoCmd.OpenForm "Z_LogonFail"

End Sub

[ADezii]

I've never used it, but I imagine that the easiest solution would be to programmatically set the Default Workgroup Information File, (not Secured), once the correct Password has been entered. This would be a 1 shot deal, and of course the WIF would have to exist and be in the correct Path, as in:

Application.SetDefaultWorkgroupFile path:="C:\Documents and _ Settings\Security\Application Data\Microsoft\Access\system.mdw"

[BUmed]

I do have it setup to have a password when you first login to access but after that I have another password and user name. The reason for the second password is to keep track of who is in the database. So there may not be a way to change the startup setting using vba?

[ADezii]

I do have it setup to have a password when you first login to access but after that I have another password and user name. The reason for the second password is to keep track of who is in the database. So there may not be a way to change the startup setting using vba?

You can programmatically change all of the StartUp Options with VBA Code. StartUp Properties are properties of a Database Object. A Database Object is a DAO Object supplied by the Microsoft Jet Database Engine, but StartUp properties are defined by Microsoft Access, so they aren't automatically recognized by the Jet Database Engine. If a StartUp Property hasn't been set previously, you must create it and add it to the Properties collection of the Database object. Here are the actual Property Names for their corresponding StartUp Options.

1. AppTitle
2. AppIcon
3. StartupForm
4. StartupShowDBWindow
5. StartupShowStatusBar
6. StartupMenuBar
7. AllowFullMenus
8. AllowShortcutMenus
9. StartupShortcutMenuBar
10. AllowBuiltInToolbars
11. AllowToolbarChanges
12. AllowSpecialKeys