LOTUSSCRIPT/COM/OLE CLASSES
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