LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase REM Exit if locking is not enabled If Not db.IsDesignLockingEnabled Then Print "Design locking not enabled" Exit Sub End If REM Get view Dim view As NotesView Set view = db.GetView("Main View") REM Unlock view REM View is not unlocked if error is raised On Error Goto errh Call view.UnLock Print "View unlocked - " & view.Name Exit Sub errh: Print "View NOT unlocked - " & view.Name Exit Sub End Sub
See Also