title image


Smiley Re: Navigatorfunktion nur für Manager
Hallo Zusammen,



habe es mit diesem Script hinbekommen.:



Sub Queryopen(Source As Notesuiview, Continue As Variant)

Dim s As New NotesSession

Dim db As NotesDatabase

Set db = s.CurrentDatabase

If db.CurrentAccessLevel < ACLLEVEL_MANAGER Then

Messagebox "Sie benötigen Managerrechte, um diese Ansicht anzuzeigen.",, _

"Zugriff verweigert"

Continue = False

Else

Continue = True

End If

End Sub



Das reicht mir fürs Erste.



Nochmal vielen Dank.



Sigurd

Gruß Sigurd

www.sigurd-pompetzki.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: