Formular-Timer in Access können ganz unterschiedliche Aufgaben übernehmen. Die beiden Hauptkategorien sind Benutzerinteraktion und das Umgehen von Einschränkungen durch das System. Bei der Benutzerinteraktion geht es darum, in den gewünschten Zeitintervallen Meldungen anzuzeigen, Informationen abzufragen et cetera. Bei den Systemeinschränkungen haben wir es mit Herausforderungen zu tun, bei denen wir zuerst eine asynchrone Aktion auslösen, die Daten für eine weitere Aktion liefern soll. Diese wird dann aber zu schnell ausgeführt, als dass die Daten bereits vorhanden sind. In diesem Fall können wir mit der asynchronen Aktion einen Formular-Timer starten, der die folgende Aktion erst nach einem ausreichend großen Zeitintervall auslöst, sodass alle Aktionen die notwendigen Daten zur Verfügung haben. In diesem Artikel zeigen wir, wie ein Formular-Timer genau mit VBA programmiert wird: Wie wir das Zeitintervall festlegen, wie wir diesen starten und auch, wie wir ihn nach der Erledigung wieder ausschalten.<\/b><\/p>\n
Grundlagen zum Formular-Timer<\/h2>\n
Der Formular-Timer von Access basiert auf den beiden Eigenschaften TimerInterval<\/b> und OnTimer<\/b>. Mit TimerInterval<\/b> legen wir fest, in welchen Zeitintervallen das Ereignis OnTimer<\/b> ausgelöst wird. Der Wert für TimerInterval<\/b> wird in Millisekunden angegeben.<\/p>\n
Wenn wir also wollen, dass das Timer<\/b>-Ereignis alle fünf Sekunden ausgelöst wird, setzt Du TimerInterval<\/b> auf 5000. Das Ereignis OnTimer<\/b> enthält dann den VBA-Code, der bei jedem Intervall ausgeführt werden soll.<\/p>\nTimer über die Eigenschaften einstellen<\/h2>\n
Die Eigenschaften TimerInterval<\/b> und OnTimer<\/b> können wir entweder direkt im Eigenschaftenblatt des Formulars einstellen oder per VBA zur Laufzeit setzen. Im Eigenschaftenblatt geben wir bei Zeitgeberintervall<\/b> die Millisekunden an und bei Bei Zeitgeber<\/b> wählen wir den Eintrag [Ereignisprozedur]<\/b> aus (siehe Bild 1).<\/p>\n
![\"Einstellungen](\"..\/fileadmin\/_temp_\/2025_04\/pic_1559_001.png\")
<\/p>\n
Bild 1: Einstellungen für einen Formular-Timer<\/span><\/b><\/p>\n Beim Einstellen der Eigenschaft Zeitgeberintervall <\/b>haben wir gesehen, dass diese standardmäßig den Wert 0 <\/b>enthält. Das bedeutet, dass der Zeitgeber nicht ausgelöst wird.<\/p>\n Nun klicken wir für die Eigenschaft Bei Zeitgeber <\/b>die Schaltfläche mit den drei Punkten an. Im nun erscheinenden VBA-Editor fügen wir in diese Prozedur die folgenden Anweisungen ein:<\/p>\n Die Variable i <\/b>deklarieren wir ebenfalls in diesem Klassenmodul:<\/p>\n Wenn wir dieses Formular nun öffnen, erhalten wir in der Titelleiste jede Sekunde ein Update mit dem jeweiligen Wert der Variablen i<\/b> (siehe Bild 2).<\/p>\n Bild 2: Formular mit Timer<\/span><\/b><\/p>\n Wenn Sie den Timer per VBA steuern möchten, können Sie die Eigenschaft TimerInterval<\/b> direkt zur Laufzeit festlegen. Möchtest Du den Timer stoppen, setzt Du TimerInterval<\/b> einfach auf 0<\/b>.<\/p>\n Um ihn wieder zu starten, können wir die Eigenschaft TimerInterval <\/b>einfach wieder auf den gewünschten Wert in Millisekunden einstellen.<\/p>\n Wir wollen dies mit zwei Schaltflächen erledigen. Die erste Schaltfläche heißt cmdTimerStoppen <\/b>und soll den Timer anhalten. Die zweite heißt cmdTimerFortsetzen <\/b>und soll den Timer wieder starten.<\/p>\n Für das Ereignis Beim Klicken<\/b> dieser Schaltflächen hinterlegen wir jeweils eine Ereignisprozedur.<\/p>\n Die Ereignisprozedur für cmdTimerStoppen <\/b>lautet wie folgt und stellt die Eigenschaft Zeitgeberintervall <\/b>auf 0 <\/b>ein:<\/p>\n Für cmdTimerFortsetzen <\/b>hinterlegen wir die folgende Prozedur, die einfach das Zeitgeberintervall wieder auf 1.000 <\/b>einstellt:<\/p>\n Damit erhalten wir das Ergebnis aus Bild 3.<\/p>\n Bild 3: Zwei Schaltflächen zum Stoppen und Starten des Zeitgebers<\/span><\/b><\/p>\n Wir wollen den Timer auch noch zurücksetzen können. Dazu fügen wir eine dritte Schaltfläche namens cmdTimerZuruecksetzen <\/b>hinzu, die wir mit der folgenden Ereignisprozedur ausstatten:<\/p>\n Damit setzen wir den Wert von i<\/b> wieder zurück – unabhängig davon, ob der Zeitgeber gerade läuft. Damit der Titel des Formulars direkt auf den aktuellen Stand gebracht wird, stellen wir die Eigenschaft Caption <\/b>entsprechend ein.<\/p>\n Ein Beispiel ist ein Formular, das beim Start der Anwendung angezeigt und nach einigen Sekunden ausgeblendet werden soll.<\/p>\n Wir haben dazu ein Beispielformular namens frmStart <\/b>in der Beispieldatenbank hinterlegt (siehe Bild 4), das wir für die Access-Option Formular anzeigen <\/b>eintragen. Dadurch wird es direkt beim Starten der Anwendung geöffnet.<\/p>\n Bild 4: Startformular, das sich automatisch schließt<\/span><\/b><\/p>\n Für die Eigenschaft Zeitgeberintervall <\/b>tragen wir wieder den Wert 1.000 <\/b>ein.<\/p>\n Der Code dieses Formulars sieht wie folgt aus:<\/p>\n Beim Laden stellen wir die verbleibenden Sekunden bis zum Schließen auf 3 <\/b>ein und zeigen diesen Wert direkt im Textfeld txtFormularSchliesstIn <\/b>an.<\/p>\n In der Ereignisprozedur Form_Timer <\/b>subtrahieren wir jeweils den Wert 1 <\/b>vom aktuellen Wert der Variablen i<\/b> und zeigen diesen Wert im Textfeld txtFormularSchliesstIn <\/b>an. Außerdem prüfen wir, ob i <\/b>bereits 0 <\/b>ist. In diesem Fall schließen wir das Startformular.<\/p>\n Ein gutes Beispiel für den Einsatz eines Form-Timers ist eine Schnellsuche in einem Listenfeld. Wir haben ein Textfeld, in das der Benutzer den Suchbegriff eingeben kann. Normalerweise soll nach der Eingabe eines jeden Zeichens das Suchergebnis direkt gefiltert werden.<\/p>\n Das kostet aber gerade im Netzwerk unnötig Ressourcen, wenn der Benutzer nicht nur ein, sondern gleich mehrere Zeichen direkt hintereinander eingibt – wir wollen die Suche dann nur auslösen, wenn der Benutzer innehält und anscheinend die Eingabe beendet hat. Wir wollen dann warten, bis bei der Eingabe eine kurze Pause auftritt und erst dann das Suchergebnis aktualisieren.<\/p>\n Wir verwenden ein Textfeld namens txtSuche <\/b>und ein Listenfeld namens lstMitarbeiter<\/b>, das zu Beginn mit den Daten einer Abfrage mit den Feldern MitarbeiterID<\/b>, Vorname <\/b>und Nachname <\/b>der Tabelle tblMitarbeiter <\/b>gefüllt ist (siehe Bild 5).<\/p>\n Bild 5: Suche, die zeitverzögert ausgeführt wird<\/span><\/b><\/p>\n Bei Eingabe eines Buchstaben soll direkt gesucht werden. Das würden wir mit der folgenden Ereignisprozedur für das Ereignis Bei Änderung <\/b>des Textfeldes erledigen:<\/p>\n Hier wird das Suchergebnis aber immer direkt nach der Eingabe eines jeden Zeichens aktualisiert. <\/p>\n Wir wollen aber eine Aktualisierung immer erst, wenn der Benutzer eine halbe Sekunde lang kein neues Zeichen eingegeben hat. Also deklarieren wir als Erstes den Suchtext außerhalb der Prozedur:<\/p>\nPrivate Sub <\/span>Form_Timer()\r\n i = i + 1\r\n Me.Caption = \"Zähler Zeitgeber: \" & i\r\nEnd Sub<\/span><\/pre>\nDim <\/span>i As Long<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2025_04\/pic_1559_002.png\")
<\/p>\nTimer per VBA starten und stoppen<\/h2>\n
Private Sub <\/span>cmdTimerStoppen_Click()\r\n Me.TimerInterval = 0\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdTimerFortsetzen_Click()\r\n Me.TimerInterval = 1000\r\nEnd Sub<\/span><\/pre>\n![\"Zwei](\"..\/fileadmin\/_temp_\/2025_04\/28-06-2025_08-43-41.PNG\")
<\/p>\nTimer zurücksetzen<\/h2>\n
Private Sub <\/span>cmdTimerZuruecksetzen_Click()\r\n i = 0\r\n Me.Caption = \"Zähler Zeitgeber: \" & i\r\nEnd Sub<\/span><\/pre>\nBeispiel Startformular<\/h2>\n
![\"Startformular,](\"..\/fileadmin\/_temp_\/2025_04\/pic_1559_004.png\")
<\/p>\nDim <\/span>i As Long<\/span>\r\nPrivate Sub <\/span>Form_Load()\r\n i = 3\r\n Me.txtFormularSchliesstIn = i & \" Sekunden\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Timer()\r\n i = i - 1\r\n Me.txtFormularSchliesstIn = i & \" Sekunden\"\r\n If <\/span>i = 0 Then<\/span>\r\n DoCmd.Close acForm, Me.Name\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nBeispiel für einen Form-Timer, um absichtlich Verzögerungen herbeizuführen<\/h2>\n
![\"Suche,](\"..\/fileadmin\/_temp_\/2025_04\/pic_1559_005.png\")
<\/p>\nPrivate Sub <\/span>txtSuche_Change()\r\n Dim <\/span>strSuchtext As String<\/span>\r\n strSuchtext = Me.txtSuche.Text\r\n Me.lstMitarbeiter.RowSource = \"SELECT MitarbeiterID, \" _\r\n & \"Vorname, Nachname FROM tblMitarbeiter \" _\r\n & \"WHERE Vorname LIKE ''*\" & strSuchtext & \"*'' \" _\r\n & \"OR Nachname LIKE ''*\" & strSuchtext & \"*''\"\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>strSuchtext As String<\/span><\/pre>\n