Hi experts !
I've a user defined function that runs ok when called from a sub
procedure through the imediate window.I would like to call the
function from a button on a form. Which code i need on the OnClick
properties window of the button ?
Any help will be welcome.
Regards Penta.

Hi Penta,

If your UDF is like this in a module

Function MyFunction() as string
    'Function Code
End Function

Then you can just type it directly into the sub -

Private sub Button1_OnClick()
    txtBox = MyFunction
end sub

If your Function takes arguments

Function MyFunction(arg1 as string, arg2 as integer, arg3 as boolean) as string
    'Function Code
End Function

then -

Private sub Button1_OnClick()
    txtBox = MyFunction (Argument1, Argument2, etc.)
end sub

Does this help?

Jon

Hi Jon !
Thank u for ur explanation. I'm going to try.
R.P.

Jon !
I must be doing something wrong because i've been having error messages.
On ur explanation i dont know where txtBox comes from. Could u be more
explicit please ?
Thanks again.
R.P.

For what its worth, this took me a while to get.

If you call a function, and it has no return value, what you would do, is just call the function with the arguments behind, but not assign it to any variable, and leave out the parentheses.

e.g.
MyFunction var1
This would run MyFunction and then just continue with the next line in your code.

If your function returns a value, you want to assign the return value to a variable and bracket the variables.

e.g.
var2 = MyFunction(var1)
This runs MyFunctions and assigns the return value to var2.

It looks as though this is what Jon was trying to do with txtBox, just assign it the return value of the function.

Hope that helps,

Mike


Mike
EchoVue.com

Penta, when Mike used "txtBox" in his code, he didn't mean for you to literally use that for your code. He really means user YOUR control in its place. So if you have a control that's called, for example, Project, then use

Project = MyFunction()

If you have a control that's called Status, then use

Status = MyFunction()

txtBox is just a fake name he used for an example. Use your real name instead.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division