Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1008
  • Last Modified:

Execute dynamic VBA code just like docmd.runsql(SQLtext)

I am trying to make my app flexible and accept code on the fly.

I am using msaccess 2003 for the frontend and MS SQL2000 for the backend.  I compile all projects and the users run an *.ade file.

currently I create the dynamic code in T-SQL and execute it on the SQL server.  This as it is not secure and could crash with the wrong code.  I want to execute the code locally and/or use VBA code.

So basically I would like to create a string like:

str2Exec = "=iif(Value = 1, "S", "C")"

Then Replace the "Value" with a real number:

str2Exec = Replace(str2Exec, "Value", 1 )

Then finally exec the string and save the result

strResult = RunVBA(str2Exec)


Any ideas on how to execute this code on the fly?
0
ScottGutman
Asked:
ScottGutman
1 Solution
 
dorbraxtonCommented:
Have you tried the Eval() function?
0
 
harfangCommented:
Hello,

If your strings contain only standard VB operators and built-in functions, you can use "Eval":

    ? Eval(Replace(" IIf(Value = 1, ""A"", ""B"") ", "Value", "13"))

Cheers!
(°v°)
0
 
ScottGutmanAuthor Commented:
exactly what i was looking for!!

Thanks
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now