Domino 9 und frühere Versionen > ND6: Entwicklung
EditMode verwehren mit 2 Bedingungen
lotus blue:
Danke Euch 2en.
Aber wenn ich nach der Methode gehe, habe ich folgendes Problem:
"Der Zugriff von Benutzern mit mindestens Editorzugriff in der ACL wird nicht durch ein Autorenfeld beschränkt." (dies ist bei mir der Fall)
Gruß
DerAndre:
Hi.
Ist es denn dringend Notwendig, daß die Benutzer Editorrechte haben müssen?
Im Normalfall kommt man auch mit Autorenrechten aus.
André
lotus blue:
Hi. Habe es mit Autorenrecht schon probiert.
Aber da hakt mein LS.
"Sie sind zur Durchführung nicht berechtigt."
Vielleicht fällt Euch LS-Profis was auf. :-:
->User mit Editorrecht
->LS im Querysave
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If Messagebox ("Wollen Sie dieses Änderung nun speichern?.", 36, "Hinweis") = 7 Then Continue = False
End If
End Sub
Im Aktionsbutton
Sub Click (source As Button)
Dim ws As New notesuiworkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Dim uidoc As notesuidocument
Dim rtitem As NotesRichTextItem
Dim boxType As Long, answer As Integer
Set uidoc = ws.currentdocument
Set db = s.CurrentDatabase
Set doc = uidoc.Document
'******* Hier wird dann das Dokument gespeichert, verlinkt und versendet
Call uidoc.Save
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newdoc, "Body" )
Call rtitem.AppendDocLink( doc, "hier gelangen Sie zum Dokument" )
newdoc.SendTo = "................."
newdoc.Subject = _
"Es ist eine neue Änderungsmeldung eingegangen. Bitte überprüfen Sie diese Meldung."
Call newdoc.Send( False )
doc.saveoptions = "0"
Call uidoc.close
Exit Sub
End Sub
DerAndre:
Die Hilfe hilft ;D
Such mal nach
Zugriffsebenen für Datenbanken
in der Benutzerhilfe.
Ich gehe davon aus, das keine Autorenfelder eingetragen sind, dann darfst Du das auch nicht.
André
lotus blue:
Hat sich erledigt. Der liebe Cache ;D :love:
Navigation
[0] Themen-Index
[*] Vorherige Sete
Zur normalen Ansicht wechseln