В 32 bits Access все работало:

1. В конструкторе формы
Контекстное меню - Да
Имя пользовательского контекстного меню - SimpleShortcutMenu
2. При открытии формы
Создаем ссылку:
Sub AddRfrnc()
Dim s As String
RefNum = References.Count: s = Left(Application.Version, 2)
References.AddFromFile "C:\Program Files\Common Files\microsoft shared\OFFICE" + s + "\mso.dll"
End Sub[/SRC]
Создаем меню:
Sub CreateSimpleShortcutMenu()
Dim cmbShortcutMenu As Office.CommandBar
Set cmbShortcutMenu = CommandBars.Add("SimpleShortcutMenu", msoBarPopup, False)
cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=21
cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=19
cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=22
cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=644
cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=4
Set cmbShortcutMenu = Nothing
End Sub
компилируем...

В 64 bits Access: Все операции с Declare и LongPtr произведены и приложение работает, кроме ShortcutMenu:
"Приложению не удается найти объект SimpleShortcutMenu"


В чем причина и как с этим справиться?

Уважаемый sdku, я был занят другими делами, поэтому долго не отвечал. Спасибо за участие. Выяснилось, что в 32 достаточно в конструкторе формы указать имя пользовательского меню до создания самого меню, а в 64 - нужно при загрузке формы его указывать - не понимает почему-то access что ему заранее пишут. И Ваш и мой варианты работают.