例: QueryOpen event (NotesUIView - LotusScript®)

次の QueryOpen イベントは、現在のユーザーがデータベースへの [設計者] のアクセス権を持っていない場合に、ビューを開けないようにします。

Sub Queryopen(Source As Notesuiview, Continue As Variant)
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Set db = s.CurrentDatabase
  If db.CurrentAccessLevel < ACLLEVEL_DESIGNER Then
    Messagebox "You must be Designer to open this view",, _
    "Access to view denied"
    Continue = False
  Else
    Continue = True
  End If
End Sub