Find Maximum Date Except The Current System Date

[a_20120]

Dear all,

How can I get the maximum "Greatest" Date except the Current Today Date.
mean not consider the Today System Date.

VBA:

Dim LastDate, TodayDate
TodayDate = Date 'Current Today Date
LastDate = DMAX("[Datee]","DailyAccount","[Datee] <>" & "#" & TodayDate & "#")
Me.RecentLastDate_txt.value = LastDate

Note:
[Datee] : is the Field Name
"DailyAccount" : is Table Name
RecentLastDate_txt : is TextBox Control

But not work, what I want.

 

[MStef]

Try it with DateAdd function.

 

[gemma-the-husky]

your code looks like it ought to get the correct date (assuming you are interrogating the "daily account" table correctly).

what error are you getting with your code?

 

[a_20120]

I have no Error in the code, but I like to find the MAX date in the table, not consider and look the Current System Date, mean if the max is the Current System Date not count that, mean ignore the Current System Date.

 

[a_20120]

How can I do that, Plz write me the Code.

 

[MStef]

What do you exactly want ???
Do you want to coun something (in query),
or you want to get the record (with max date) on the form,
or something other.

 

[a_20120]

Want to find Max Date of Table

What do you exactly want ???
Do you want to coun something (in query),
or you want to get the record (with max date) on the form,
or something other.

I want to find Greatest "Max" Date in the Table except the Current Date (Current System Date).

 

[MStef]

Look at "DemoMaxDateA2000.mdb" (attachment).
When you open Form1, the first record is a record
with MAX DATE (08/12/2006) except th current Date.
Look at Record Source properties.

 

[gemma-the-husky]

i mean, your code looks like it should work correctly.

your posting/question implies that it isn't. so how do you know you are not getting the correct result?

 

[a_20120]

MStef

Look at "DemoMaxDateA2000.mdb" (attachment).
When you open Form1, the first record is a record
with MAX DATE (08/12/2006) except th current Date.
Look at Record Source properties.

See The Attachment

 

[MStef]

Here it is.
Look at Query1 (SQL), look at VBA.