Hallihallo!
Ich habe folgendes Problem. Ich teste gerade die Erstellung von Gliederungseinträgen per Knopfdruck in einer Maske.
Das heißt: Der User klickt auf einen Knopf, dann wird er nach einem Namen für den Gliederungseintrag gefragt, und darauf hin wird ein Ordner und ein Gliederungseintrag, der auf diesen Ordner verweist, erstellt.
Das funktioniert auch alles, aber
erst, wenn ich die Gliederung im Designer einmal öffne, mir die neuen Einträge anzeigen lasse und die Gliederung schließe und dabei abspeichere.
Ich hab die Datenbank auch im Client geschlossen und wieder geöffnet, das brachte keine Veränderung. Außerdem hab ich im Code daran gedacht, am Ende alles zu speichern ... ich finde einfach meinen Fehler nicht...
Hier ist der Code, der das alles macht:
Sub Click(Source As Button)
Dim session As New NotesSession ' Aktuelle Session
Dim dbCurrent As NotesDatabase ' Aktuelle Datenbank
Set dbCurrent = session.CurrentDatabase
Dim outline As NotesOutline ' Aktuelle Gliederung (es gibt ja nur eine :)
Set outline = dbCurrent.GetOutline("Outline")
Dim refOLEntry As NotesOutlineEntry ' Gliederungseintrag, nach dem NewOLEntry eingefügt wird
Dim NewOLEntry As NotesOutlineEntry ' Gliederungseintrag, der neu erstellt wird
Dim strOLName As String ' Name des neuen Gliederungseintrags
Dim strFolderName As String ' Name des Ordners, der hier erstellt wird
' Eingabe des Namens des neuen Gliederungspunktes
strOLName = Inputbox ("Bitte geben Sie einen eindeutigen Namen ein", "Neue Konvertierung", Date)
' Erstellen eines neuen Ordners mit dem Namen strOLName
Call dbCurrent.EnableFolder(strOLName)
' Einfügen des neuen Gliederungspunktes
Set refOLEntry = outline.GetFirst()
Set NewOLEntry = outline.CreateEntry (strOLName, refOLEntry, True, True)
NewOLEntry.SetNamedElement dbCurrent, strOLName, 2197 ' 2197 = Ordner
Call outline.Save()
End Sub
Vielen Dank im Voraus
Gruß
Jérôme
Autor