custom shortcut menus

[Beacher]

I want to make a custom menu so when you click it it will run code that
I've written.. only I don't know how to get the menu to run code I
want, and I know nothing of modules... can anyone explain to me how I
could achieve this? Thanks in advance

[Rick Brandt]

Beacher wrote:

I want to make a custom menu so when you click it it will run code
that I've written.. only I don't know how to get the menu to run code
I want, and I know nothing of modules... can anyone explain to me how
I could achieve this? Thanks in advance

You need to make your code a function rather than a sub-routine and then
just put the name of the function into the action property for the menu.

=FunctionName()

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[Beacher]

Thanks alot :D got it working now, your the best!

[Beacher]

Though how do I refer to controls and forms from a module...when i
right click on a controls i need it to delete something from a
listbox.. so i need to refer to my listbox in my module

[Rick Brandt]

Beacher wrote:

Though how do I refer to controls and forms from a module...when i
right click on a controls i need it to delete something from a
listbox.. so i need to refer to my listbox in my module

Try...

Screen.ActiveControl

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[BerkshireGuy]

Try:

Forms!frmName!Mylistbox

So if you have a listbox on a form called frmMyForm with a listbox
called lstbxCustomers, you would use:

Forms!frmMyForm!lstbxCustomers

[Beacher]

Like I said never done anything with modules lack of intellisense :(
lol.. anyways I referred to it Forms!formname.control.property and it
works

Thanks again for the help

[Beacher]

Hmm I've encountered another problem.. It's telling me object is
required when I use the module to run this code, but if i put the EXACT
same code in my main form it works fine

msgbox (Forms!form1!lstCond.ItemData(lstCond.ListIndex + 1))

just msgbox(forms!form1!lstcond.listindex) works but not the above
method.

[Beacher]

*smacks self* I see the problem gotta reference lstcond.listindex as
forms!form1!lstcond.listindex

[Matt]

Actually, if you put the function in the code of the form itself, then
when you select that menu item Access will FIRST check to see if the
function exists in the code module of the active form, and if it
doesn't it will look in any modules for that function. This is nice
because it provides a way for you to sort of "override" the default
functionality of a menu item for a specific form if you want, but still
have the menu item behave a certain way in all other situations. It
also allows you to easily reference the controls on the form.