This is the code I have put together so far. I'm trying to create a custom right click menu. I want to add the "Text Filters" dropdown to this menu and am looking for a little help. If you were viewing a datasheet and using the default shortcut menus you would see the "Text Filters" option in you right clicked. I'm looking to add that to my menu. Any help at all would be GREATLY appreciated!! I'm using access 2010. Thanks!
Sub CreateWIPShortcutMenu()
Dim cmbRightClick As Office.CommandBar
' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("cmdWIP", msoBarPopup, False, True)
With cmbRightClick
.Controls.Add msoControlButton, 19, , , True 'Copy
.Controls.Add msoControlButton, 141, , , True 'Find
.Controls.Add(msoControlButton, 210, , , True).BeginGroup = True 'New group and Ascending
.Controls.Add msoControlButton, 211, , , True 'Decending
.Controls.Add(msoControlButton, 10068, , , True).BeginGroup = True 'New group and Equals selection
.Controls.Add msoControlButton, 10071, , , True 'Filter Excluding selection
.Controls.Add msoControlButton, 10076, , , True 'Contains Selection
.Controls.Add msoControlButton, 10089, , , True 'Does not contain selection
.Controls.Add msoControlButton, 10090, , , True 'Begins With selection
.Controls.Add msoControlButton, 12265, , , True 'Does not begin with selection
.Controls.Add msoControlButton, 10091, , , True 'Ends with selection
.Controls.Add msoControlButton, 12266, , , True 'Does not end with selection
.Controls.Add msoControlButton, 605, , , True 'Remove Filter/Sort
End With
Set cmbRightClick = Nothing
End Sub