Unable to create shortcut menu

[lawdy]

I am having trouble creating a shortcut menu. I copied the following from the internet. It says to 'run' the code, so I put it in a module. When I run it, I get the error "User defined type not defined".

Sub CreateSimpleShortcutMenu()
Dim cmbShortcutMenu As Office.CommandBar



' Create a shortcut menu named "SimpleShortcutMenu.
Set cmbShortcutMenu = CommandBars.Add("SimpleShortcutMenu", msoBarPopup, False, True)

' Add the Remove Filter/Sort command.
cmbShortcutMenu.Controls.Add Type:=msoControlButton, ID:=605

' Add the Filter By Selection command.
cmbShortcutMenu.Controls.Add Type:=msoControlButton, ID:=640

Set cmbShortcutMenu = Nothing

End Sub

Anyone know what to do?

[June7]

Review this thread https://www.accessforums.net/modules...enu-44055.html
See if referenced links help

[lawdy]

I get the same results for 'Dim cmbShortcutMenu As Office.CommandBar' - "User defined type not defined".

[June7]

If you want a right click shortcut menu, maybe this will be more helpful http://msdn.microsoft.com/en-us/library/ff194247.aspx

I will have to give that a try this weekend.

[lawdy]

I got the same error - "User defined type not defined" regarding 'Dim cmbShortcutMenu As Office.CommandBar'

[amrut]

You have to set reference to Microsoft Office 14.0 Object Library ?

[lawdy]

I have it set to Microsoft Office 14.0 Object Library. In the article where I got the code (listed above) says to 'run' the code once and that I don't have to each time I start Access. I am not sure what that means, so I put it in a module, and then run the code. I have trived several codes from several articles. I always get the same error - "User defined type not defined"- regarding the 'dim' line 'Dim cmbShortcutMenu As Office.CommandBar'

[June7]

I followed the instructions from last link I referenced.

I ran the procedure and then the shortcut menu was available to the ShortcutMenuBar property of the form or report.

However, I find that the code does have to be run again when the db is reopened.


No idea why you get the error. If you want to provide db for analysis, follow instructions at bottom of my post.

[ItsMe]

reference
Microsoft Office XX.X Object Library

[lawdy]

Under references, Microsoft Office 14.0 Access database enjine object library is checks. Is 'cmbShortcutMenu As Office.CommandBar' a user defined type?

[June7]

It is not. As stated, the code works for me.

[lawdy]

I just tried it again without any luck. Where does the code go?

[June7]

I put it in a general module but it should work anywhere.

[lawdy]

That is what I did. I am doing something wrong!

[June7]

If you want to provide db for analysis, follow instructions at bottom of my post.