Solved Accdb: AllowMenus/ xmenus, edit/unedit (1 Viewer)

[vhung]

>try this codes sometimes
...you can simplfy it, if you apply this codes, you need to restart your open database, so you have to add codes for db auto restart
"[Command Prompt] = "restrt" need codes to insert for shutdown and start again, or restart codes, or manual close then open again
where: command=AllowMenus; you can edit your form using right click

[Command Prompt] = "restrt"
On Error Resume Next
CurrentDb.Properties("AllowFullMenus").Value = True

If Err.Number = 3270 Then
Set prpNew = CurrentDb.CreateProperty("AllowFullMenus", dbBoolean, True)
CurrentDb.Properties.Append prpNew
Err.Clear
End If

Application.SetOption "Auto Compact", True
CurrentDb.Properties("AllowShortcutMenus") = True

>see xmenus on next message

 

[vhung]

>for XMenus
whereas: command=XMenus; you cannot edit your form using right click, unless you have click button for Form designView

[Command Prompt] = "restrt"
On Error Resume Next
CurrentDb.Properties("AllowFullMenus").Value = False

If Err.Number = 3270 Then
Set prpNew = CurrentDb.CreateProperty("AllowFullMenus", dbBoolean, False)
CurrentDb.Properties.Append prpNew
Err.Clear
End If

Application.SetOption "Auto Compact", True
CurrentDb.Properties("AllowShortcutMenus") = False

>need to restart db after command