Ich habe in der Teilmakse bei Postmodechange diesen Part schon hinzugefügt
Sub Postmodechange(Source As Notesuidocument)
Dim szStatus As String
szStatus = source.FieldGetText("UserRoles")
szStatus_docadmin = source.FieldGetText("dcauthor")
'Wenn Doc im Lesemodus, dann Folgecode nicht beachten
If Source.EditMode = False Then Exit Sub
'Prüfe Statusfeld...
If Not szStatus ="[admin]" And szStatus_docadmin="@username" Then
Exit Sub
If szStatus_docadmin="" And szStatus ="[admin]" Then
Exit Sub
Else
If Not szStatus_docadmin="" And szStatus ="[admin]" Then
Exit Sub
Else
If Not szStatus_docadmin="@username" Or Not szStatus ="[admin]"Then
Msgbox "The 'edit mode' is not allowed.", 64, "Error"
Source.EditMode = False 'Setze Dokument in Lesemodus
Exit Sub
End If
End If
End If
End If
End Sub
Wie kann ich denn nochmal dem neuen Feld dcautor den Inhalt des Feldes dcautors aus dem Hauptdokument zuweisen.