Here are a couple examples:
Sub msoxd_my_field1_OnValidate(eventObj)
dim errObj
set errObj = eventObj.ReportError(eventObj.site, "Short err message text", false, "long err message", 1234, "modal")
'or if not using returned error object (also default value for 'bstrDetailedErrorMessage' and 'lErrorCode' missing args)
eventObj.ReportError eventObj.site, "Short err message text", false, ,, "modal"
End Sub
Jim Cantwell
InfoPathDev - Redmond
Jim Cantwell
InfoPathDev - Redmond