Domino Code Fragment

Code Name*
Error handling with On Error		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.22.61.246
Description*
Error handling with On Error		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Initialize
    On Error Goto processError
    Dim db As New NotesDatabase("", _
    Inputbox("File name of database"))
    Call db.UpdateFTIndex(True)
    Exit Sub
processError:
    Messagebox Err() & Chr(10) & Error()
    Exit Sub
End Sub