Office: VBA-Code nach ButtonClick pausieren/fortsetzen

Hallo nochmal,
wie kann ich über einen Commandbutton den im Hintergrund laufenden VBA-Code anhalten bzw. ihn wieder fortführen?

Danke und Gruß,
Michael

:)

 

Sofern es Dir darum geht ein anderes Form zu öffnen und das Coding des rufenden Formulars erst nach rückkehr aus dem gerufenen Formular fortzusetzen, siehe Dir mal in der AccessHilfe die OpenForm-Methode etwas genauer an *wink.gif* acDialog-Parameter

Gruß

Arno

 

Nein, ich möchte den Code einfach pausieren lassen. Der Grund: Access schreibt ASCII-Dateien im Hintergrund und ein anderes Programm bearbeitet diese. Wenn der Benutzer jetzt die Erstellung der ASCII-Dateien pausieren möchte, dann drückt er einfach den Button und gut ist.
So hatte ich mir das jedenfalls gedacht.

 

Warum beläßt Du's nicht bei der Schleife

Do
strPruefen = Dir("c:\temp\sm407c\marker.out")
DoEvents
Loop Until strPruefen ""

die Du in diesem Beitrag

http://www.ms-office-forum.net/forum...threadid=89011

schon in Deinem Coding hattest? Ist gut dafür geeignet.

Gruß

Arno

 

Bzw. die läßt sich noch optimieren auf

Do
DoEvents
Loop Until Dir("c:\temp\sm407c\marker.out") ""

 

Kann ich nicht dabei belassen, weil der Benutzer die Erstellung der marker.in pausieren soll. Die marker.out wird ja nicht von Access erstellt, sondern von einem anderen Programm...

Und in diesem Programm kann ich nicht pausieren *wink.gif*

Daher bleibt mir also nichts anderes übrig als den Code anzuhalten...

 

Du triffst auf Unverständnis.........

Warum soll der Benutzer manuell ein automatisches Geschehen pausieren?

 

Naja, über diese Kombination von meiner Access-Datenbank und der anderen Software wird eine 15.000 Euro teure Maschine angesteuert - trotz aller Automation sollte der Benutzer letztendlich die Möglichkeit haben den Vorgang zu pausieren. Ich dachte eigentlich das versteht sich von selbst *Smilie

 

Da Du die Maschine - soweit ich Deine Beiträge verfolgt habe - noch nicht erwähnt hast, sondern nur "ein anderes Programm welches die Datei weiterverarbeitet", verstand es sich eben nicht von selbst *frown.gif*

In dem Fall deklariere unterhalb der "Options Explicit"-Deklaration (am Anfang des Formularmoduls) mal eine Booleanvariable:

Dim bolStop As Boolean

Im FormOpen-Ereignis setze die Variable auf False

bolStop = False

Hinter Deinem PauseButton triggerst Du diese Variable auf True/False mittels

bolStop = not bolStop

Am Anfang oder Ende der Verarbeitungsschleife zum Erzeugen der Datei(en) fügst Du dann diese Schleife ein:

Do
DoEvents
Loop Until Not bolStop;

Gruß

Arno

 

Tach Arno,
ich hab leider ein Problem mit deiner Hilfestellung - ich hab kein separates Modul, sondern den Code einfach im Hintergrund des Formulars liegen. Folglich keine Möglichkeit die Boolean-Variable global setzen zu lassen. Gibt's noch eine andere Möglichkeit?

Gruß,
Micha

 

Sorry, aber: Kannst Du lesen?

Gruß

Arno