Aktuelles Datum per Klick in Datenbank einfügen

Beim Entwurf einer Access-Anwendung muß sich der Entwickler auch mit Datumseingaben befassen. Häufig ist das aktuelle Tagesdatum gefragt, doch sollte das entsprechende Feld deshalb mit diesem Datum als Standardwert belegt werden? Falls nicht, könnte der Entwickler den Anwendern entgegenkommen, indem er die Eingabe des Tagesdatums erheblich vereinfacht.

CHIP-Leser Axel Gessner aus Sankt Augustin hat die kleine VBA-Funktion »Heutiges_Datum_einfügen()« geschrieben, mit deren Hilfe sich das aktuelle Datum einfach per Doppelklick in beliebige Eingabefelder einfügen läßt. Eine Beispiel-Datenbank mit der Funktion finden Sie auf der Heft-CD. CHIP-Code AUTODATE.

Nachdem die Funktion in die Anwendung geschrieben ist, müssen Sie sie noch mit dem Doppelklick auf das gewünschte Eingabefeld des entsprechenden Formulars verknüpfen. Das geschieht in der Entwurfsansicht eines Formulars. Klicken Sie mit der rechten Maustaste auf das entsprechende Feld und rufen Sie den Kontextbefehl »Eigenschaften« auf. Im folgenden Dialog tragen Sie im Register »Ereignis« im Feld »Beim Doppelklick« den Funktionsaufruf »=Heutiges_Datum_einfügen ()« ein. Die Funktion läßt sich so bei beliebig vielen Feldern einbinden.


Listing »autodate«


Public Function

Heutiges_Datum_einfügen()

Dim AktSteuer As Control

Set AktSteuer = Screen.ActiveControl

AktSteuer = Date


End Function