Domino 9 und frühere Versionen > Entwicklung

zugriff auf maske

<< < (2/2)

Semeaphoros:
Wenn ich "meinen Kopf" richtig verstehe, meint er, dass Leser ein Dokument mit einer Maske, die in den Edit-Mode wechseln, anwerfen können, aber eine Fehlermeldung bekommen, soweit ist das normal, nur etwas sehr verkürzt von ihm ausgedrückt, hat aber nix mit Leserfeldern zu tun -- meine Interpretation

Axel:
Hi,

das Ganze muß mit Script im QueryOpen-Event passieren. die Formel-Funktion @UserAccess kann nicht verwendet werden, da die Funktion nicht in Evaluate - Statements verwendet werden kann.

Die Lösung sieht so aus:


--- Zitat ---Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim entry As NotesACLEntry
   
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Set entry = acl.GetEntry( session.UserName )
   If Not ( entry Is Nothing ) Then
      If entry.Level = ACLLEVEL_READER Then
         Messagebox "Sie haben nur Leserechte und können die Maske nicht öffnen"
         Continue = False
      End If
   End If  '   If Not ( entry Is Nothing ) Then
End Sub
--- Ende Zitat ---

Vorraussetzung ist natürlich, das die entsprechenden User direkt in der ACL als Leser enthalten sind.


Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete