Restoring Full Menus

[Noreene Patrick]

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

 

[modest]

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.

 

[Noreene Patrick]

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

 

[Noreene Patrick]

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

Thanks, Noreene

 

[modest]

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

 

[Mile-O]

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

 

[ghudson]

Check this out for a few tricks... Hide all Access Toolbars and Menubars

 

[modest]

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.

 

[modest]

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