.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: QueryOpen event
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

See Also