469,641 Members | 1,178 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,641 developers. It's quick & easy.

Access Tools Startup Form

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
Nov 13 '05 #1
1 5038
This may help

Function HideAllToolBars()

Dim Cbar As CommandBar
Dim CloseOK As Byte

If Isloaded("Switchboard") Then
CloseOK = Forms!switchboard!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 = msoBarNoProtection ' No protection to
allow hiding
If Cbar.Visible = True And CloseOK = 1 Then
ReturnValue = HideTool(Cbar.Name, True) ' Don't Hide it
Else
ReturnValue = HideTool(Cbar.Name, False) ' Hide it
End If
Cbar.Protection = msoBarNoChangeVisible
Else
ReturnValue = HideTool(Cbar.Name, False) ' Hide it
End If
Next Cbar
End Function
Function HideTool(ToolBarName As String, Show As Boolean)

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

Phil
"John Michael" <jo***@acadiacom.net> wrote in message
news:10*************@corp.supernews.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

Nov 13 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

17 posts views Thread by Jelmer | last post: by
7 posts views Thread by Mark Thiel | last post: by
3 posts views Thread by Bob | last post: by
5 posts views Thread by Andy P via AccessMonster.com | last post: by
2 posts views Thread by MHakimjavadi | last post: by
4 posts views Thread by mosquitooth | last post: by
9 posts views Thread by badboybrown | last post: by
reply views Thread by gheharukoh7 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.