Examples: QueryOpen event (NotesUIView - LotusScript®)

This QueryOpen event prevents the view from opening if the current user does not have Designer access to the database.

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