Dear friends,
I am using MS Access 2022 (office 365), I am having trouble with creating shortcut menu command for report. I tried to follow the same thing posted by Beacon (How to create a custom shortcut menu command that identifies the calling form/report?), I used MS Office 16.0 object library as reference. The code causes no error, but when on use right mouse click on the form/report that call the sub creating the custom short cut menu, it shows only the standard shortcut menu of ms access. The code posed as said above is here below. Please help to advise. - Sub CreateReportShortcutMenu()
-
-
Dim cmbReportShortcutMenu As Office.CommandBar
-
Dim cmbControl As Office.CommandBarControl
-
-
'On Error Resume Next
-
-
'Delete the command bar if it already exists
-
DeleteContextMenu
-
-
' Create the shortcut menu.
-
Set cmbReportShortcutMenu = CommandBars.Add("ReportShortcutMenu", msoBarPopup)
-
-
With cmbReportShortcutMenu
-
-
' Add the Print command.
-
Set cmbControl = .Controls.Add(msoControlButton, 2521)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Quick Print"
-
-
' Add the One Page command.
-
Set cmbControl = .Controls.Add(msoControlButton, 5)
-
-
' Add the Two Pages command.
-
Set cmbControl = .Controls.Add(msoControlButton, 639)
-
-
' Add the Print command.
-
Set cmbControl = .Controls.Add(msoControlButton, 15948)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Select Pages"
-
-
' Add the Page Setup... command.
-
Set cmbControl = .Controls.Add(msoControlButton, 247)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Page Setup"
-
-
' Add the Mail Recipient (as Attachment)... command.
-
Set cmbControl = .Controls.Add(msoControlButton, 2188)
-
' Start a new group.
-
cmbControl.BeginGroup = True
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Email Report as an Attachment"
-
-
' Add the PDF or XPS command.
-
Set cmbControl = .Controls.Add(msoControlButton, 12499)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Save as PDF/XPS"
-
-
' Add the Close command.
-
Set cmbControl = .Controls.Add(msoControlButton, 923)
-
' Start a new group.
-
cmbControl.BeginGroup = True
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Close Report"
-
-
'*******************************************************
-
'* If I was going to use a custom sub/function,
-
'* this an example of how I would at least start it
-
'*******************************************************
-
-
' Add a blank command
-
Set cmbControl = .Controls.Add(msoControlButton, 1)
-
cmbControl.Caption = "Email As PDF"
-
cmbControl.OnAction = "=MySubFunction()"
-
-
End With
-
-
Set cmbControl = Nothing
-
Set cmbReportShortcutMenu = Nothing
-
-
End Sub
-
-
Sub DeleteContextMenu()
-
-
On Error Resume Next
-
CommandBars("ReportShortcutMenu").Delete
-
-
End Sub
7 8856 NeoPa 32,554
Expert Mod 16PB
I won't delete this straight off, in case the reason it's been done so poorly is because of language issues.
However, This is not a valid question. It's a request for someone to do your work for you. You show no signs even of having started to look at what might be going wrong, or even if the code is supposed to do what you want. There is also no clear explanation of exactly what that is. You have code; you have a requirement; clearly these don't match but nor is either explained. What's your requirement? What does the code do that doesn't match that?
Hi NeoPa,
It is correct that my English is poor, anyway I will try to be more precise and compact this time.
1. Requirement: I want to have Custom Shortcut Menu for my report.
2. Current situation: I have used the code shown below here in this post (initially posted by Beacon, shown also in my initial post). I have tried by calling this CreateReportShortcutMenu (shown below) from by my report, but it does not work. Right mouse click on my report in report preview mode or report view mode, only standard shortcut menu of msaccess appears.
I need help for making the custom shortcut menu worked/appeared.
Hope my English is understandable this time.
Here is the code I use: - Sub CreateReportShortcutMenu()
-
-
Dim cmbReportShortcutMenu As Office.CommandBar
-
Dim cmbControl As Office.CommandBarControl
-
-
'On Error Resume Next
-
-
'Delete the command bar if it already exists
-
DeleteContextMenu
-
-
' Create the shortcut menu.
-
Set cmbReportShortcutMenu = CommandBars.Add("ReportShortcutMenu", msoBarPopup)
-
-
With cmbReportShortcutMenu
-
-
' Add the Print command.
-
Set cmbControl = .Controls.Add(msoControlButton, 2521)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Quick Print"
-
-
' Add the One Page command.
-
Set cmbControl = .Controls.Add(msoControlButton, 5)
-
-
' Add the Two Pages command.
-
Set cmbControl = .Controls.Add(msoControlButton, 639)
-
-
' Add the Print command.
-
Set cmbControl = .Controls.Add(msoControlButton, 15948)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Select Pages"
-
-
' Add the Page Setup... command.
-
Set cmbControl = .Controls.Add(msoControlButton, 247)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Page Setup"
-
-
' Add the Mail Recipient (as Attachment)... command.
-
Set cmbControl = .Controls.Add(msoControlButton, 2188)
-
' Start a new group.
-
cmbControl.BeginGroup = True
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Email Report as an Attachment"
-
-
' Add the PDF or XPS command.
-
Set cmbControl = .Controls.Add(msoControlButton, 12499)
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Save as PDF/XPS"
-
-
' Add the Close command.
-
Set cmbControl = .Controls.Add(msoControlButton, 923)
-
' Start a new group.
-
cmbControl.BeginGroup = True
-
' Change the caption displayed for the control.
-
cmbControl.Caption = "Close Report"
-
-
'*******************************************************
-
'* If I was going to use a custom sub/function,
-
'* this an example of how I would at least start it
-
'*******************************************************
-
-
' Add a blank command
-
Set cmbControl = .Controls.Add(msoControlButton, 1)
-
cmbControl.Caption = "Email As PDF"
-
cmbControl.OnAction = "=MySubFunction()"
-
-
End With
-
-
Set cmbControl = Nothing
-
Set cmbReportShortcutMenu = Nothing
-
-
End Sub
-
-
Sub DeleteContextMenu()
-
-
On Error Resume Next
-
CommandBars("ReportShortcutMenu").Delete
-
-
End Sub
Hi All
I have never used 365 so this may be irrelevant, but I suspect not.
Have you set the Shortcut Menu Bar property for the Form or Control in the properties Other Tab.
The code creating the shortcuts will need running ij the session before they appear inthe list for selection.
HTH
MTB
NeoPa 32,554
Expert Mod 16PB
Hi bounthong.
That is somewhat better. Clearly there is little understanding of what the code does so that would be harder to explain.
By the way - if you have a link to the original thread that MTB was involved in you may post it in here so others may view it in case that can help. While hijacks are not allowed, links to other threads certainly are.
@MTB.
Not sure I understand you correctly. Are you saying the code must be run before the db designer can design it into their Report object? That seems awkward at best.
Hi NeoPa,
I have tried different ways, including calling the sub that creating short cut menu in form_load event. As said, there was no error message from the system, it looks like everything is correct. But when the the form is open, right mouse click shows pop-up with standard short cut menu of ms access but not the expected one that should have been created by the sub mentioned.
Anyway, I have resolved my problem already with another method. I disabled all menus and short cut menu, and created custom ribbons for my purpose instead.
Thanks.
Hi NeoPa
Yes, in my experience since the days of office 97 to before ribbons were forced on us in 2007, Toolbars created in code don't seem to exist until the code creating them has run, which makes sense. Although toolbars so created will now appear on an Addin tab. I now define my own ribbons not toolbars, but the short cut menus still work as the y did pre-ribbons. It is inconvenient having to run the creating code before they appear in the design drop list, but if you know the designated name/title of the shortcut to be created you can type it in (I believe!).
MTB
NeoPa 32,554
Expert Mod 16PB
Hi Mike.
I'm afraid I still take advantage of the old CommandBar s and CommandBarButton s which, as you say, still work and can be found within the AddIn Toolbar^H^H^H^H^H^H^HRibbon.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Lex |
last post by:
I am writing a C# app that has a Menu. Some of the menu items will
have short cuts that do not exist in the Shortcut enum. I would like
the custom shortcuts to appear on the menu but as far as I...
|
by: Terry Bell |
last post by:
I have some code that adds entries to the "Module Compiled" popup
menu. Works fine in A97. You can open a module, right click, and the
new entries are there for you to click. I converted it to...
|
by: JMCN |
last post by:
hi
i'm having a problem with the customize a shortcut menu. i read the ms
office assistance: customize a shortcut menu/delete a command or add
to a shortcut menu and followed the simple...
|
by: downwitch |
last post by:
Hi all,
I've read through the archives on this, and scoured the web, to little
avail.
There has to be a way to move custom menu bars (or menubars, or command
bars, or popup command bars, or...
|
by: munkee |
last post by:
Hi all,
I have been playing with pivotcharts lately to display my data from my database. I have since found however that I will need to get rid of a lot of the "options" a user has to mess around...
|
by: beacon |
last post by:
Hi everybody,
I'm using Access 2010, but the format for the database is .mdb because I'm not ready to fully convert it to Access 2010 and the .accdb format.
I've been reading up on how to...
|
by: AdamHope |
last post by:
I want to create a custom shortcut menu bar (MS Access 2003), but include the "Filter for" option, which is in the default menu bar -
http://img201.imageshack.us/img201/5405/filterfordefault.jpg...
|
by: husseinspiky |
last post by:
please i need help with how can I create custom shortcut menus that appear when you right-click forms because i want to prevent the design view option
thank you,
|
by: Ashish Bisht |
last post by:
Hi everyone, I have been working on a project related to javascript and want to know your views on creating custom Hamburger menu using jquery which is a symbol consisting of three parallel...
|
by: EnglishMon |
last post by:
Hi
I created an MS Access database in the 90's and it has gone through many Access versions and has always had the following fault that I do not know how to correct.
On one of the forms I created a...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 7 Feb 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:30 (7.30PM).
In this month's session, the creator of the excellent VBE...
|
by: MeoLessi9 |
last post by:
I have VirtualBox installed on Windows 11 and now I would like to install Kali on a virtual machine. However, on the official website, I see two options: "Installer images" and "Virtual machines"....
|
by: DolphinDB |
last post by:
Tired of spending countless mintues downsampling your data? Look no further!
In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
|
by: Aftab Ahmad |
last post by:
Hello Experts!
I have written a code in MS Access for a cmd called "WhatsApp Message" to open WhatsApp using that very code but the problem is that it gives a popup message everytime I clicked on...
|
by: Aftab Ahmad |
last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below.
Dim IE As Object
Set IE =...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
by: Vimpel783 |
last post by:
Hello!
Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
|
by: jfyes |
last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
|
by: ArrayDB |
last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
| |