Hallo Zusammen,
In einer Datenbank dürfen alle Personen alle Dokumente editieren, aber nur ihre eigenen löschen. Die Dokumente anderer dürfen nicht gelöscht werden.
Dazu habe ich folgendes gemacht:
In der ACL:
Alle Editor Rechte mit Löschen
In der Maske:
Ein ausgeblendetes Feld „DokumentAutor“ in das ich mit @V3UserName den Autor in Canonischer Form speichere (Berechnet beim Anlegen)
In der Querydocumentdelete:
Folgendes Script:
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Set coll_del = db.UnprocessedDocuments
If coll_del.count > 0 Then
Set doc_del = coll_del.GetFirstDocument
Do While Not doc_del Is Nothing
If doc_del.DokumentAutor(0) <> s.Username Then
Messagebox("Sie dürfen nicht löschen!“)
Continue = False
Exit Sub
End If
Set doc_del = coll_del.GetNextDocument(doc_del)
Loop
End If
End Sub
Folgender Fehler tritt auf:
Beim markieren des Dokuments zum löschen kommt die Fehlermeldung:
„Variant does not contain an object“
Dannach kann man löschen.
Keine Ahnung wo der Fehler liegt.
Hat jemand eine Idee und kann mir helfen ?!
Vielen Dank
Oliver