Office中国论坛/Access中国论坛

标题: 获取记录中最近的日期（即最大日期） [打印本页]

作者: pyh512 时间: 2016-12-14 09:49
标题: 获取记录中最近的日期（即最大日期）
思路大概是这样，问题存于最大日期怎么用代码表达，例子如下：
Me.已记录到 = "SELECT * FROM "表名"WHERE [日期]=" & max(日期)

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

作者: pyh512 时间: 2016-12-14 11:40
我这样写没见有反应？
Dim L As Currency
L = DMax("[日期]", "tbl气象记录")
Me.已记录到 = DLookup("日期", "tbl气象记录", "日期=#" & L & "#")
MsgBox L

作者: pyh512 时间: 2016-12-14 11:41

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

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

作者: pyh512 时间: 2016-12-14 12:30
本帖最后由 pyh512 于 2016-12-14 13:06 编辑

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

谢谢，这样就可以了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)