Uhr in Access Formular?

[Coldfist]

Hiho!

Ich habe vor, in ein Access Formular eine Uhr einzubauen.

Wie zum Teufel mache ich das? Ich bin halt noch relativer Anfänger und kann grad mal Schleifen, IF-Elses und halt die normalen mathematischen Funktionen.

Ich könnte es mir so vorstellen, das ein Textfeld die aktuelle Uhrzeit ausliest und das sich dann das gesamte Formular jede Sekunde einmal aktualisiert, aber da ist das Problem, dass kein User mehr irgendwelche Werte in ein Feld eingeben kann, weil der eingegebene Text nach der Aktualisierung wieder weg ist.

Bitte helft mir!

Coldfist

 

[Thomas Kuse]

1. Möglichkeit:
Quelle: http://cad-school.ch/TNT/Software/Access/Uhrzeit-Formular.html

Problem: Access-Datenbanken verfügen über die Möglichkeit, gewisse Prozeduren zeitgesteuert abzuarbeiten. In diesem Zusammenhang wäre es praktisch, in die Datenbank eine Uhr zu integrieren.

Lösung: Die benötigte Funktion verbirgt sich in Formularen hinter der Eigenschaft "Bei Zeitgeber". Wann und wie die Funktion aufgerufen wird, lässt sich mit der weiteren Eigenschaft "Zeitgeberintervall" einstellen.
Wenn Sie diese Fähigkeit etwa für die Anzeige der aktuellen Uhrzeit und des Tagesdatums in einem Formular nutzen wollen, müssen Sie zuerst ein Textfeld definieren - etwa mit dem Namen "Uhrzeit". Passen Sie dann die Eigenschaften "Schriftgrösse" und "Textfarbe" so an, dass die Uhr gut ablesbar ist.
Als nächsten Schritt müssen Sie bei den Formulareigenschaften (weisser Kasten in der Formular-Entwurfsansicht) die Eigenschaft "Zeitgeberintervall" auf "1000" setzen und ausserdem unter "Bei Zeitgeber" "[Ereignisprozedur]" auswählen. In die Ereignisprozedur geben Sie dann folgendes ein:

Sub Form_Timer ()
Me![Uhrzeit] = Format(Now,"dd.mm.yy hh:nn:ss")
End Sub

Solange das Formular geöffnet ist, wird jede Sekunde das Feld "Uhrzeit" aktualisiert. Wenn nur die Zeit, nicht aber das Datum angezeigt werden soll, können Sie die Funktion mit

Me![Uhrzeit] = Format(Now,
"hh:nn:ss")

aufrufen.

2. Möglichkeit:
Quelle: http://www.officetipps.net/index.htm?http://www.officetipps.net/access/ac23.htm

Uhrzeit in der Statusleiste anzeigen
Access 2.0 bietet eine einfach zu handhabende Funktion, um die aktuelle Uhrzeit in der Statusleiste einer Anwendung anzuzeigen. Es handelt sich um die Funktion SysCmd aus Access-Basic, die Sie auf folgende Weise in ein Modul integrieren:

UhrzeitDatum = SysCmd(syscmd_setstatus, Format$(Time, "HH:MM") & " " & Format$(Date, "DD.MM.YYYY"))

Beachten Sie in der Anwendung, daß Sie das Zeitgeberintervall im Formular auf einen Wert von 1000 einstellen sollten. Das entspricht einer Aktualisierung der Uhrzeitanzeige in Intervallen von einer Sekunde.