Help, Locked out!

[joebloeonthego]

Hi. I'm building an inventory database here at work, and as I was winding down the project, dotting the i's, crossing the t's, I checked out about 'securing' it. Nothing fancy, just trying to make it open maximized and make the tables not so obviously accessable.
Well, you can probably guess already what I did... I unchecked all those 'allow' checkboxes under tools->startup and now I'm locked out of my own database! And it's not quite finished yet!
Knowing Microsoft security there's a simple solution for this, but I don't know it.
Thanx for any help!

 

[joebloeonthego]

sry, just saw MMFL's faq on a similar (not similar enough that I noticed after a quick check before posting - but similar enough that I gave it a peek afterwards) topic.

hold down shift-key when starting.

 

[jbleoo]

Hi
You may also creat a blank database and import everything, dont forget to choose the advanced properties and select all inport and other stuff.

Hope this helps

I also have better ways to hide the tables

Simple : create an autorxec macro, use it to open the main form in dialodg mode. this will hide the database window and disable the F11 key.

Advanced have a look at this code and you will see by adding a simple password form to open a securtity form. you will be able to have two buttong that either open the database or secue the database. see the following code that would go in the ONCLICK porperty.


Private Sub Command5_Click()
ChangeProperty "StartupForm", dbText, "MainMenu"
ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, True
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
ChangeProperty "AllowShortcutMenus", dbBoolean, True

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Security SET Security.Status = 'OFF'"
DoCmd.SetWarnings True

MsgBox "You must now EXIT and RE-OPEN the database !!", vbExclamation
DoCmd.Quit
End Sub



Private Sub Command1_Click()

ChangeProperty "StartupForm", dbText, "MainMenu"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, False
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, False
ChangeProperty "AllowShortcutMenus", dbBoolean, False
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Security SET Security.Status = 'ON'"
DoCmd.SetWarnings True
MsgBox "You must now EXIT and RE-OPEN the database !!", vbExclamation
DoCmd.Quit
End Sub