Hi Leute,
ich habe hier ein (denke ich mal) Anfängerproblem beim Entwickeln einer Notes-Applikation.
Folgendes:
Ich erstelle ein neues Dokument und dieses ist noch nicht gespeichert worden, befindet sich also noch im Edit-Modus.
In diesem Dokument gibt es ein Listenfeld und daneben liegt eine Schaltfläche.
Wenn man auf die Schaltfläche clickt, soll eine Inputbox erscheinen in der der Benutzer etwas eingeben kann, was dann an das Listenfeld angehängt wird.
Hier mein Code:
Sub Click(Source As Button)
Dim uiw As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Dim Doc As NotesDocument
Dim AccountListBox As NotesItem
Set UIDoc = uiw.CurrentDocument
Set Doc = UIDoc.Document
Set AccountListBox = Doc.GetFirstItem("C_ListExterneBesucher")
AccountListBox.AppendToTextList(Inputbox("Geben Sie einen externen Besucher ein:","Neuer Externer Besucher"))
Call Doc.Save(True,True)
Call UIDoc.Refresh(True,True,True)
End Sub
Das Problem ist, dass der neue Wert im UIDocument dann überhaupt nicht angezeigt wird. In dem Listenfeld steht schon beim erstellen des Dokuments ein Wert drin, den er beim Debuggen aber auch nicht findet.
Ich habe die Vermutung, dass ich Irgendwie mit der Back-Frontend sache falsch verfahre. Kann das einer bestätigen oder den Fehler finden?
Viele Grüße
Moritz