Application.Eval（）このコード行は評価しません表現

Question

で作業していない：

strHolder = "If(StrComp(Left("Campaign", 5), "IMS :") = 0" 
myVar = Application.Eval(strHolder) 

これはエラーIです：

If(StrComp(Left("Campaign", 5), "IMS :") = 0 

を、私はこのようにそれを使用しています「Mの受信：

Run-time error '2425': 

The expression you entered has a function name that Microsoft Access can't find. 

私はApplication.EvalがIf、StrComp、またはLeft

ない、ここで何をすべきかわからいずれかを読み取ることができない、と私はEval法上くらいの綿密な情報を見つけることができないことを推測しています。

Answer 1

このコード行は評価しません。

If(StrComp(Left("Campaign", 5), "IMS :") = 0 

そして、それはThenせずに起因するアンバランス括弧にしてIfのいずれかをコンパイルしません。

あなたはこのイミディエイトウィンドウの例のような何かをしたい場合も、二重、その後... ...

strHolder = "If(StrComp(Left("Campaign", 5), "IMS :") = 0" 

...

? StrComp(Left("Campaign", 5), "IMS :") = 0 
False 

このラインでコンパイルエラーがあるはずです​​に送信する文字列内に"文字を入力してください。

strHolder = "StrComp(Left(""Campaign"", 5), ""IMS :"") = 0" 
? strHolder 
StrComp(Left("Campaign", 5), "IMS :") = 0 
myVar = Application.Eval(strHolder) 
? myVar 
0 
? CBool(myVar) 
False