Access 2007 - using shortcut / right click command bars

Posted on 2007-11-19
Last Modified: 2013-11-28
I have used shortcut menus fine in access 2003 where it allows you to set these up manually. From looking through the posts it looks like you can add these in code and looks like you only need to run code once to set up.

However I can't find the right code to set up - looks like it relates to CommandBars.Add and then adding controls to this but I cannot get right code without an error.

Does anyone have the code to set up a shortcut menu which I can then select in the shortcut menu bar Property on a control on a form.

I would like to set up a shortcut with say 3 items to select - Ideally I would like one of these to run a function.
Question by:donhannam
  • 2
  • 2

Expert Comment

Comment Utility

Here's some code that I've been using.  

My toolbar is called "Novitas Tools"  (it's the name of a large application I wrote).  The code first removes the toolbar if it's there, then adds the buttons one by one.  Change the lines NewBtn.OnAction =  to reference your subroutine name.

Hope this is what you were looking for.

--Jim Christmas
Sub NovitasToolbar()

Dim ctlPop As CommandBarPopup

Dim ctl As CommandBarControl

Dim NewBtn As CommandBarButton

Dim strPlatform As String

    On Error GoTo Exit_Toolbars

    'Remove Existing

    For Each ctl In Application.CommandBars("Menu Bar").Controls

        If ctl.Caption = "Novitas Tools" Then ctl.Delete

    Next ctl

    Set ctlPop = Application.CommandBars("Menu Bar").Controls.Add(msoControlPopup, , , , True)

    ctlPop.Caption = "Novitas Tools"


    Set NewBtn = ctlPop.Controls.Add(msoControlButton)

    NewBtn.Caption = "Lookup a Novitas &User"

    NewBtn.OnAction = "LaunchWhoIs"

    NewBtn.FaceId = 362


    Set NewBtn = ctlPop.Controls.Add(msoControlButton)

    NewBtn.Caption = "&Calculator"

    NewBtn.OnAction = "LaunchCalc"

    NewBtn.FaceId = 283


    Set NewBtn = ctlPop.Controls.Add(msoControlButton)

    NewBtn.Caption = "Calen&dar"

    NewBtn.OnAction = "LaunchCalendar"

    NewBtn.FaceId = 1106


    Set NewBtn = ctlPop.Controls.Add(msoControlButton)

    NewBtn.Caption = "Send &eMail"

    NewBtn.OnAction = "LaunchContextEMail"

    NewBtn.FaceId = 262


    If GetLoginID = "JCHRIS1" Then

        Set NewBtn = ctlPop.Controls.Add(msoControlButton)

        NewBtn.Caption = "&Administration Console"

        NewBtn.OnAction = "LaunchAdmin"

        NewBtn.FaceId = 2144

    End If


    Exit Sub


    If Err Then Err.Clear


End Sub

Open in new window


Author Comment

Comment Utility

Tried this - ran without errors but cannot get to work as a shortcut menu.

By playing around a bit managed to get to display on shortcut menu bar list dropdown but when right clicked there was nothing in the list.

Is this for shortcuts or is it for toolbars or menu bars?.

Appreciate any help



Accepted Solution

MrXmas earned 250 total points
Comment Utility

Sorry.  That's for menu bars.  I launch everything from the code in the subs.  

--Jim Christmas

Author Closing Comment

Comment Utility
Not what I was looking for but have used part of code for other uses.

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now