LOTUSSCRIPT /COM/OLE のクラス

例:Lock メソッド
次のビューアクションは、「Guys」グループのすべてのメンバーに対し、「Main Agent」というビューをロックしようとします。ビューがまだロックされていない場合、またはロックされているが有効なユーザーが 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.Lock("Guys", True) 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

関連項目