Functions

[Swatty]

Hi all, is it possible to call a function or sub when the name of the function is stored in a var.

When i try this i'll get the error
Compile error
Expected Sub, Function, or Property.

Is there a way to call it with the name stored in a string variable ??

[mendhak]

Of course you'll get an error!! Try using a redirecting function instead.

Call redirector(variablename)


...
...


private function (redir as string)
select case redir
case "swatty"
call soandso()

case "mrpolite"
call linux()

end select
end function

[mendhak]

Oops, I forgot to complete the sentence.

"Of course you'll get an error,you're calling a variable!!"

[Swatty]

If I need to do it like that, i'll place an extra if else in my loop for calling the wright function.

It was for following.

got two functions with same parameters but different calculations in it.

So i would before i enter the loop put the function name in a var, and then call it through that var.

Instead i'll test it every time again.

Thanks for the quick reply though.

[Michael_Kamen]

You can use the CallByName function, to call a sub or function stored in a variable. Like this:

Dim MyFunction As String
Dim MyParameters As Integer
MyFunction = "SquareRoot"
MyParameters = 200
'usage:
CallByName Me, MyFunction, VbMethod, MyParameters

This example shows how to call a sub called SquareRoot which needs an integer as parameter.

[mendhak]

Thanks from me... I had no idea about this one.

[Wokawidget]

I was just about to post that answer
I use it in collecton class module so allow the client side to display columns in a grid. You just add the Property names to an array, easy to change....

Wokawooooooo

[Swatty]

Thanks but i think this won't work.

It is a function call in a module .
the option you gave me requires an object i don't have.
And my parameters must be given in an array.

this is my call to the first function.
bereken_totaal_incl_btw "vleveringslijn", vL.Fields("jaar"), vL.Fields("journaal"), vL.Fields("nummer"), vL.Fields("boekdatum"), vL.Fields("betalingsvw"), vL.Fields("munt"), n, b, t, f, True, "vlevering"


If i need to fill in the parametrlist first , i think it is faster with an if else statement.



Anyway I'll keep it in mind for later use.
Thanks Michael

[Wokawidget]

Errr...what do you mean by an object you don't have???
It will work...Just pass your para's in as an array....????


Woka

[Swatty]

If I have to fill in an array of 12 elements against a selection , i think it will go faster with the selection.

Rhanks anyway