Access Tools Startup Form

[John Michael]

I have created some password routines to protect certain forms from access
without a password.
This allows me to create some security for apps that will be used on diff
machines for users that will not have to learn the whole access security
process and me as well.
I would like to lockup my database by unchecking all of the options in the
tools/startup from. I know i can create custom menus, toolbars and command
bars and add a link to the access startup from there, but have had some
problems getting the popup bar to only be available for only 1 form that is
protected by my password routines. The one I created somehow became global
and even after removing it from all of the forms, access will still look for
it on report and show it as missing when you right click the report title
bar. Then it pops up the design option on a right click .

I did find some routines to disable the shift button at startup that are
pretty cool.

Anyway here is my question. Is it possible to call the access tools/startup
form with a procedure linked to a forms on load event and how. This way I
could lockup the db and only if you know the password be able to unlock it
via the startup form.
thanks
John Michael

[Phil Stanton]

This may help

Function HideAllToolBars ()

Dim Cbar As CommandBar
Dim CloseOK As Byte

If Isloaded("Switc hboard") Then
CloseOK = Forms!switchboa rd!CloseOK
Else
CloseOK = 1
End If

For Each Cbar In CommandBars
' If "Menu Bar" visible and Not protected, don't hide it
If Cbar.Name = "Menu Bar" Then
Cbar.Protection = msoBarNoProtect ion ' No protection to
allow hiding
If Cbar.Visible = True And CloseOK = 1 Then
ReturnValue = HideTool(Cbar.N ame, True) ' Don't Hide it
Else
ReturnValue = HideTool(Cbar.N ame, False) ' Hide it
End If
Cbar.Protection = msoBarNoChangeV isible
Else
ReturnValue = HideTool(Cbar.N ame, False) ' Hide it
End If
Next Cbar
End Function
Function HideTool(ToolBa rName As String, Show As Boolean)

On Error Resume Next ' No toolbar
If Show = False Then
DoCmd.ShowToolB ar ToolBarName, acToolbarNo ' Hide Toolbar
Else
DoCmd.ShowToolB ar ToolBarName, acToolbarYes ' Show Toolbar
End If
End Function

Phil
"John Michael" <jo***@acadiaco m.net> wrote in message
news:10******** *****@corp.supe rnews.com...

I have created some password routines to protect certain forms from access
without a password.
This allows me to create some security for apps that will be used on diff
machines for users that will not have to learn the whole access security
process and me as well.
I would like to lockup my database by unchecking all of the options in the
tools/startup from. I know i can create custom menus, toolbars and
command bars and add a link to the access startup from there, but have
had some problems getting the popup bar to only be available for only 1
form that is protected by my password routines. The one I created somehow
became global and even after removing it from all of the forms, access
will still look for it on report and show it as missing when you right
click the report title bar. Then it pops up the design option on a right
click .

I did find some routines to disable the shift button at startup that are
pretty cool.

Anyway here is my question. Is it possible to call the access
tools/startup form with a procedure linked to a forms on load event and
how. This way I could lockup the db and only if you know the password be
able to unlock it via the startup form.
thanks
John Michael