shortcut in access 2013 64 bits
|
|
, 23 2018 . 14:54
+
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"
?
https://www.sql.ru/forum/1305795/shortcut-in-access-2013-64-bits
