Hallo zusammen!
Bin noch zeimlich frisch in Lotus Script.
Folgende Frage:
Bei einer maske möchte ich über QueryModeChange erreichen, das nur ausgewählte Benutzer ein erstelltes/freigegebenes Dokument nochmal editieren können. Der Ersteller selbst sowie andere sollen die Meldung bekommen, dass das Dokument schon freigegeben ist, und nich tmehr editiert werden kann.
Das Feld Status hat die Wertte freigegeben und nicht freigegebene.
So funktioniert es, aber der User der es doch noch editieren darf kann es nicht.
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'----------------------------'
'Öffnen in den Edit-Mode verhindern'
'----------------------------'
Dim sStatus As String
sStatus = Source.document.Status(0)
Dim doc As NotesDocument
Set doc = source.Document
If (Not source.editMode And sStatus = "freigegeben" And Not Freigeber="User XY/voba-grevenbrueck") Then
Messagebox "Das Dokument wurde freigegeben! Änderungen sind nicht mehr möglich!", 48, "Hinweis:"
continue = False
End If
End Sub