|
|
Dim s As New notessession Dim db As notesdatabase Set db = s.CurrentDatabase Set level% = db.CurrentAccessLevel
This will return a value ranging from 0 to 6 (0 = No Access, 6 = Manager, all other levels in between).

Notes R4
Notes/Domino 4.5
Notes/Domino 4.6
Notes/Domino R5
Notes/Domino 6
Notes/Domino 6.5
Notes/Domino 7
Notes/Domino 8
Notes/Domino 8.5