Full Menu Bar

[1aae]

Thank you

I will give you Scenario (example)

1- I can’t access to data base because allowbybass (security) you can’t use
shift to enter and change the data base properties.

2- in tools ===startup === I deselect (allow full menu) ..

notes:

You will see (menu bar) but without full menu commands.



==============

What is My question:

I will use a Form and command button:

How can I restore full menu (all commands ) by using this command button?

 

[losmac]

To restore all statrtup properties You can use this code

Dim db As database, prp As Propert

Set db = CurrentD
Set prp = db.CreateProperty("StartUpForm", dbText, ""
db.Properties.Append pr
Set prp = db.CreateProperty("StartUpShowDBWindow", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("StartUpShowStatusBar", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("AllowShortcutMenus", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("AllowFullMenus", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("AllowBuiltInToolbars", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("AllowToolbarChanges", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("AllowSpecialKeys", dbBoolean, True
db.Properties.Append pr
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True
db.Properties.Append pr
db.Clos

Or piece of them...

 

[1aae]

this message box appear when copy and paste this code in command button:



Cannot append. An object with that name already exists in the collection.
(Error 3367)You tried to append an object to a collection that already
contains an object of the same name. Use the Refresh method on the
collection and check to see whether the object you want to append already
exists, or try changing the object's Name property setting.