473,287 Members | 1,533 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,287 software developers and data experts.

How to create a custom shortcut menu command

3 2Bits
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.
Expand|Select|Wrap|Line Numbers
  1. Sub CreateReportShortcutMenu()
  2.  
  3.     Dim cmbReportShortcutMenu As Office.CommandBar
  4.     Dim cmbControl As Office.CommandBarControl
  5.  
  6.     'On Error Resume Next
  7.  
  8.     'Delete the command bar if it already exists
  9.     DeleteContextMenu
  10.  
  11.     ' Create the shortcut menu.
  12.     Set cmbReportShortcutMenu = CommandBars.Add("ReportShortcutMenu", msoBarPopup)
  13.  
  14.     With cmbReportShortcutMenu
  15.  
  16.         ' Add the Print command.
  17.         Set cmbControl = .Controls.Add(msoControlButton, 2521)
  18.         ' Change the caption displayed for the control.
  19.         cmbControl.Caption = "Quick Print"
  20.  
  21.         ' Add the One Page command.
  22.         Set cmbControl = .Controls.Add(msoControlButton, 5)
  23.  
  24.         ' Add the Two Pages command.
  25.         Set cmbControl = .Controls.Add(msoControlButton, 639)
  26.  
  27.         ' Add the Print command.
  28.         Set cmbControl = .Controls.Add(msoControlButton, 15948)
  29.         ' Change the caption displayed for the control.
  30.         cmbControl.Caption = "Select Pages"
  31.  
  32.         ' Add the Page Setup... command.
  33.         Set cmbControl = .Controls.Add(msoControlButton, 247)
  34.         ' Change the caption displayed for the control.
  35.         cmbControl.Caption = "Page Setup"
  36.  
  37.         ' Add the Mail Recipient (as Attachment)... command.
  38.         Set cmbControl = .Controls.Add(msoControlButton, 2188)
  39.         ' Start a new group.
  40.         cmbControl.BeginGroup = True
  41.         ' Change the caption displayed for the control.
  42.         cmbControl.Caption = "Email Report as an Attachment"
  43.  
  44.         ' Add the PDF or XPS command.
  45.         Set cmbControl = .Controls.Add(msoControlButton, 12499)
  46.         ' Change the caption displayed for the control.
  47.         cmbControl.Caption = "Save as PDF/XPS"
  48.  
  49.         ' Add the Close command.
  50.         Set cmbControl = .Controls.Add(msoControlButton, 923)
  51.         ' Start a new group.
  52.         cmbControl.BeginGroup = True
  53.         ' Change the caption displayed for the control.
  54.         cmbControl.Caption = "Close Report"
  55.  
  56.         '*******************************************************
  57.         '* If I was going to use a custom sub/function,
  58.         '* this an example of how I would at least start it
  59.         '*******************************************************
  60.  
  61.         ' Add a blank command
  62.         Set cmbControl = .Controls.Add(msoControlButton, 1)
  63.         cmbControl.Caption = "Email As PDF"
  64.         cmbControl.OnAction = "=MySubFunction()"
  65.  
  66.     End With
  67.  
  68.     Set cmbControl = Nothing
  69.     Set cmbReportShortcutMenu = Nothing
  70.  
  71. End Sub
  72.  
  73. Sub DeleteContextMenu()
  74.  
  75.     On Error Resume Next
  76.     CommandBars("ReportShortcutMenu").Delete
  77.  
  78. End Sub
