Office: (Office 2010) Zwei unterschiedliche Timer Intervalle

Hallo

ich möchte auf einem Formular zwei Aktionen über einen Timer ausführen.
Das Problem, vor dem ich gerade stehe.
Die zwei Aktionen sollen in unterschiedlichen Intervallen ausgeführt werden.

Habe für jede Aktion ein Kombinationsfeld, indem ich einen Intervall einstellen kann:
me.Intervall_Aktion1 und me.Intervall_Aktion2

Angenommen, me.Intervall_Aktion1 steht auf 60000 und
me.Intervall_Aktion2 auf 300000
Dann soll Aktion 1 alle 60 Sek. ausgeführt werden und Aktion 2 alle 5 Minuten.

Wie weiße ich den nun den Aktionen die unterschiedliche Zeit zu, damit sie in unterschiedlichen Intervallen loslaufen

Private Sub Form_Timer()
Aktion1
Aktion2
End Sub

Das ist mir irgend wie nicht klar.

Kann mir da jemand helfen ?
Danke

Jockel

:)

 

Hallo,
meines Wissens nach kann man einem Formular nur ein Timer-Event zuordnen. Du könntest aber ein Unterformular einfügen mit gleicher Datenherkunft, dem Du dann das andere Timer-Event verpasst, und in dem die Steuerelemente untergebracht sind, die davon beeinflusst werden.
Gruß Thomas

 

Hallo Jockel,

du nimmst den Timer als Takgeber und zählst zwei Varablen herunter. Erreicht eine Variable den Wert 0, wird die Aktion ausgelöst.

Gruß Ulrich

 

Du kannst mitzählen wie oft du den 1. Timer schon ausgeführt hast und bei x Durchläufen in einer IF Abfrage weitere Aufgaben erledigen.

Voraussetzung ist dass die Zeitbereiche einen gemeinsamen Nenner haben.

 

Man könnte es wie folgt lösen:

Code:

 

Ich hatte hier im Forum vor einiger Zeit mal einen Beitrag geschrieben, wie man mit der Windows API Timer ohne Formular erstellen kann. Von diesen Timern kannst du beliebig viele erstellen. Allerdings muss der relevante Code in ein allgemeines Modul.

Wahrscheinlich ist die hier vorgeschlagene Lösung mit dem Auswerten verschiedener Variablen einfacher umzusetzen.

 

\@sonic8
Das ist eine interessante Möglichkeit, auch weil der Aufwand überschaubar ist.
Kannst Du sagen, was passiert, wenn man (hier jetzt) die Access-Anwendung schließt,
ohne den Timer zuvor zu beenden?

Edit:
Ich glaube, es wäre gut, wenn man das Ganze in eine Klasse packt.
Dann könnte man im Terminate-Event sicherstellen, dass der Timer beendet wird.
Die Callback-Funktion kommt auch in die Klasse und löst ein eigenes Ereignis aus.
Dann benutzt man die Klasse WithEvents und muss nicht selber AddressOf verwenden,
damit lässt sich das dann gut handhaben.

 

Hallo zusammen,

vielen Dank für die vielen nützlichen Tips,
das mit der Variablen ist eine gute Idee, die werde ich nehmen.
Eigentlich müsste man da selber drauf kommen *Smilie

Gruss
Jockel

 

Nichts, soweit ich bisher feststellen konnte.

Das wäre schön. - Habe ich teilweise auch bereits implementiert.
Die Callback-Funktion ist aber ein erhebliches Problem dabei. Die kriegst du so nicht in einer Klasse unter. Erstmal, weil der AddressOf-Operator für Methoden einer Klasse in VBA nicht angeboten wird. Der Hintergrund warum das so ist, ist nicht trivial. - Kann ich bei Interesse bei anderer Gelegenheit mal genauer erläutern.