Simple Select MAX date statement. 1

[DajTwo]

Access 2003.

I am trying to get the Max Date value in a table to the variable "LstUpd" but I always get a type mismatch at the SELECT line.

Can someone point me to my error? Thanks!!!

Dim db As Database
Dim rsUpdate As Recordset
Dim LstUpd As Date

Set db = CurrentDb
Set rsUpdate = db.OpenRecordset("tbl_update")

LstUpd = "SELECT Max(tbl_update.last_update) AS As_Of FROM [tbl_update]"

MsgBox "The database was last updated on #" & LstUpd & "#. Do want to update the database?", vbYesNo, "Database Update"

 

[PWise]

Dim db As Database
Dim rsUpdate As Recordset
Dim LstUpd As Date

Set db = CurrentDb
Set rsUpdate = db.OpenRecordset("SELECT Max(tbl_update.last_update) AS As_Of FROM [tbl_update]"

LstUpd = rsUpdate!As_Of

MsgBox "The database was last updated on #" & LstUpd & "#.  Do want to update the database?", vbYesNo, "Database Update"

 

[DajTwo]

So far but yet soo close.

I have learned something again.

A zillion minus one left.

Many thanks pwise. Happy holidays.

 

[PHV]

Why not simply this ?
rsUpdate = DMax("last_update", "tbl_update")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DajTwo]

Hi PHV.

Thanks for the alternate solution.. I will also give it a try.

For a newbie like me, differnet solutions to a problem are great. !!

 

[PHV]

Sorry for the typo, I meant:
LstUpd = DMax("last_update", "tbl_update")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886