MyDay = last day of the month 2 month ago 1

[teqtaq]

I want my table to be renamed with date that is 2 month ago with last day of that month.

My code

Dim myYear As Long
Dim myMonth As Long
Dim myDay As Long


myYear = Year(Date)
myMonth = Month(Date)
myDay = Day(Date)


DoCmd.Rename "TBL" & " " & Format(DateSerial(myYear, myMonth - 2, myDay), "mm_dd_yyyy"), acTable, "TBLPrior"

So far I am getting it except MyDay wich is today's day.

Thanks

 

[SkipVought]

hi,

LastDay2MonthsAgo = DateSerial(year(date),Month(date)-1,0)

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[teqtaq]

Thanks so much!