Right Click - Shortcut Menus

Let me suggest you get Dale's Access Shortcut Tool, which is something I use weekly and without which, well ... it would be painful at best to continue to develop Custom right click shortcut menus ... since the original Customize tool was removed in A2007.  I helped Dale beta test this tool for almost a year, wherein many cool features were added that were not present in the original Microsoft Customize tool.  No need to mess with code when this super cool and extremely useful tool exists!

Highly Recommended ....

Comment for Dale Fye:

Thanks for the information in the articles you recommended. My requirement is to turn off some of the 'Right Click'/Shortcut/CommandBars' that exist on the Form object in MS Access 2013/2016 and I am sure that your recommended article (CommandBars (Part III) - Using Built-in Shortcut Menus) will do the trick

I did include the suggested code to assist in identifying the names of the PopUp menus in my Application but when I run it (F8) i get the error 'User Defined type not defined'. This is for the command: 'Dim cbr as CommandBar' I presume the same will happen with the command: Dim btncbr as CommandBarButton

Am I overlooking something?

Check to make sure you have the Microsoft Office #.0 Object Library (where # represents the current version of Office you are using) listed as a reference in your application.

After you have the code working, you can change your declarations to:

dim cbr as Object
dim btn as Object

and remove the reference, but for your initial work, you need that library referenced.  Plus this will give you intellisense.

HTH
Dale

Comment for Dale Fye:

I got the code to execute successfully, but when I click on the 'What's This' option on the popup I get a Run time error 424, Object require in the code line marked with an X

Public Sub WhatsThis()
Dim cbr As Object
Dim btn As Object

On Error GoTo ProcError

For Each cbr In Application.CommandBars

    Set btn = cbr.Controls.Add(1, , , , True)
    btn.Caption = "What's This"
    btn.onaction = "WhatsThisMenu"
    btn.begingroup = True
   
NextBar:
Next

ProcExit:
    On Error Resume Next
    Set btn = Nothing
    Set cbr = Nothing
   
ProcError:
    Resume NextBar
   
End Sub

Public Sub WhatsThisMenu()

   Debug.Print "Name:  "; CommmandBars.ActionControl.Parent.Name   XXXXXXXXXXX Object required
    Debug.Print "index: "; CommandBars.ActionControl.Parent.Index
    MsgBox "Name : " & CommandBars.ActionControl.Parent.Name & vbCrLf _
    & "Index: " & CommandBars.ActionControl.Parent.Index

End Sub

I rechecked the code but cannot fine the problem. Can you please assist?

Comment to Dale Fye:

I obtained most of the info I require from your documentation, however there is one specific bit of info that I cannot find. My objective is to 'disable'/'hide' one specific option on a specific popup on a form. The popup name is "Form View Popup" and it appears when you click anywhere on (any) form. outside any control. See Attached Form-View-Popup.docx

On this Popup I want disable the option "Design View". My question is: How do I get access to the controls at this level. i.e. "Form View", "Layout View" "Design View" etc.

Your document "CommandBars (Part iii) Section C (A third Method to hide controls. . . .) describes how to hide/reveal all the built-in controls in a shortcut menu in one step but not how to hide/reveal only one of these built in controls.

Your assistance is appreciated.