Veteran
Beiträge: 102
| Hallo "AccessNeuling",
Du suchst vermutlich die Funktion DateAdd(). Dann löst Dein Button so eine Prozedur aus:
Sub btnNaechstePruefung()
Me.Pruefung.Value = DateAdd("m", Me.PruefungIntervall.Value, Me.Pruefung.Value)
End Sub
Das erwartet, dass im Feld [PruefungIntervall] die Anzahl der Monate steht, also z.B. eine 6 für das Halbjahr. Dann musst Du auch nicht behaupten, dass 182 Tage ein halbes Jahr sind, sondern kannst es flexibler (Februar! Schaltjahr!) berechnen.
tschö, Lorenz
|