Eliminating Macros from Custom toolbars

[AlanKW]

I am updating some databases from Access97 to AccessXP. I am trying to clean up the databases in the process (eliminating unused forms, reports, etc…). There were some macros that I changed to code and eliminated the macros and everything, but there is a custom toolbar with some buttons that are tied to Macros. Is there a way that I can have the button goto a function so I can be completely Macro free?

Thanks in advance
-Alan

 

[JimFlower]

Yes create Public functions
then in the OnAction of the propertys of your menu item
enter =functionname()

 

[AlanKW]

way to easy.


Thanks!

 

[nimarii]

is it possible to have the menu item call a sub, or does it have to be a function?

I have multiple subs (cmdUpdateCustomerInfo(), cmdAddNew(), etc) and would like to add these functions to my customer toolbar. Is this possible? If not, how would I go about changing them to functions?

 

[Zion7]

nimarii,
I believe this is only possible with functions.
In order to change a sub to function, you must, of course, change the stub Public Sub/End Sub to Public Function/End Function. Then, in this case, the name of your function, must equal, the result of your code....

before...
Sub AddNumbers()

dim x,y w as integer

x= 7: y = 12

w = (x + y)
txtBox = w
End Sub

after..
Public Function AddNumbers() As integer

dim x, y, w as integer

x= 7: y = 12

w = (x + y)
AddNumbers = w
End Function

Then to call it from a controlSource of a textbox, for example,
ControlSource = AddNumber()

Hope this helps, good luck!