Hallo Entwicklergemeinde,
ich weiss nicht, warum die Call uidoc.fieldsettext im folgenden Coding nicht funktionieren wollen.
Einen Fehler gibt es auch nicht.
Die Werte des gerade offenen Dokumentes werden partout nicht verändert!
Was mache ich falsch?
Sub Click(Source As Button)
On Error Goto ErrorHandler
Const STATUS="zur Genehmigung weitergeleitet"
Dim session As New NotesSession
Dim workspace As New NotesUiWorkspace
Dim uidoc As notesuidocument
Set uidoc = workspace.currentdocument
uidoc.Editmode = True
Call uidoc.fieldsettext("aktueller_status",STATUS)
Call uidoc.fieldsettext("naechster_bearbeiter", "letzter_bearbeiter")
Call uidoc.fieldsettext("letzter_bearbeiter", session.username)
Call uidoc.save
Call uidoc.Close
ExitSub:
Exit Sub
ErrorHandler:
Msgbox Cstr(Err) + " -" + "Sendback: " + Error$ + "Fehler ", 16, "Error"
Goto ExitSub
End Sub
Grüsse und Danke Chris