Removing security on Access 97 db

[Neil Kimber]

We have an Access 97 database in the company, the author having left a long
time ago. We can open the database but no menu options are available (the
only menu options available are File->close and the Window layout options).
We are simply presented with an empty work area. Can anyone give any
pointers on how to renable the menu items so we can view the data tables
etc..

Thanks,
Neil

 

[Rick Brandt]

We have an Access 97 database in the company, the author having left a long
time ago. We can open the database but no menu options are available (the
only menu options available are File->close and the Window layout options).
We are simply presented with an empty work area. Can anyone give any
pointers on how to renable the menu items so we can view the data tables
etc..

Try holding down shift while you open it or pressing F11 afterwards.

 

[Neil Kimber]

This doesn't work. I know about these key short-cuts. Our programmer somehow
secured the database by disabling the functionality for these keys. What
next?
Thanks,
Neil

 

[Joan Wild]

You can try creating a new database and importing all objects from the old.

 

[Arvin Meyer]

AllowByPassKey is a custom property of MS-Access that was probably set by
the programmer to disable the Shift key by-pass. You may be able to run this
code from a different database by changing the line:

CurrentDb.Properties("AllowBypassKey") = blnLock

to:

Dim db As DAO.Database
Set db = db.OpenDatabase("Path to your database")
db.Properties("AllowBypassKey") = True

to pass the name of another database. If you cannot, the security has
stopped you cold.

Public Function LockDB(blnLock As Boolean)
'====================================================================
' Name: LockDB
' Purpose: Kill the Shift key
'
' Inputs: blnLock As Boolean
'
' Author: Arvin Meyer
' Date: April 19, 1999
' Comment: If blnLock = 0, the bypass key is activated,
' If blnLock = -1, the bypass key is deactivated
' Keep a copy of the database without this property
'====================================================================
On Error GoTo Err_LockDB
Dim prp As Property

Const PropertyNotFound = 3270

CurrentDb.Properties("AllowBypassKey") = blnLock

Exit_LockDB:
Exit Function


Err_LockDB:
'Create the property if not found.
If Err = 3270 Then
Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean,
blnLock)
CurrentDb.Properties.Append prp
Resume Next
Else
Resume Exit_LockDB
End If

End Function

Also have a look at:

http://www.mvps.org/access/general/gen0040.htm
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Neil Kimber]

Cannot do this. When I try to access the tables I get told that I do not
have read permission. So, I cannot access the tables. But, I am logged in as
the admin user for the database.

 

[Joan Wild]

You need to log in as a user that is a member of the Admins group. The
'admin user' you refer to is not.