How to default dates

[hazeleyre23]

Hi,

I have a date controls (Date Entered) which is manually entered in Access, however I have another date controls (Date Chased) in which I want this controls to automatically populate with +2 working (Monday - Friday) days from Date Entered. Therefore If the date happens to be a Friday on the Date Entered control , I want Date Chased control to show Mondays date.

I have a few other controls which I want to add +5 working days and another to i want to be able to +30 working days. However I assume once I have the code I will be able to adjust it.

Thank You

 

[hazeleyre23]

I have worked out how to do it:


If Weekday(DateChased) = vbThursday Then
dtedate2ndchase = DateAdd("d", 4, [DateChased])
Else
If Weekday(DateChased) = vbFriday Then
dtedate2ndchase = DateAdd("d", 3, [DateChased])
Else
dtedate2ndchase = DateAdd("d", 2, [DateChased])
End If
End If