Office: Listenfeld nach Änderung aktualisieren (VBA)

Hallo zusammen!

Ich hoffe, ihr könnt mir helfen, ich bin langsam echt am verzweifeln..

Ich habe ein Listenfeld, was mit Daten aus einer Abfrage gefüllt ist:

Code:

Me!liste.RowSource = "SELECT id AS [ID-Nummer], test1 AS [bla], test2 AS [blubb] FROM tab"

so, nun klickt man ein oder mehrere Zeilen an (Mehrfachauswahl) um die zu löschenden Datensätze auszuwählen (klappt auch wunderbar)

Code:

Dim db As Database
Dim xindex As Variant
Set db = CurrentDB
For Each xindex In Me.liste.ItemsSelected
  db.Execute ("DELETE FROM tab WHERE id = " &   Me.liste.ItemData(xindex))
Next xindex
db.close

So, nachdem die Datensätze gelöscht sind, soll natürlich die Liste wieder aktualisiert werden, weil sie ja nicht mehr stimmt ;)

Code:

Me!liste.Requery

Wo wir nun auch beim Problem wären: Die Aktualisierung geht nur manchmal! Ich sollte noch erwähnen, dass das Löschen und Aktualisieren über den selben Button ablaufen soll. Mach ich die Aktualisierung über einen anderen Button (also in einem anderen Sub, dann gehts..).

Ich suche schon seit Wochen im Internet, aber ich finde einfach nichts passendes.. Ich hab langsam das Gefühl, dass es was mit der Menge der Befehle in einem Sub zu tun hat, aber ich hab einfach keine Erklärung dafür.. Wenn ich versuche, den Fehler zu reproduzieren, also ein neues Forumular mit nur den nötigen Dingen, dann geht natürlich alles..

Bitte helft mir!

Danke!

cya Chris

 

Hallo,
du könntest ein DoEvents mal dazwischen setzen, um Access etwas Zeit zu gönnen, oder du versucht anstatt des Requerys mal folgendes

Code:

    Me!liste.RowSource = Me!liste.RowSource