473,326 Members | 2,815 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,326 software developers and data experts.

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 5351
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 thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

17
by: Jelmer | last post by:
Hi, I am mildly familiar with ms access developement and I have been asked to port and document a ms access app. I expect the porting (97 to XP) to be fairly straightforward. However documenting...
7
by: Mark Thiel | last post by:
I am working on a project for my company, which has a structure of six major areas. Certain people need to have access to all of the data, whereas other people only require access to the...
3
by: Bob | last post by:
All, I have read through lots of postings regarding my concerns, but I haven't found what I am looking for. The center (non profit University) where I work collects scientific data about...
5
by: Andy P via AccessMonster.com | last post by:
I am responsible for maintaining our departmental intranet pages at work. I would like to put a link from our website to a MS Access database which is held on our Network drive. The problem I...
2
by: MHakimjavadi | last post by:
Hi I have one Application and it is one MDB file and they are ALL forms and data in one big container file called an mdb file. I need to change something on that. How can I edit source code of...
4
by: mosquitooth | last post by:
Hi I've got the following problem: In my application I want to open an access database (not with ADO or so, just as if the user would have dblclicked on it), therefore I want to use the .net...
9
by: badboybrown | last post by:
Hello, Is it possible to step through the "Create MDE" process and see what is causing Access to crash? I tried, unsuccessfully, many times to create an MDE from my database. But, randomly, I...
8
by: adserte | last post by:
I have a security related question. I was wondering how i can set up security so that for a table: a user can read all data in the table but only update and delete their own data (there is a...
2
by: Frav | last post by:
The Reps team have been experiencing that Access 2002 unexpectedly quits while working and also lots of Corruption Failures and "Record lock can not update" messages since the upgrade from...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.