Force Current Year

[tbeers]

Good morning.

I am running a timecard program in Access 2007 and it seems that the users have trouble entering the correct year when entering the date in the date field. Date field entry format is mm/dd/yy and is displayed as mm/dd/yyyy.

How can I force the current year to be entered?

Thanks

TomB

[FishVal]

Hello, Tom.

Try to reconstruct date entered by user with DateSerial() function.
Day() and Month() functions will help you to extract correspondent values from user input while Year(Date()) will give you current year.

Regards,
Fish.

[MindBender77]

@tbeers
My first question is what type of control is the date field in ie. Textbox?

Second, why do you need to have them enter this manually. You could simply have the control source of the textbox =Date(). Which will produce the current date automatically.

Bender

[tbeers]

I have the textbox = date() set, but sometimes they enter time for different days other than the current day. I just want an alert or procedure that keeps any year other than current year from being entered.

-Thanks

-Tom

[ChipR]

In the text box's validation rule put:

Format([text0],"yy")=Format(Date(),"yy")

[MindBender77]

@tbeers
You could set the enable property of the textbox to "false" which should prevent users from changing anything you don't want them to change. It will just gray out the textbox but, retain the data.

Or something like this in OnExit event of your textbox:

If format(" & Textbox1 & ", "yy")  <> format(Date,"yy") Then
msgbox("Please Enter the Current year.")
docmd.cancelevent
textbox1.setfocus
else
'do something here.........
end if
 

Note, this is untested.

HTH,
Bender