LOTUSSCRIPT/COM/OLE CLASSES

Examples: LockHolders property
This view action displays the lock holders for the view named "Main View."

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