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
Hallo,
kannst folgendes z.B. ins Klick-Ereignis des Button für 1 Jahr eintragen (Buttonname und Feldnamen natürlich an deine Gegebenheiten anpassen):
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 (http://www.vbarchiv.net/commands/DateAdd.php)
HTH
Peter
Habe im Lösungsbeitrag leider den roten Stern nicht gefunden. Deine Antwort war die Lösung. Vielen Dank
Gruß
Manfred
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! ;D
LG
Peter