CommandButton in Userform wiederholen
19.09.2022 17:24:03
ARGE
ich bastel schon seit längerem an einer UserForm, in die ich Daten aus einer SQL-Tabelle lesen und schreiben kann. Funktioniert soweit auch ganz gut.
Da mehrere User mit der gleichen UserForm auf die SQL-Tabelle zugreifen und schreiben, habe ich jetzt einen Refresh-Button eingebaut, mit dem ich mir die Ansicht wieder aktualisieren kann. Klappt auch...
Jetzt möchte ich diesen Refresh-Button automatisch alle 15 Sekunden wieder aufrufen. Zwischen den 15 Sekunden soll es aber möglich sein, dass die UserForm weiter bearbeitet wird, also z.B. Daten eingegeben werden können. Deshalb funktionieren Schleifen oder Wait-Funktionen nicht.
An anderer Stelle hatte ich schon die Uhrzeit immer mit einer Application.OnTime-Funktion immer wieder aktualisiert.
In meinem Makro im Formular hinter dem Refresh-Button funktioniert die Application.OnTime-Funktion jedoch nicht:
Private Sub ButtonRefresh_Click()
Sprungmarke = 1
Call Linienauswahl_Click
Application.OnTime Now() + TimeValue("00:00:15"), "ButtonRefresh_Click"
End Sub
Hat jemand eine Idee was ich falsch mache.
Herzlichen Dank im Voraus.
Gruß - Rainer