Datum und Uhrzeit im Formulartitel
Veröffentlicht am 22.12.2019
Die Titelleiste eines Formulars informiert meistens über den Inhalt des Formulars. So hat beispielsweise ein Formular, das Personaldaten verwaltet, normalerweise die Überschrift „Personal“ oder „Personaldaten“. Sie können die Titelzeile jedoch auch dazu nutzen, um zusätzliche Informationen anzuzeigen. Das können Daten des aktuellen Datensatzes oder beispielsweise die Uhrzeit sein.
Daten in der Titelleiste
Ein praktisches Einsatzgebiet sind mehrseitige Formulare. Wenn Sie in einem mehrseitigen Formular zum Beispiel Personaldaten verwalten, dann ist der Name eines Angestellten nur auf der Seite verfügbar, die das entsprechende Steuerelement enthält. Schreiben Sie dagegen den Namen in die Titelleiste des Formulars, dann lassen sich auch die Daten von anderen Seiten des Formulars eindeutig einem Namen zuordnen.
Um den Namen eines Angestellten in der Titelleiste anzuzeigen, verändern Sie die Caption-Eigenschaft des Formulars während der Laufzeit. Dies geschieht so, dass beim Anzeigen eines Datensatzes der Vorname und der Nachname der Caption-Eigenschaft zugewiesen wird.
Tragen Sie die folgende Zeile in der Ereignisprozedur der Beim Anzeigen-Eigenschaft des Formulars ein:
Me.Caption = LTrim(Me!Vorname & " " & Me!Nachname)
Die Ltrim-Funktion löscht alle linken Leerzeichen, falls, wie bei Firmen, kein Vorname vorhanden ist.
Uhrzeit und Datum in der Titelleiste
Eine weitere Möglichkeit ist, die Titelleiste als Uhr zu benutzen. Tragen Sie dazu in der Ereignisprozedur der Formulareigenschaft Bei Zeitgeber die folgende Zeile ein:
Me.Caption = "Datum: " & Format(Date, "dd.mmmm.yyyy") & ", Uhrzeit: " & Format(Now, "hh:nn:ss")
Als Zeitintervall geben Sie in der gleichnamigen Formulareigenschaft den Wert 1000 ein. Dies bedeutet, dass die Timer-Ereignisprozedur alle 1000 Millisekunden (entspricht 1 Sekunde) ausgeführt wird. Dadurch entsteht der Anschein, dass im Formulartitel eine fortlaufende Uhr eingeblendet ist. Das Beispiel finden Sie im Formular Timer der Beispieldatanbank.