Veteran
Beiträge: 229
 
Ort: Badendorf | Hallo,
innerhalb einer Subroutine existieren bei mir unten stehende Code Zeilen.
Was ich nicht verstehe: Das Formular "Versandmeldung" wird geöffnet, aber der darin stehende Text wird nicht angezeigt.
Auf dem Formular steht nur der Text, dass der Nutzer etwas warten möge (da kommt später aber noch zusätzliches drauf)
Die Schleife läuft zwischen 1 Sekunde und 50 Sekunden.
Hat jemand eine Idee, weshalb das Formular nicht richtig angezeigt wird?
Danke schon mal
viele Grüße
Rudolf
DoCmd.OpenForm "VersandMeldung" ' eine reine Textmeldung
Filename = Dir(Directory)
While Filename <> ""
Call MachIrgendwas
Call FileVerschieben(Filename, Directory, Archiv)
Filename = Dir 'nächsten Filenamen einlesen
Wend
Docmd.Quit |
