Datum automatisch berechnen (Access 97, 2000)

09.02.2004

Frage:

In einer Datenbank habe ich ein Datumsfeld, das manuell eingegeben werden soll. Basierend auf dieser Eingabe soll in einem anderen Feld ein Datum automatisch berechnet und angezeigt werden, das genau 3 Jahre in der Zukunft liegt. Beide Datumsfelder sind vom Typ "Datum, kurz".

Antwort:

Die Funktion DateAdd bietet diverse Möglichkeiten, Datumswerte zu kalkulieren. Die Funktion nimmt einen Format-Parameter an, der bestimmt, was zum Datum addiert werden soll (z.B. Jahre, Monate usw.).

In der Ereignisprozedur Nach Aktualisierung könnte man beispielsweise folgenden VBA-Code schreiben, um 3 Jahre in der Zukunft zu berechnen:

Private Sub Datum1_AfterUpdate()

    If Not IsNull(Me!Datum1) Then 
        Datum2 = DateAdd("yyyy­, 3, Datum1) 
    End If

End Sub

Das Ergebnis der DateAdd-Funktion wird in das zweite Textfeld kopiert.

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.