获取记录中最近的日期（即最大日期）

pyh512

思路大概是这样，问题存于最大日期怎么用代码表达，例子如下：
Me.已记录到 = "SELECT * FROM "表名"WHERE [日期]=" & max(日期)

tmtony

先用dmax("日期字段","表名")
取最大日期  

pyh512

    我这样写没见有反应？
    Dim L             As Currency
    L = DMax("[日期]", "tbl气象记录")
    Me.已记录到 = DLookup("日期", "tbl气象记录", "日期=#" & L & "#")
    MsgBox L

pyh512

tmtony 发表于 2016-12-14 09:57
先用dmax("日期字段","表名")
取最大日期

我这样写没见有反应？
     Dim L             As Currency
     L = DMax("[日期]", "tbl气象记录")
     Me.已记录到 = DLookup("日期", "tbl气象记录", "日期=#" & L & "#")
     MsgBox L

pyh512

Me.已记录到.Value  = DMax("[日期]", "tbl气象记录")

谢谢，这样就可以了