The basic recipe (and I'm not being secretive I just can't post the code until/unless I rewrite it) is:
Include a reference to the "Microsoft Office NN.0 Object Library" where NN refers to your Access/Office version e.g. 12 or 14.
Then you will find you can create objects "As" CommandBar et cetera.
A very *very* basic skeleton would be:
Dim MyCBar As CommandBar, MyCBarCtl As CommandBarControl
' Create a new Popup
Set myCBar = CommandBars.ADD(Name:="Sample Toolbar", Position:= msoBarPopup)
Set myCBarCtl = myCBar.Controls.Add(type:=msoControlButton)
With CBarCtl
.style = msoButtonCaption
.caption = "Test"
.TooltipText = Translate("Test TT")
.OnAction = "=MsgBox(""You pressed a toolbar button!"")"
End With
You will need to expand this to either create the Commandbar or set a reference to an existing one and you will have to use some proper functions. Setting the ContextMenu of a form/control to "Sample Toolbar" will popup this simple menu. You will of course want to replace the MsgBox call with your own function or....
You can also add the internal Functions using something like:
myCBar.Controls.Add id:=Application.CommandBars("Filter/Sort").Controls("Microsoft Access Help").id
Which is probably what you are looking to do in general, adding the various sort/Filter options you want/need.
Sorry if this is cryptic, one last tip... I actually created my static popups in Access 2000 using the old standards. They are still there in Access 2000 and can still be activated (or selected as Contextmenu for a form/control) using their old names.
--- In MS_Access_Professionals@yahoogroups.com, "Stuart Luckman" <stuartluckman@...> wrote:
>
> Bill,
>
>
>
> I was wondering if you could do this without using the macros, they end up
> being the only macros in the application.
>
>
>
> Hopefully you can do this just with VBA.
>
>
>
> Cheers,
>
> Stuart
>
> My Signature
>
>
>
>
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bill Mosca
> Sent: Saturday, 31 March 2012 1:28 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] Run time and right clicking
>
>
>
>
>
> Stuart -
>
> Ah HA! Macro Name has been replaced with Sub Macro. I guess that makes sense
> seeing how macros are gradually making their way into the VBA World for
> Dummies. Now a macro name is a sub routine.
>
> Thanks for giving me a sample, Stuart. If I get some time I'll poke around
> in my copy of Access 2010 Inside Out to see how to make a real context menu
> without macros called to expose them.
>
> Bill
>
> --- In MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> , "Stuart Luckman"
> <stuartluckman@> wrote:
> >
> > Liz/Bill,
> >
> >
> >
> > I have uploaded an example which works on my machine.
> >
> > Hope it all works for you.
> >
> >
> >
> > Cheers,
> >
> > Stuart
> >
> >
> >
> >
> >
> >
> >
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Stuart
> Luckman
> > Sent: Friday, 30 March 2012 10:50 AM
> > To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> >
> >
> >
> >
> > Hi Bill,
> >
> > I'm using 2007, I've never used 2003.
> >
> > When you have the macro open in design view, click on the design ribbon at
> > the top and in the Show/Hide group their is Show all actions, Macro Names,
> > Conditions, Arguments.
> >
> > There you click on Macro Names.
> >
> > I'm no pro, so I'm not great at explaining . . . I'll try to get an
> example
> > posted.
> >
> > Cheers,
> >
> > Stuart
> >
> > My Signature
> >
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Bill
> Mosca
> > Sent: Friday, 30 March 2012 10:32 AM
> > To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> > Hi Stuart
> >
> > I don't see a macro name column and can't find a way to expose it like you
> > could
> > in 2003.
> >
> > Regards,
> >
> > Bill
> >
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Stuart
> > Luckman
> > Sent: Thursday, March 29, 2012 1:42 PM
> > To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> > Hi Liz/Bill,
> >
> > I am using Access 2007 but I forgot one part of the step.
> >
> > In the FlitMenuFunc macro add the Macro Name: Filter and Sort
> >
> > Otherwise it looks like you have nothing to click on.
> >
> > Sorry it took so long replying, I'm in Australia so when you guys were
> > chatting I was sleeping.
> >
> > Cheers,
> >
> > Stuart
> >
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Liz
> > Ravenwood
> > Sent: Friday, 30 March 2012 4:22 AM
> > To: 'MS_Access_Professionals@yahoogroups.com
> <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com> '
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> > Thanks Bill. I appreciate the validity.
> >
> > Liz Ravenwood
> > Database Developer / Programmer
> > Super First Class Products
> > B/E Aerospace
> > O: 1.520.239.4808
> > www.beaerospace.com
> >
> > -----Original Message-----
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Bill
> Mosca
> > Sent: Thursday, March 29, 2012 10:18 AM
> > To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> > Liz
> >
> > I followed Stuart's instructions and I get what you get: a blank box.
> Maybe
> > Stuart was working with Access 2003 or earlier and this isn't translating
> in
> > 2007 or 2010.
> >
> > Maybe someone can step in and give us another way.
> >
> > Regards,
> >
> > Bill
> >
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Liz
> > Ravenwood
> > Sent: Thursday, March 29, 2012 9:31 AM
> > To: 'MS_Access_Professionals@yahoogroups.com
> <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com> '
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> > Bill. I did this and when I open up the accdr, I don't see any menu nor
> have
> > any
> > response from my right clicking on the form.
> >
> > Liz Ravenwood
> > Database Developer / Programmer
> > Super First Class Products
> > B/E Aerospace
> > O: 1.520.239.4808
> > www.beaerospace.com
> >
> > -----Original Message-----
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Bill
> Mosca
> > Sent: Thursday, March 29, 2012 9:18 AM
> > To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > Subject: RE: [MS_AccessPros] Run time and right clicking
> >
> > Liz
> >
> > I'll let Stuart continue with this topic, but I thought I'd interject
> this:
> >
> > Runtime has no menus except the very limited File menu. No context menus.
> > None.
> > Nadda.
> >
> > You have to build all the custom menus, including context (right-click)
> > menus,
> > custom toolbars (or Ribbons if in 2007/2010).
> >
> > To see what your runtime users will see use:
> >
> > 1. If file is MDB - the /runtime switch in a shortcut to open the database
> > as in:
> >
> > "C:\Program Files\Microsoft Office\Office11\msaccess.exe" /runtime
> > "YourDBFullPath"
> >
> > 2. If accdb change file extension to accdr
> >
> > Regards,
> >
> > Bill
> >
> > From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Liz
> > Ravenwood
> > Sent: Wednesday, March 28, 2012 3:59 PM
> > To: 'MS_Access_Professionals@yahoogroups.com
> <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com>
> > <mailto:%27MS_Access_Professionals%40yahoogroups.com> '
> > Subject: [MS_AccessPros] Run time and right clicking
> >
> > Greetings pros, I just learned that creating a run time version (accdr)
> > loses
> > right click capability.
> >
> > I searched on line and see that there was some bug that was fixed but not
> in
> > the
> > run time version... is that correct?
> >
> > Does anyone know how to give someone right click access or if they know
> that
> > I'm
> > missing something here?
> >
> > Liz Ravenwood
> > Database Developer / Programmer
> > Super First Class Products
> > B/E Aerospace
> > O: 1.520.239.4808
> > www.beaerospace.com
> >
> > This email (and all attachments) is for the sole use of the intended
> > recipient(s) and may contain privileged and/or proprietary information.
> Any
> > unauthorized review, use, disclosure or distribution is prohibited. If you
> > are
> > not the intended recipient, please contact the sender by reply e-mail and
> > destroy all copies of the original message.
> >
> > [Non-text portions of this message have been removed]
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
> > This email (and all attachments) is for the sole use of the intended
> > recipient(s) and may contain privileged and/or proprietary information.
> Any
> > unauthorized review, use, disclosure or distribution is prohibited. If you
> > are
> > not the intended recipient, please contact the sender by reply e-mail and
> > destroy all copies of the original message.
> >
> > [Non-text portions of this message have been removed]
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
> > This email (and all attachments) is for the sole use of the intended
> > recipient(s) and may contain privileged and/or proprietary information.
> Any
> > unauthorized review, use, disclosure or distribution is prohibited. If you
> > are not the intended recipient, please contact the sender by reply e-mail
> > and destroy all copies of the original message.
> >
> > [Non-text portions of this message have been removed]
> >
> > [Non-text portions of this message have been removed]
> >
> > [Non-text portions of this message have been removed]
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
Senin, 02 April 2012
Re: [MS_AccessPros] Run time and right clicking
__._,_.___
.
__,_._,___
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar