Debug.Print in einer Schleife

[seppi]

Hallo

Ich durchsuche einen Tabelle mit ca. 45'000 Datensätze mit Do Until ... loop.
In der Schleife möchte ich jeden 1000sten Datensatz angezeigt haben, um den Programmfortschritt zu sehen: Debug.Pront intZaehler

Mein Problem: Im Direktfenster werden nur 5 Zeilen (korrekt) angezeigt, dann wird bis zum Ende nichts mehr angezeigt.
Erste am Ende der Schleife werde alle Zeilen angezeigt. Wie wenn das Programm keine Zeit/Speicher hätte, die Zeilen anzuzeigen.

Was kann ich dagegen tun?

Umgebung: Win7 / Acc2010

Danke und Gruss, Seppi

[MaggieMay]

Hi,

warum willst du das sehen, das Debug.Print macht die Sache nur noch langsamer.

Aber vielleicht genügt auch jeder 5000-ste? Und vielleicht hilft auch ein "DoEvents" nach dem Debug.Print.

[MzKlMu]

Hallo,

Ich durchsuche einen Tabelle mit ca. 45'000 Datensätze mit Do Until ... loop.

möglicherweise geht das ja auch Ratz Fatz mit einer SQL Abfrage und Du brauchst keinen Zähler mehr.
Schleifen sind in Datenbanken oftmals der falsche Weg.

Was suchst Du denn mit der Schleife ?

[seppi]

Ich brauche die Anzeige nur im Entwickungsstadium...

DoEvents  ... das hat geholfen.

Danke.

[MzKlMu]

Hallo,
vielleicht denkst Du trotzdem mal über meinen Einwand in #2 nach.