Handling A Specific Error

Handling a specific error
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

Dig Deeper on Lotus Notes Domino Administration Tools

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close