Call Function by string

[BUX]

If I want to call a function using a string i use the follow code:
Application.Run "MyFunction" and there is no problem.
But if MyFunction need parameters
Application.Run "MyFunction(myParameter)" do not work.
Do you know how can I do ?
thank you

[David Lloyd]

Try:

Application.Run "MyFunction", "myParameter"

This assumes myParameter is a string. Remove the quotes for numeric data
types, of course. If you have more than one parameter, just continue the
comma separated list.
--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.
"BUX" <pi***@pippo.it> wrote in message
news:9f********************************@4ax.com...
If I want to call a function using a string i use the follow code:
Application.Run "MyFunction" and there is no problem.
But if MyFunction need parameters
Application.Run "MyFunction(myParameter)" do not work.
Do you know how can I do ?
thank you

[BUX]

It work, but I would like store the string
"MyFunction,myParameter1,myParameter2 ..."
in table.
The problem is that Visual Basic read the comma as text
rather than parameter separetor.

[David Lloyd]

You may want to consider using the Eval function. For example,

Eval("MyFunction('MyStringParam', MyIntegerParam)")

Putting string parameters in single quotes appears to work.

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.
"BUX" <pi***@pippo.it> wrote in message
news:t0********************************@4ax.com...
It work, but I would like store the string
"MyFunction,myParameter1,myParameter2 ..."
in table.
The problem is that Visual Basic read the comma as text
rather than parameter separetor.

[BUX]

Sorry, it return run-time error 2425
'Impossible to find the function'

thank you for your help

On Wed, 27 Jul 2005 16:40:25 -0400, "David Lloyd"
<Da***@NoSpamPlease.com> wrote:

Eval("MyFunction('MyStringParam', MyIntegerParam)")

[David Lloyd]

You may want to use Debug.Print to examine the string passed to the Eval
function. I did test this and it does work. It's hard to know where the
issue is without more specifics regarding your code.

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.
"BUX" <pi***@pippo.it> wrote in message
news:sr********************************@4ax.com...
Sorry, it return run-time error 2425
'Impossible to find the function'

thank you for your help

On Wed, 27 Jul 2005 16:40:25 -0400, "David Lloyd"
<Da***@NoSpamPlease.com> wrote:

Eval("MyFunction('MyStringParam', MyIntegerParam)")

[BUX]

I have found solution.
But is impossible set reference to vba6.dll from Access 2003 VBA.
But in VisualBasic.net it work perfectly!

'------------------------------------------
' (c) 1999 Trigeminal Software, Inc. All Rights Reserved
'------------------------------------------
'Thanks to ----------michka - Michael Kaplan
'Rest of code by Sergio Perciballi -oigres P (Aug-6-2000)

'Uses the function used by the immediate window
'to execute a line of code.
Option Compare Text
Option Explicit

Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' For VB5 IDE
'Declare Function EbExecuteLine Lib "vba5.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' FOR Access 97/VBE.dll clients like Word 97 and Excel 97
'Declare Function EbExecuteLine Lib "vba332.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Function FExecuteCode(stCode As String, _
Optional fCheckOnly As Boolean) As Boolean

FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&,
Abs(fCheckOnly)) = 0
End Function

Private Sub Combo1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub