开发者

Using variables as function names and parameters in VBA

I have the following variables in my VBA logic sFunctionName, sParam1, sParam2, sParam3 all string variables populated from a table. I would like to use those variables to call a function. I have tried using Application.Run(sFunctionName, sParam1) and the statement fails, However when i use A开发者_StackOverflow中文版pplication.Run(sFunctionName) it works just fine. I have also tried Eval on someones suggestion with no luck. Can someone let me know what I am missing, or if i can even do what I am attempting to do? I appreciate any and all help.

Thanks, J


#1. Regarding Eval(): Per Access's help files,

You can use the Eval function to evaluate an expression that results in a text string or a numeric value.

So, if your function resolves to text or numeric, then you're good to go.
i.e. Debug.Print Eval("Date()")

#2. I don't think your problem with Run() is with the actual function itself, but rather how you are applying it. I threw together some quick code. Does this help?

Function AddOne(What As Integer) As Integer
    AddOne = What + 1
End Function

Function x()
    Dim WhichFunc As String
    WhichFunc = "AddOne"
    Dim What As Integer
    What = 1
    x = Run(WhichFunc, What)
End Function

(Calling this with debug.print x in the Immediate Window will give you a 2)


Try running a method without braces, like:

Application.Run sFunctionName, sParam1
0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