Default Field

  • Thread starter Thread starter jlo
  • Start date Start date
J

jlo

I have a field called Priority.

If the priority is high, I want to reflect today's date in a field called
Due Date.
If the priority is Medium, I want to reflect the next working day in the
field Due Date.
If the priority is Low, I want to reflect two working days in the Due Date
field.

Another twist, can this be done excluding weekends and holidays? If not,
that's OK.
 
jlo said:
I have a field called Priority.

If the priority is high, I want to reflect today's date in a field called
Due Date.
If the priority is Medium, I want to reflect the next working day in the
field Due Date.
If the priority is Low, I want to reflect two working days in the Due Date
field.

Another twist, can this be done excluding weekends and holidays?
Click to expand...


Dim dtDue As Date
dtDue = Date + Switch(Me.Priority="High",0, _
Me.Priority="Medium",1, Me.Priority="Low",2)
Me.[Due Date] = dtDue + IIf(WeekDay(dtDue, 7) <= 2, _
2 - WeekDay(dtDue, 7), 0)
 
Thank you Marshall, works perfectly!

Marshall Barton said:
jlo said:
I have a field called Priority.

If the priority is high, I want to reflect today's date in a field called
Due Date.
If the priority is Medium, I want to reflect the next working day in the
field Due Date.
If the priority is Low, I want to reflect two working days in the Due Date
field.

Another twist, can this be done excluding weekends and holidays?
Click to expand...


Dim dtDue As Date
dtDue = Date + Switch(Me.Priority="High",0, _
Me.Priority="Medium",1, Me.Priority="Low",2)
Me.[Due Date] = dtDue + IIf(WeekDay(dtDue, 7) <= 2, _
2 - WeekDay(dtDue, 7), 0)
Click to expand...
 
Back
Top