Do you want days only, or just workdays?
If days only, then do this on your data entry form on the Before Insert AND Before Update events:
Dim dtStart, dtEnd As Data
Dim iDays As Integer
dtStart = Me.StartDate
iDays = Me.noOfDays
dtEnd = DateAdd("d", iDays, dtStart)
Me.endDate = dtEnd
If you wanted to try this at the design level then you are on your own. You will need to try to work with the Default value expression builder, which I don't use much.
Did that help?
mmcdonal
|