Domino Code Fragment

Code Name*
Handling a specific error		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.218.184.214
Description*
Handling a specific error		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Declarations:
%INCLUDE "lsconst.lss"
%INCLUDE "lsxbeerr.lss"

Sub Initialize
    On Error Goto processError
    On Error LSERR_NOTES_DATABASE_NOTOPEN Goto processDbNotOpen
    Dim db As New NotesDatabase("", _
    Inputbox("File name of database"))
    Call db.UpdateFTIndex(True)
    Exit Sub
processDbNotOpen:
    If Messagebox("Bad name. Try again?", _
    MB_YESNO) = IDYES Then
         Call db.Open("", _
         Inputbox("File name of database"))
         Resume
    Else
         Exit Sub
    End If
processError:
    Messagebox Err() & Chr(10) & Error()
    Exit Sub
End Sub