次のビューアクションは、「Guys」グループのすべてのメンバーに対し、「Main View」というビューをロックしようとします。ビューがまだロックされていない場合、またはロックされているが有効なユーザーが Guys のメンバーに含まれている場合は、ロックは成功します。暫定ロックが設定されます。
%INCLUDE "lsxbeerr.lss"
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 Lock the view
REM Not locked if return is False or error is raised
On Error Goto errh
If view.LockProvisional("Guys") Then
Print "View locked - " & view.Name
Else
Print "View NOT locked - " & view.Name
End If
Exit Sub
errh:
If Err() = lsERR_NOTES_LOCKED Then
Print "View NOT locked - " & view.Name
Else
Messagebox "Error " & Err() & ": " & Error(),, "Error"
End If
Exit Sub
End Sub