Context menu Control ID list (1 Viewer)

[KitaYama]

Where can I find a list of msoControlButton control IDs?
I'm trying to add the following section to a customized context menu.

I know the ID for Filter by selection (640), Filter excluding selection (3017), Filter between (10062).
But when I add them the result is not above.

Is there anyway to add exactly the section shown in red to a custom short cut menu for a form?

Thank you.

 

[theDBguy]

There is an Excel download for that. Let me see if I can find the link for you.

 

[KitaYama]

@theDBguy thanks for helping.
I've seen the excel downlead. But it doesn't cover this section.

I hope you find something that contains the above red rectangle.
thanks.

 

[theDBguy]

@theDBguy thanks for helping.
I've seen the excel downlead. But it doesn't cover this section.

I hope you find something that contains the above red rectangle.
thanks.

Oh, those. You'll have to roll your own on those ones. I know someone who has done that. I'll have to see if it's available.

 

[KitaYama]

Oh, those. You'll have to roll your own on those ones. I know someone who has done that. I'll have to see if it's available.

I really appreciate it.
thanks.

 

[arnelgp]

for the "Equals", "Not Equals"

.Controls.Add msoControlButton, 10068
.Controls.Add msoControlButton, 10071
.Controls.Add msoControlButton, 10090
.Controls.Add msoControlButton, 12265
.Controls.Add msoControlButton, 10076
.Controls.Add msoControlButton, 10089
.Controls.Add msoControlButton, 10091
.Controls.Add msoControlButton, 12266
.Controls.Add msoControlButton, 10092
.Controls.Add msoControlButton, 10093
.Controls.Add msoControlButton, 10095
.Controls.Add msoControlButton, 10068
.Controls.Add msoControlButton, 10094

Note that some IDs will only work for "Text" or "Number" field.
so you need to test and create 2 shortcut for text and one for number.

 

[KitaYama]

@arnelgp
Is it impossible to have the exact same thing as above?

Thanks for your help.

 

[CJ_London]

the buttons Arnel mentions are grouped in the SortSelectionMenu (Policy ID 11759). The SortSelectionMenu is contained within the GroupSortAndFilter menu (Policy ID 11758). The text filters menu is the FilterAdvancedMenu (policy ID 13278).

Control Name	Control Type	Group/Context Menu Name	Parent Control	Policy ID
FiltersMenu	toggleButton	GroupSortAndFilter		11761​
SortUp	toggleButton	GroupSortAndFilter		210​
SortDown	toggleButton	GroupSortAndFilter		211​
SortRemoveAllSorts	button	GroupSortAndFilter		12267​
SortSelectionMenu	menu	GroupSortAndFilter		11759​
FilterEqualsSelection	button	GroupSortAndFilter	SortSelectionMenu	10068​
FilterNotEqualsSelection	button	GroupSortAndFilter	SortSelectionMenu	10071​
FilterBeginsWithSelection	button	GroupSortAndFilter	SortSelectionMenu	10090​
FilterDoesNotBeginsWithSelection	button	GroupSortAndFilter	SortSelectionMenu	12265​
FilterContainsSelection	button	GroupSortAndFilter	SortSelectionMenu	10076​
FilterDoesNotContainSelection	button	GroupSortAndFilter	SortSelectionMenu	10089​
FilterEndsWithSelection	button	GroupSortAndFilter	SortSelectionMenu	10091​
FilterDoesNotEndWithSelection	button	GroupSortAndFilter	SortSelectionMenu	12266​
FilterBeforeSelection	button	GroupSortAndFilter	SortSelectionMenu	10092​
FilterAfterSelection	button	GroupSortAndFilter	SortSelectionMenu	10093​
FilterSmallerThanSelection	button	GroupSortAndFilter	SortSelectionMenu	10095​
FilterLargerThanSelection	button	GroupSortAndFilter	SortSelectionMenu	10094​
FilterBetween	button	GroupSortAndFilter	SortSelectionMenu	10062​
FilterIsSelected	button	GroupSortAndFilter	SortSelectionMenu	15195​
FilterIsNotSelected	button	GroupSortAndFilter	SortSelectionMenu	15196​
FilterAdvancedMenu	menu	GroupSortAndFilter		13278​
FilterClearAllFilters	button	GroupSortAndFilter	FilterAdvancedMenu	605​
FilterAdvancedByForm	button	GroupSortAndFilter	FilterAdvancedMenu	628​
ApplyFilter	button	GroupSortAndFilter	FilterAdvancedMenu	497​
ServerFilterByForm	button	GroupSortAndFilter	FilterAdvancedMenu	3971​
ServerFilterApply	button	GroupSortAndFilter	FilterAdvancedMenu	3938​
SortAndFilterAdvanced	button	GroupSortAndFilter	FilterAdvancedMenu	499​
LoadFromQuery	button	GroupSortAndFilter	FilterAdvancedMenu	1791​
SaveAsQuery	button	GroupSortAndFilter	FilterAdvancedMenu	1790​
DeleteTab	button	GroupSortAndFilter	FilterAdvancedMenu	2076​
ClearGrid	button	GroupSortAndFilter	FilterAdvancedMenu	2087​
CloseDocument	button	GroupSortAndFilter	FilterAdvancedMenu	14782​
FilterToggleFilter	toggleButton	GroupSortAndFilter		601​

 

