Trap Eval

[jibberski]

Is there a way to test the function Eval() for a valid return?

I'm receiving Error 2425: "The expression can't be found"

'With formula table
Do while not .EOF
  strAnswer = !formula
  For Each ctl In Me.Section(acDetail).Controls
    Do Until InStr(1, strAnswer, ctl.Tag) = 0
      strAnswer = Replace(strAnswer, ctl.Tag, ctl.value, 1, 1)
    Loop

[COLOR=red]If IsError(Eval(strAnswer)) = True Then[/color red]
   Call ScreenWrite
   'ScreenWrite will
   'parse formula for all Vars
   'get var properties 
   'ctl.tag = VarName
   'Unhide next control 
else
answer = Eval(strAnswer)
endif

Thanks for your time.

 

[Remou]

Why not use the errors?

On Error GoTo TrapErr

<...>

TrapErr:
Select Case Err.Number
    Case 2425
        MsgBox "Problem"
    Case Else
        Debug.Print Err.Description
End Select