Ich habe in der Maske kann ich per Button einen Abschnitt erstellen. Dazu habe ich 30 verborgene Body Felder. Wenn ein Abschnitt erstellt wird, schaue ich nach dem untersten noch nicht gefüllten Body Feld und schreibe den Abschnitt da rein.
Damit das dann gleich angezeigt wird speichere ich das Dokment, schließe es und öffne es neu:
Sub ReOpenDoc(RODoc As NotesDocument, ROUIDoc As NotesUIDocument)
Dim ws As New NotesUIWorkspace
Dim id As String
Dim db As NotesDatabase
Dim session As New notessession
Set db = session.CurrentDatabase
'Änderungen speichern
Call ROdoc.Save(True,False)
' ReOpen durchführen, damit Änderungen am RT-Feld sichbar werden
id = ROdoc.UniversalID
Call ROuidoc.Close
Set ROdoc = db.GetDocumentByUNID(id)
Call ws.EditDocument(False,ROdoc)
End Sub
So wird es gespeichert.
mfg
Stefan