Eval function not work with multiple parameters.

[TechRider]

Anyone can help me on this?

I am running Access 2000 and trying to use the Eval function to pass a string and have it execute what the string evauates to. It seems when I pass it multiple parameters within that string it doesn't work. I have 2 code snippets below to show what I mean.

Ideas anyone? Need more info, let me know.

Thanks, Mark


'====Snip 1====
Private Sub Command0_Click()


Eval ("MsgBox(""msg"&quot&quot
'Works passing single parameter
' string evaluates to: MsgBox("msg&quot


Eval ("MsgBox(""msg"", , ""title"&quot&quot
' Doesn't work, multiple parameters-- error 2431
' string evaluates to: MsgBox("msg", , "title&quot

End Sub



'===Snip2===
Private Sub Command0_Click()
Dim x As String


x = "DoCmd.OpenReport (""R1"&quot"

Debug.Print x
Eval (x)
' Works – single parameter


x = "DoCmd.OpenReport (""R1"", 2)" ' acPreview = 2

Debug.Print x
Eval (x)
'Not work

End Sub

 

[DougP]

What are you trying to do with this??
DougP, MCP

 

[TechRider]

DougP,
Thanks for the response.

I am creating a hierarchical switchboard for an application I wrote. I am using a Treeview object and populating it using the data I have put in a table. Some of the data includes a text field which contains the command I want to be run when a user clicks on one of the nodes. The whole thing works beautifully with the exception of when one of my commands has multiple parameters such as

msgbox(“whatever”, , “the Title”)
Or docmd.openreport(“Report1”,acpreview)

All of the other commands work such as

Docmd.beep
Msgbox (“Not enabled yet”)


I didn’t want to code all of the possible commands I might want to use. And, I wanted to leave it somewhat open so that without touching the code, I could use the switchboard for other applications. I realize there’s lots of ways to accomplish what I’m trying to do, but I also wanted to do it this way for the mental exercise.

The examples I included with my previous post are the lowest level of code which will recreate the problem I am running into. It doesn’t really do anything useful.

That’s some of the background on what I’m doing and why.


Thanks,
Mark

 

[FancyPrairie]

This is how you use the EVAL statement with arguments:
Eval(YourFunctionName("arg1;arg2;arg3&quot

 

[FancyPrairie]

OOPs! Forgot the right parenthesis
Eval(MMC_RevisonFileCopy("arg1;arg2;arg3&quot)

 

[TechRider]

Thanks,

So, taking my first example I should code it:
Private Sub Command0_Click()


Eval ("MsgBox(""msg"";;""title"&quot&quot

Do I have that right? I'll try it.

Thanks.
Mark

 

[TechRider]

Hi,


Using the Semicolon in place of the comma doesn't work. However, I disovered that if I put in the missing parameter, I can get it to work.

Eval ("MsgBox(""msg"",0,""title"&quot&quot
' works if I put in the zero.


Thanks,

Mark