I’m attempting to understand LO Basic’s error handling. Specifically, I’m trying to set the Description field of the Err object in a called routine, then access that field from a global handler so I can display a meaningful message to the user.
I have the following code, copied from a web example and then modified:
Sub Main
' Set up error handling in the main routine
On Error GoTo ErrorHandlerMain
' Call the subroutine that might raise an error
Call SubRoutineWithError(10)
' If no error occurs, this line will be executed
MsgBox "Execution finished without errors."
Exit Sub ' Exit the Sub to avoid running into the ErrorHandlerMain
ErrorHandlerMain:
' This block handles any errors raised within Main or routines called by Main
MsgBox "Error " & Err & ": " & Error$ & Chr(10) & "blahblah" ' <-- no error done this way
' MsgBox "Error " & Err & ": " & Error$ & Chr(10) & Err.Description ' <-- error is here
' Optional: Resume execution at the next line or end the program
' Resume Next
End
End Sub
Sub SubRoutineWithError(Value As Integer)
' No local error handler is set in this routine, so the error
' will propagate back to the calling routine (Main)
If Value > 5 Then
' Raise a user-defined error.
' Error codes 0-2000 are reserved for LibreOffice Basic.
' User-defined errors should start from higher values (e.g., 1001).
Err.Raise Number:=1001, Source:="SubRoutineWithError", Description:="Value cannot be greater than 5."
End If
' If the error is raised, the lines below will not execute.
' Execution jumps to the error handler in the calling routine.
MsgBox "This message will not be shown if an error is raised."
End Sub
Note the “error is here” designation in the “ErrorHandlerMain”; there are two versions of this call to MsgBox. The first one uses the “blahblah” string, and works fine. If I instead use the second one, using “Err.Description”, I get a runtime error saying “Object variable not set”.
What am I missing?
