.

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: ViewName property
This PostOpen event displays a message containing the view name.

Sub Postopen(Source As Notesuiview)
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Set db = s.CurrentDatabase
 If db.CurrentAccessLevel <> ACLLEVEL_MANAGER Then
   Messagebox "You must be Manager to use this view",, _
   Source.ViewName
   Call Source.Close
 End If
End Sub

See Also