DateTimePicker changing max date parameter

[robtyketto]

Is there anyway to change the max date to

datenow + 2 years

I tried this in the properties -> Format -> MaxDate = dateadd("yyyy", 2,date())
without success :(

Can anyone help.

Thanks, a big thank you to all those who've helped me previously too :)

[PEB]

Hi
U can use

DateSerial(year (Now())+2, DatePart("m", Now()), Day(Now()))

[robtyketto]

HI,

Thanks for the reply.

I think the problem is that I need VBA code to allow me to change the parameter of the DateTimepicker as you cant enter argumetns directly into the property maxdate :( then attach it to an event on the form load.

No idea how to go about it though.

[MMcCarthy]

HI,

Thanks for the reply.

I think the problem is that I need VBA code to allow me to change the parameter of the DateTimepicker as you cant enter argumetns directly into the property maxdate :( then attach it to an event on the form load.

No idea how to go about it though.

You are trying to put something into format that is actually a validation rule.

[robtyketto]

You are trying to put something into format that is actually a validation rule.

Thanks, I was thinking that from the error message.

Can I set a limit then using VBA code?
Its an activex control my knowledge about these and VBA you could put on a postage stamp!

[PEB]

So u can put this vba code in BeforeUpdate Event in the respective Date Field:

IF me![MyDate].Value>DateSerial(year(Now())+2, DatePart("m", Now()), Day(Now())) then
Msgbox "Your date should be less than " +str(DateSerial(year(Now())+2, DatePart("m", Now()), Day(Now())))
Update=False
end if
 

[robtyketto]

Much appreciated , the msgbox appears but what the command to set the focus again in the date field (dtpicker9) as at the moment you can click on another field.

Thanks :)

[PEB]

In fact the solution can be

IF me![dtpicker9].Value>DateSeri al(year(Now())+ 2, DatePart("m", Now()), Day(Now())) then
Msgbox "Your date should be less than " +str(DateSerial (year(Now())+2, DatePart("m", Now()), Day(Now())))
Updated=False
Me!dtpicker9.Un do
Me!dtpicker9.Se tfocus
end if

[robtyketto]

In fact the solution can be

IF me![dtpicker9].Value>DateSeri al(year(Now())+ 2, DatePart("m", Now()), Day(Now())) then
Msgbox "Your date should be less than " +str(DateSerial (year(Now())+2, DatePart("m", Now()), Day(Now())))
Updated=False
Me!dtpicker9.Un do
Me!dtpicker9.Se tfocus
end if

I cant understand why as It end the IF condition and displays the message box but it doesnt leave the focus on the dtpicker. Doesnt complain about it but doesnt set focus.

Also had to remove the Undo as isnt an option with the version of access I have.

[robtyketto]

I should have re-read that before posting!

What I wanted to say is the message box appears but setfocus doesnt appear to function for datetimepicker.

Doesnt complain about syntax or error either.
The undo however is a recognised command so had to remove it.

Thanks for your help :)