Prevent Users from Entering date from 2 Previous week

[Shamli]

I need a help in preventing users from choosing the date 2 weeks from today.



Employees have to log every Friday of the week,
And if they wanted to edit any information they can access only 2 Fridays from the date they are trying to modify.

I know how to prevent users from entering future dates but not this particular one.

[ranman256]

VBadDate = DateAdd("d",14,Date())

if txtDate =vBadDate then
   MsgBox "bad date"
else
   'Do sstuff
end if

[Shamli]

Where do I have to place the code?
I have the date as a date picker from the text box.Do I have to place in the on click function of the text box?

VBadDate = DateAdd("d",14,Date())

if txtDate =vBadDate then
   MsgBox "bad date"
else
   'Do sstuff
end if

[Shamli]

I tried using this code in the on click event in the textbox. Its not giving an error message instead it is letting me to choose the date

VBadDate = DateAdd("d",14,Date())

if txtDate =vBadDate then
   MsgBox "bad date"
else
   'Do sstuff
end if

[Shamli]

This Validation rule helps in preventing users entering date from previous week.
What is the syntax from 2 previous weeks.
I replaced 1 with 2 and its not letting me choose date from the previous week instead its letting me choose from the previous 2 week.


Weekday([WeekendingCmbo])=6 And Year([WeekendingCmbo])*53+DatePart("ww",[WeekendingCmbo])=Year(Date())*53+DatePart("ww",Date())-1

[Shamli]

Okay. So this one helped !

Weekday([WeekendingCmbo])=6 And Between Date() And DateAdd("ww",-2,Date()) Or Between Date() And DateAdd("ww",+2,Date())

So this help me in choosing the day as Friday. and within 2 previous week and 2 future week (Friday).




Thank you!