Examples: CurrentAccessLevel property

This script gets the current user's access level to the current database. For example:

  • If the script runs on a workstation and the current user has Author access to the current database, CurrentAccessLevel returns ACLLEVEL_AUTHOR.
  • If the script runs on a server and the script owner has Designer access to the current database, CurrentAccessLevel returns ACLLEVEL_DESIGNER.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim level As Integer
Set db = session.CurrentDatabase
level = db.CurrentAccessLevel