Mar 8 '23 #1
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?
Mar 8 '23 #2
bounthong
3 2Bits
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:
Expand|Select|Wrap|Line Numbers
  1. Sub CreateReportShortcutMenu()
  2.  
  3.     Dim cmbReportShortcutMenu As Office.CommandBar
  4.     Dim cmbControl As Office.CommandBarControl
  5.  
  6.     'On Error Resume Next
  7.  
  8.     'Delete the command bar if it already exists
  9.     DeleteContextMenu
  10.  
  11.     ' Create the shortcut menu.
  12.     Set cmbReportShortcutMenu = CommandBars.Add("ReportShortcutMenu", msoBarPopup)
  13.  
  14.     With cmbReportShortcutMenu
  15.  
  16.         ' Add the Print command.
  17.         Set cmbControl = .Controls.Add(msoControlButton, 2521)
  18.         ' Change the caption displayed for the control.
  19.         cmbControl.Caption = "Quick Print"
  20.  
  21.         ' Add the One Page command.
  22.         Set cmbControl = .Controls.Add(msoControlButton, 5)
  23.  
  24.         ' Add the Two Pages command.
  25.         Set cmbControl = .Controls.Add(msoControlButton, 639)
  26.  
  27.         ' Add the Print command.
  28.         Set cmbControl = .Controls.Add(msoControlButton, 15948)
  29.         ' Change the caption displayed for the control.
  30.         cmbControl.Caption = "Select Pages"
  31.  
  32.         ' Add the Page Setup... command.
  33.         Set cmbControl = .Controls.Add(msoControlButton, 247)
  34.         ' Change the caption displayed for the control.
  35.         cmbControl.Caption = "Page Setup"
  36.  
  37.         ' Add the Mail Recipient (as Attachment)... command.
  38.         Set cmbControl = .Controls.Add(msoControlButton, 2188)
  39.         ' Start a new group.
  40.         cmbControl.BeginGroup = True
  41.         ' Change the caption displayed for the control.
  42.         cmbControl.Caption = "Email Report as an Attachment"
  43.  
  44.         ' Add the PDF or XPS command.
  45.         Set cmbControl = .Controls.Add(msoControlButton, 12499)
  46.         ' Change the caption displayed for the control.
  47.         cmbControl.Caption = "Save as PDF/XPS"
  48.  
  49.         ' Add the Close command.
  50.         Set cmbControl = .Controls.Add(msoControlButton, 923)
  51.         ' Start a new group.
  52.         cmbControl.BeginGroup = True
  53.         ' Change the caption displayed for the control.
  54.         cmbControl.Caption = "Close Report"
  55.  
  56.         '*******************************************************
  57.         '* If I was going to use a custom sub/function,
  58.         '* this an example of how I would at least start it
  59.         '*******************************************************
  60.  
  61.         ' Add a blank command
  62.         Set cmbControl = .Controls.Add(msoControlButton, 1)
  63.         cmbControl.Caption = "Email As PDF"
  64.         cmbControl.OnAction = "=MySubFunction()"
  65.  
  66.     End With
  67.  
  68.     Set cmbControl = Nothing
  69.     Set cmbReportShortcutMenu = Nothing
  70.  
  71. End Sub
  72.  
  73. Sub DeleteContextMenu()
  74.  
  75.     On Error Resume Next
  76.     CommandBars("ReportShortcutMenu").Delete
  77.  
  78. End Sub
Mar 8 '23 #3
MikeTheBike
639 Expert 512MB
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
Mar 8 '23 #4
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.
Mar 8 '23 #5
bounthong
3 2Bits
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.
Mar 9 '23 #6
MikeTheBike
639 Expert 512MB
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
Mar 9 '23 #7
NeoPa
32,554 Expert Mod 16PB
Hi Mike.

I'm afraid I still take advantage of the old CommandBars and CommandBarButtons which, as you say, still work and can be found within the AddIn Toolbar^H^H^H^H^H^H^HRibbon.
Mar 9 '23 #8

Sign in to post your reply or Sign up for a free account.

Similar topics

10
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...
3
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...
2
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...
12
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...
3
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...
3
beacon
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...
3
AdamHope
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...
1
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,
1
Ashish Bisht
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...
2
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...
2
isladogs
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...
0
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"....
0
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...
0
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...
0
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 =...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
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...
0
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...
0
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...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.