Aktualisierung klappt nicht

[derilzemer]

Hallo zusammen,
ich habe ein UFO, in welchem ich im Feld Quartett Kennung "Quartette" hinzufügen kann. Ich trage den Buchstaben,Symbol oder was auch immer im Feld ein und füge es mit dem CMD Button "Quartett hinzufügen" der Liste "lstQuartettAuswahl" hinzu, welche sich auch im UFO befindet (bild1).
Das komische dabei ist, dass ich in der Liste das hinzugefügte Element immer erst sehe, wenn ich ein weiteres hinzufüge. Der Refresh der Liste scheint also nicht zu funktionieren. Aktuell sieht der Requery für das Listenfeld wie folgt aus und ist an den CMD-Button "Quartett hinzufügen" gebunden.

Code [Auswählen] Erweitern

Private Sub cmdQuartettNeu_Click()
On Error GoTo Err_cmdQuartettNeu_Click
    Me.lstQuartettAuswahl.Requery
    DoCmd.GoToRecord , , acNewRec
Exit_cmdQuartettNeu_Click:
    Exit Sub
Err_cmdQuartettNeu_Click:
    MsgBox Err.Description
    Resume Exit_cmdQuartettNeu_Click
End Sub

Muss ich das ganze an ein anderes Ereignis binden?? Wer kann mir da weiter helfen?

Gruß Andreas

[Beaker s.a.]

Hallo Andreas,
Vermutlich ist der (neue) DS noch nicht gespeichert.
Füge eine Zeile ein

Code [Auswählen] Erweitern


    Me.Dirty = False
    Me.lstQuartettAuswahl.Requery
    DoCmd.GoToRecord , , acNewRec
gruss ekkehard

[derilzemer]

Hi Ekkehard,

das hat es gelöst, danke.

Gruß Andreas