Office中国论坛/Access中国论坛

标题: 一个在窗体上的筛选问题~ [打印本页]

作者: jiazhou 时间: 2006-4-16 21:30
标题: 一个在窗体上的筛选问题~

姓名

日期

a

2005-4-14

a

2005-4-30

a

2005-5-13

b

2005-6-1

我想在窗体上的文本框1中输入姓名"a"，然后在文本框2中得到姓名为a的最大的时间"2005-5-13"

在文本框1中输入"b"，文本框2中得到b的最大时间"2005-6-1"

这个应该怎么实现呢

作者: 一点通 时间: 2006-4-16 23:01
ME.日期 = DMAX("[日期]","表名","[姓名]='" & 姓名 & "'")

作者: jiazhou 时间: 2006-4-16 23:03
谢谢老大

我去试试~

作者: jiazhou 时间: 2006-4-16 23:07
哇~ 真灵~！！

一点通，我爱你

作者: jiazhou 时间: 2006-4-16 23:27
又出问题了，譬如我要输入姓名为C的用户，那记录中没有关于c的日期的最大值

就会跳出错误“运行时错误'94' 无效使用 NULL”

这个应该怎么解决呢，让他不要跳出来，或者把对话框的内容改掉

作者: jiazhou 时间: 2006-4-16 23:32
If Not IsNull(Me.日期) Then
Me.日期 = DateSerial(Year(DMax("[日期]", "表名", "[姓名]='" & 姓名 & "'")), Month(DMax("[日期]", "表名", "[姓名]='" & 姓名 & "'")), Day(DMax("[日期]", "表名", "[姓名]='" & 姓名 & "'")) + 1)
Else
MsgBox "无上次记录，请输入日期"

End If

啊。。。感觉不对啊，我再研究研究！

[此贴子已经被作者于2006-4-16 15:52:52编辑过]

作者: 一点通 时间: 2006-4-17 00:01
if isnull(dlookup("[姓名]","表名","[姓名]='" & 姓名 & "'") then

msgbox "没有这个姓名,请另输入"

else

ME.日期 = DMAX("[日期]","表名","[姓名]='" & 姓名 & "'")

end if

作者: jiazhou 时间: 2006-4-17 00:14
谢谢,问题已经解决

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