[KitaYama]

Then in short, we can not add that section in red rectangle to a customized short cut menu.
Am I correct?

 

[CJ_London]

yes and no - you can build something that looks pretty much the same - so far as I know you cannot use an inbuilt menu, only the individual buttons but again you can build your own.

create your 'top' command bar (msoBarPopup)
add some buttons (msoControlButton - use policyID above to identify which ones)
add a menubar (use msoControlPopup (value=5))
    add buttons to menubar
    add another menubar if you want
          add buttons to this menubar 
add some more buttons if required

Don't have time right now to put an example together but you should get the idea. Here is a link that might help

Working with Command Bar Controls | Absolute Beginners Guide to VBA

Absolute Beginners Guide to VBA,2003, (isbn 0789730766, ean 0789730766), by McFedries P.

flylib.com

If you want to use intellisense install the Office XX.X Object library, you can convert to late binding when you are more familiar with it

google 'vba commandbars' for more information

 

[KitaYama]

you can build something that looks pretty much the same

Well, that Pretty much the same suits me fine. But unfortunately I failed.

It seems that when I add each menu individually, Access doesn't hide the unnecessary items.
As @arnelgp suggested, I have to create 2 or 3 sets of context menus and set each text box's context menu separately based on data type of the text box. Otherwise Access gives me something like bellow.

Just imagine how many forms and how many textboxes, list boxes, etc....How can I go through all of them and set their context menu one by one?

The third image is when I click an empty place on the form. Because Access doesn't find any textbox under mouse pointer, it shows the context menu this way.

Set cmbRightClick = CommandBars.Add(cbName, msoBarPopup, False, True)
   
With cmbRightClick
    ' Add Reset Sort
    Set cmbCtl = .Controls.Add(Type:=msoControlButton)
    cmbCtl.Caption = "Reset Sort"
    cmbCtl.OnAction = "ReSortForm"
    cmbCtl.FaceId = 8
       
    ' Add the Find command.
    .Controls.Add msoControlButton, 141, , , True
       
    ' Start a new grouping and add the Sort Ascending command.
    .Controls.Add(msoControlButton, 210, , , True).BeginGroup = True
       
    ' Add the Sort Descending command.
    .Controls.Add msoControlButton, 211, , , True
       
    .Controls.Add msoControlButton, 10068
    .Controls.Add msoContro    lButton, 10071
    .Controls.Add msoControlButton, 10090
    .Controls.Add msoControlButton, 12265
    .Controls.Add msoControlButton, 10076
    .Controls.Add msoControlButton, 10089
    .Controls.Add msoControlButton, 10091
    .Controls.Add msoControlButton, 12266
    .Controls.Add msoControlButton, 10092
    .Controls.Add msoControlButton, 10093
    .Controls.Add msoControlButton, 10095
    .Controls.Add msoControlButton, 10068
    .Controls.Add msoControlButton, 10094

End With

 

[CJ_London]

In the past I had 3 - one each for text, numbers and dates just used to reinstate basic sort/filter functionality for datasheets in a runtime environment, easy to determine the the datatype based on a fields datatype property. These would be assigned to the appropriate controls on form load.

But sounds like your requirement goes further - so perhaps take a look at the context property?

CommandBar.Context property (Office)

Office VBA reference topic

learn.microsoft.com

also look at this link - it's excel, but the concept should be the same

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl

this may be relevant as well

Disabling (and enabling) Context menu items in Excel

From time to time you may need to prevent users from Deleting or Inserting rows or columns on an Excel worksheet. Further, it would also be nice to block any unnecessary Sorting and Filtering. Excel’s context menus (right click popup … Continue reading →

rlbcontractor.com

Either way you will need code for the datatype to either select the appropriate commandbar (which can be done in the load event) or set context which would probably need to be set in a controls enter or got focus event. These can all be done in a general module with an event call as discussed in one of your other threads - something like '=setBar([FORM],...)'

 

[KitaYama]

Just to be clear, you're suggesting to have a code in onLoad event of each form to run a procedure to set different context menus to different controls based on their data type?

If yes, I think I can do it on my own.
I'm reading provided links now.

Thank you.

 

[CJ_London]

Just to be clear, you're suggesting to have a code in onLoad event of each form to run a procedure to set different context menus to different controls based on their data type?

yes - assuming the form controls needs the menus. Menus for forms will have a different options and datasheets have options to hide the column for example - in my case I wasn't bothered about form menus or datasheet functionality such as hiding/unhiding a column - users can do that with resizing.

 

[KitaYama]

thank you for clarifying.