dtpicker 2

[Lhuffst]

Requirements require me to display only month and day not month/day/year. Also wants default to be last month. Have that part fine in code but when I try to run form, I get an error occured in the call to windows date and time picker control. I used the following code in on form open

Dim LastMonth
'LastMonth = Now() - 30
LastMonth = Format(Now() - 30, "MM/DD")

Debug.Print LastMonth
DtDateFrom.value = last month
I also tried reformatting the date to make sure it passed as a string but received same error msg.

DtDateFrom.Value = Format(LastMonth, "mm dd")

 

[SkipVought]

Hi,

LastMonth = Format(Now() - 30, "MM/DD")

Format returns a STRING, not a date.

Your table probably wants a DATE. Does not matter how the date is FORMATTED in the table, ROEMAT when you REPORT.

Skip,
[sub]
[red][/red]
[/sub]

 

[DrSimon]

Am I missing something here - what day do you need to be displayed? If now() is 31st January then now()-30 is 1st January.
Isn't this the code you want for today's date last month?
[blue] Format(DateAdd("m", 1, Now()), "mm/dd") [/blue]
Simon Rouse

 

[DrSimon]

Whoops that should have been
[blue]Format(DateAdd("m", -1, Now()), "mm/dd") [/blue]