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 Display lock holders holders = view.LockHolders If holders(0) = "" Then Messagebox "None",, "Lock holders" Else Forall h In holders msg$ = msg$ & h & Chr(13) End Forall Messagebox msg$,, "Lock holders" End If End Sub
See Also