Locked out of old mdb...help

[Jeff]

Hi

I just tried to open an old mdb. I get the first form up but can't bypass
this with F11. At some time in the past I must have turned off special keys
so F11 for the Database window doesn't work. There is a custom menu and no
toolbar.

How can I get to the database window and Startup options? I have tried
several shortcut keys without success.

Jeff

[Lyle Fairfield]

> I just tried to open an old mdb. I get the first form up but can't bypass

this with F11. At some time in the past I must have turned off special keys
so F11 for the Database window doesn't work. There is a custom menu and no
toolbar.

How can I get to the database window and Startup options? I have tried
several shortcut keys without success.

I have done this only to set the properties to FALSE, but surely the
procedure will work to set them to TRUE?

OTTOMH Code (assumes a "this century" version of Access)

standard module in another MDB

Dim App As Access.Application
Set App = New Access.Application
With App
.OpenCurrentDatabase FullPathToOldMDB 'in quotation marks if literal
With .CurrentProject.Properties
On Error Resume Nest
.Item("AllowByPassKey").Value = True
.Item("AllowSpecialKeys").Value = True
On Error Goto 0
End With
.CloseCurrentDatabase
.Quit
End With
If Not App Is Nothing Then Set App = Nothing

--
Lyle Fairfield

[Jeff]

Thanks Lyle

The code you gave generated an error when accessing the properties. But I
took the idea and changed is so I opened the database using the syntax

Set db = DBEngine.Workspaces(0).OpenDatabase("database path and name")

and referenced the properties like db.Properties("AllowBypassKey") and it
worked a charm.

Jeff

"Lyle Fairfield" <ly***********@aim.com> wrote in message
news:43**************@aim.com...

I just tried to open an old mdb. I get the first form up but can't bypass
this with F11. At some time in the past I must have turned off special
keys so F11 for the Database window doesn't work. There is a custom menu
and no toolbar.

How can I get to the database window and Startup options? I have tried
several shortcut keys without success.

I have done this only to set the properties to FALSE, but surely the
procedure will work to set them to TRUE?

OTTOMH Code (assumes a "this century" version of Access)

standard module in another MDB

Dim App As Access.Application
Set App = New Access.Application
With App
.OpenCurrentDatabase FullPathToOldMDB 'in quotation marks if literal
With .CurrentProject.Properties
On Error Resume Nest
.Item("AllowByPassKey").Value = True
.Item("AllowSpecialKeys").Value = True
On Error Goto 0
End With
.CloseCurrentDatabase
.Quit
End With
If Not App Is Nothing Then Set App = Nothing

--
Lyle Fairfield