Supportnet / Forum / Datenbanken

In Access mit Datum rechnen In meiner Access-Datenbank archiviere und verwalte ich Verträge. Nun soll in einem Formular ein spätester Kündigungstermin eingegeben werden. Soweit kein Problem. Hinderlich ist allerdings, dass zusätzlich ein Wiedervorlage-Datum (vor dem spätesten Kündigungstermin) definiert werden muss. Ich stelle mir vor 6 Buttons in diesem Formular abzubilden: [10], [20], [30], [60], [120] und [360]. Durch einfachen Klick auf z.B. [30] soll in einem weiteren Feld, im gleichen Formular, das oben eingegebene Datum (spätester Kündigungstermin) MINUS 30 Tage erscheinen. Klickt man auf 120, dann soll das Datum subtrahiert mit 120 abgebildet werden. Wichtig: Das Datum soll dort nicht nur erscheinen, sondern auch in einer Tabelle gespeichert werden. Vielen Dank für alle Hilfen! Hat jemand eine Idee? Gruß, Michael

Hallo Michael,

um deinen WV-Termin in der Tabelle zu speichern, musst du lediglich ein gebundenes Formularfeld erstellen.

Erstelle nun eine Schaltfläche, gehe in den Eigenschaften zum Ereignis "Beim Klicken", öffne den VBA-Editor (3 Punkte am Ende der Eigenschaftszeile).

Verwende nun zwischen Private Sub Schalflächenname_Click()
und End Sub sinngemäß folgenden Code:
[Code]
Me.WVTermin = DateAdd("d", -10, Me.Kündigungstermin)


"WVTermin" und "Kündigungstermin" entsprechen den Formularfeldnamen.

Du kannst auch eine Überprüfung einbauen, ob ein Kündigungstermin vorhanden ist.
[Code]
If Not IsNull(Me.Kündigungstermin) Then
Me.WVTermin = DateAdd("d", -10, Me.Kündigungstermin)
Else
MsgBox "Bitte Kündigungstermin eingeben"
End If
[/Code]

Erstelle die anderen Schaltflächen analog.

Wenn du nur mit diesen fixen WV-Zeiträumen arbeiten willst, könntest du das Formularfeld WVTermin sperren, damit verhinderst du ein manuelles überschreiben.

Gruß

Oliver

• Rechnen mit Datum in Excel
• Makro Excel
• Datum abstrahieren
• Access rechnen in Formularen