By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,948 Members | 1,929 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,948 IT Pros & Developers. It's quick & easy.

Access Tools Startup Form

P: n/a
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
Share this Question
Share on Google+
1 Reply


P: n/a
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.