Field Default

lryckman · August 12th, 2003, 03:49 PM

Good afternoon all,
I have a field (request date) in a table that is in a date/time format and defaulted as "now()". I have a second field (due date field) as date/time format and defaulted as "now() + 2" (To add two days). The only problem with this is that if this record is created on a Thursday or Friday it defaults to a Saturday or Sunday due date. How can I make this default and ignore the weekend?
Please help.

Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

SerranoG · August 13th, 2003, 07:13 AM

Quote:

quote:Originally posted by lbreitenbach
How can I make this default and ignore the weekend?

Laura, on the form's On Open event, put this code:

Code:

Me.dtmDueDate.DefaultValue = DateAdd("d", 2, Me.dtmReqDate.DefaultValue)

Select Case Weekday(Me.dtmDueDate.DefaultValue)
   Case 7
      'Saturday; add two more days.
      Me.dtmDueDate.DefaultValue = DateAdd("d", 2, Me.dtmDueDate.DefaultValue)
   Case 1
      'Sunday; add one more day.
      Me.dtmDueDate.DefaultValue = DateAdd("d", 1, Me.dtmDueDate.DefaultValue)
   Case Else
      'Weekday; no action necessary.
End Select

Remember to change the names of the fields to match yours. Note: use DateAdd to add and subtract dates, don't just use + 2 or - 3, etc. You're adding a datatype byte to a datatype date. The results are not predictable.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division