Determine the current user's access to a database

Use this code to find out what the current user's access is to the current database. You could use this with any database, just set the "db" to any database
LotusScript

Dim session As New NotesSession

Dim db as NotesDatabase
Set db = session.CurrentDatabase
	
Dim dbAL As Integer
dbAL = db.CurrentAccessLevel
	
If dbAL >= 4 Then
	'User has Editor access or more
Else
	'User has Author access or less
End If

Images/Screenshots:

Posted by fbrefere001 on Wednesday March 27, 2002