Sentra
Behind the fields AfterUpdate command try this code (adapted to your form)
Private Sub InitialDate_AfterUpdate()
SixMonthDate = DateSerial(DatePart("yyyy",InitialDate), DatePart("m", InitialDate) + 6, DatePart("d", InitialDate))
OneYearDate =...