Datumszeiträume addieren um ganze Jahre

[Manfred S]

Hallo,

in einer Form habe ich ein Datumsfeld untergebracht und gebe dort händisch ein Startdatum ein (tt.mm.jjjj). In einem zweiten Datumsfeld soll das Endedatum eingegeben werden. Das Endedatum liegt entweder ein, zwei oder vier Jahre nach dem Startdatum.

Ich habe also drei Buttons (1, 2 und 4 Jahre) erstellt, die mit Code versehen werden sollen, um dem Startdatum je nach Buttonauswahl, 1, 2 oder 4 Jahre hinzuzurechnen und es im Endedatum einzutragen. Am Code scheitere ich allerdings. Wer gibt mir Rat? Danke...

Gruß

Manfred S

[database]

Hallo,

kannst folgendes z.B. ins Klick-Ereignis des Button für 1 Jahr eintragen (Buttonname und Feldnamen natürlich an deine Gegebenheiten anpassen):

Code [Auswählen] Erweitern


Private Sub cmdAdd1_Click()

   If Not IsNull(Me!txtStartDatum) Then
       Me!txtEndDatum = DateAdd("yyyy", 1, Me!txtStartDatum)
   Else
       MsgBox "Es wurde kein Start-Datum eingetragen!", vbExclamation, "Datumsberechnung"
        Me!txtStartDatum.SetFocus
   End If

End Sub


...analog dazu die Codes hinter den Buttons für 2 und 4 Jahre.

Beschreibung dazu in der OH unter 'DateAdd' / Datumsberechnungen
oder alternativ dazu hier: http://www.vbarchiv.net/commands/DateAdd.php

HTH

Peter

[Manfred S]

Habe im Lösungsbeitrag leider den roten Stern nicht gefunden. Deine Antwort war die Lösung. Vielen Dank

Gruß

Manfred

[database]

Hallo

freut mich, dass ich dir helfen konnte.
Stern nicht sichtbar? Seltsam, ich sehe ihn z.B. in der Kopfzeile ganz rechts in DEINEM Beitrag - klar in meinem natürlich nicht

Egal - haupsache du hast deine Lösung! 

LG

Peter