I did such a stupid thing..I went into the startup of my database and chose to not show full menus...we are having some "wanna be's" messing around in the database so I was going to restrict their ability to "roam". Now, I cant get in to undo the procedure...I tried by holding down shift key while opening but I still dont have access to the regular menu to go to startup option.

I am going to have to find some way to secure that db but I have to get into it first....

Can someone help?

Thanks, NOreene

Public Sub ChangeAllowFullMenus()
Dim db As DAO.Database
Dim prp As DAO.Property

Set db = CurrentDb
Set prp = db.Properties("AllowFullMenus")

Select Case prp.Value
Case True: prp.Value = False
Case False: prp.Value = True
End Select
End Sub

Just wrote this for you. To see changes you have to close and re-open access.

Well, I finally figured out how to get the startup menu by going into design of form and putting in this code: docmd.runcommand.accmdstartupproperties and clicking allow full menus. So at least now I can get into my own db!!! Wont do that again.

But, now I have to have some security to keep employees from being able to do anything but fill out form...and allowing managers to put in username and password to get reports.

I didnt learn anything about security in some classes that I took so security is a scary thing for me to mess around with...I am going to search for security in this forum...Thanks so much

Noreene

Thank you, modest...I am going to file this code so if I do something like this again, then I wont panic...

Thanks, Noreene

I think the same option you found in the form is available for reports and tables as well.

I am going to file this code so if I do something like this again,

Remember to add the following two lines before the End Sub ;)


Set prp = Nothing
Set db = Nothing

Check this out for a few tricks... Hide all Access Toolbars and Menubars (http://www.access-programmers.co.uk/forums/showthread.php?t=81406)

Remember to add the following two lines before the End Sub ;)


Set prp = Nothing
Set db = Nothing


I'm not sure if you can close the prp variable, but don't forget to close it either:

'prp.Close 'uncomment this if it is an option
set prp = Nothing
db.Close
set db = Nothing

If you didn't close or set them to nothing, Access should automatically do this, so don't worry. But people have seen that Access doesn't always work as it should and this is more of a safety line.

Currentdb.Properties("AllowBuiltInToolbars")
Currentdb.Properties("AllowToolbarChanges")

These are also two properties that you may want to turn off/back on

To enable/disable these use the methods as prescribed above.


Thank you,
Modest