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