Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: Manfred S am August 21, 2010, 18:18:54

Titel: Datumszeiträume addieren um ganze Jahre
Beitrag von: Manfred S am August 21, 2010, 18:18:54
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
Titel: Re: Datumszeiträume addieren um ganze Jahre
Beitrag von: database am August 21, 2010, 20:21:14
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
Titel: Re: Datumszeiträume addieren um ganze Jahre
Beitrag von: Manfred S am August 22, 2010, 12:55:04
Habe im Lösungsbeitrag leider den roten Stern nicht gefunden. Deine Antwort war die Lösung. Vielen Dank

Gruß

Manfred
Titel: Re: Datumszeiträume addieren um ganze Jahre
Beitrag von: database am August 22, 2010, 12:59:47
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