I wanted to bubble up error messages and ran into the problem that the error message is truncated to about 250 chars. Can someone confirm this bound and give me advice how to get around this limit?
Function raiseError (nErr As Integer, sError As String)
If Instr(1,sError, Cstr(nErr)) = 0 Then
'/* !! Overwrite simple Notesmessage with more detailed message. !! */
Error nErr, _
Error$ & " (Error " & Cstr(nErr) & ")" & Chr$(13) + _
"In '" + Lcase(Typename(Me)) & "." & Lcase(Cstr(Getthreadinfo(10))) & "' (Zeile " & Cstr(Erl) & ")."
Else
'/* !! Doesn't work for many calls, because Length of Error Messages is limited. !! */
'/* Concatenate Error messages, to get the whole Thread of Calls and bubble up to calling function. */
Error nErr, sError & Chr$(13) + _
"Called from: " +Lcase(Typename(Me)) & "." & Lcase(Cstr(Getthreadinfo(10))) & " (" & Cstr(Erl) & ")."
'/* Bubble up Error to Calling function*/
'Error Err, Error$
End If
End Function 'raiseError