How do I only accept a MONDAY date on a Form?

[Guest]

I have a form to input dates but some must only ever be a MONDAY so I need a validation rule, I have found something that may work but I am also having trouble placing the rule onto ACCESS.

 

[Alastair]

Dear Gary,

Why not create a date selector combobox which takes its
dates from a table that only has a list of Mondays and set
the Limit To List property to True so the user can only
select one of the dates.

Alastair

-----Original Message-----
I have a form to input dates but some must only ever be a

MONDAY so I need a validation rule, I have found something
that may work but I am also having trouble placing the
rule onto ACCESS.

 

[fredg]

I have a form to input dates but some must only ever be a MONDAY so I need a validation rule, I have found something that may work but I am also having trouble placing the rule onto ACCESS.

You can use the weekday() function:

If WeekDay([DateField]) = 2 Then
' It's Monday
Else
' It's Not
End If

See the arguments for the Weekday function (in VBA Help) if Sunday is
not your first day of the week,

 

[Jim/Chris]

if Weekday([datefield])=2 then ....

Jim

-----Original Message-----
I have a form to input dates but some must only ever be a

MONDAY so I need a validation rule, I have found something
that may work but I am also having trouble placing the rule
onto ACCESS.

 

[John Vinson]

I have a form to input dates but some must only ever be a MONDAY so I need a validation rule, I have found something that may work but I am also having trouble placing the rule onto ACCESS.

Be nice to your users: let them enter any date they want and reset it
to the previous Monday in the control's AfterUpdate() event.

Private Sub txtDatefield_AfterUpdate()
Me!txtDateField = DateAdd("d", _
1 - DatePart("w", Me!txtDateField, vbMonday), Me!txtDateField)
End Sub

 

[Pieter Wijnen]

use the before_update property with the weekday function to validate
...... to all you americans out there.... there are countries using every day
of the week as day 1 - so remember to check regional settings ;-)


--
Pieter Wijnen

When all else fail try:
http://www.mvps.org/access
http://www.granite.ab.ca

 

[Guest]

Try this

=(Date()+2-DatePart("w",(Date())))