Syntax for function call to eventobj.Report Error causes "Cannot have parentheses..."

[GreggaR0und]

Hello;

I am doing some data validation within InfoPath. One of my forms uses VBscript, not JScript, but I'm hoping this is still the best forum to post my issue.

When I use the ReportError function to produce an error, I get a compile error that says:

"Cannot have parentheses in a sub procedure".

My code is as follows:

sub msoxd__tblTestCase_TestCaseID_attr_OnValidate(eventObj)
dim objError
dim objStr
 
if IsNumeric(eventObj.Site.nodeTypedValue) then
   if LEN(eventObj.Site.nodeTypedValue) < 3 OR LEN(eventObj.Site.nodeTypedValue) > 4 then
      eventobj.reporterror (eventobj.site, "must be 3 chars in len", false)
      msgbox("Must be 3 CHARS IN LENGTH.  ")
   END IF
else
   eventobj.reporterror (eventobj.site, "must be numeric", false)
   msgbox("Must be 3 CHARS IN LENGTH.  ")
end if
XDocument.UI.Alert("Error message: ")
End sub
 

Now, obviously, there are other function calls within the sub which work properly, so I think the error message is the compiler balking at something else. Also, when I put the ReportError expression in the Watch window, it displays the proper results.

What am I doing wrong?

Thanks!

[iam_clint]

what language is this? looks like vbscript

[GreggaR0und]

Yes, it is VBscript. I changed the InfoPath programming language to VB instead of Jscript because I thought it would be easier to work with. I didn't see a VBscript forum, though, so I posted it, here. Is there a more appropriate forum to post in?

Thanks