Hi,
ich hatte das mal so gelöst - wenn ich jetzt die Frage richtig verstanden habe....
Anforderung war:
- in der DB darf jeder lesen
- nur wenn im Feld "Bereich" steht "Intern", dann nur Leute mit der Rolle [Intern]
Umgesetzt habe ich es wie folgt:
- für jeden Bereich eine eigene Ansicht erstellt, eben auch für "INTERN" eine separate Ansicht
- in den Ansichtseigenschaften "INTERN" halt nur der Rolle [Intern] den Zugriff gegeben
Dann noch (u.U. WICHTIG !!) sicherstellen, dass auch User, die einen Dok-Link bekommen auf ein Dok "Intern", dann auch nicht zugreifen dürfen!
Also 1 Normale Maske, und eine 2. Maske "Intern", und jew. ins Queryclose:
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Source.EditMode = False Then
Exit Sub
End If
Dim doc As NotesDocument
Set doc = Source.Document
Dim uidoc As NotesUIDocument
Dim session As NotesSession
If doc.savechecker (0) = "0" Then
Exit Sub
Else
End If
If doc.Bereich (0) = "INTERN" Then
doc.Form = "frmINTERN"
Else
doc.Form = "frmNormal"
End If
Call doc.Save (True, False, True)
End Sub
Dazu sollte dann in der Maske noch ein Feld "savechecker" sein mit der Formel
@If(@IsDocBeingSaved; "1";"0")
Ist vielleicht auch ein möglicher Ansatz....
bye,
Bob