设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 834|回复: 7
打印 上一主题 下一主题

[窗体] 一个在窗体上的筛选问题~

[复制链接]
跳转到指定楼层
1#
发表于 2006-4-16 21:30:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式








姓名

日期



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"



这个应该怎么实现呢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-4-16 23:01:00 | 只看该作者
ME.日期 = DMAX("[日期]","表名","[姓名]='" & 姓名 & "'")
3#
 楼主| 发表于 2006-4-16 23:03:00 | 只看该作者
谢谢老大

我去试试~
4#
 楼主| 发表于 2006-4-16 23:07:00 | 只看该作者
哇~ 真灵~!!

一点通,我爱你
5#
 楼主| 发表于 2006-4-16 23:27:00 | 只看该作者
又出问题了,譬如我要输入姓名为C的用户,那记录中没有关于c的日期的最大值

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

这个应该怎么解决呢,让他不要跳出来,或者把对话框的内容改掉
6#
 楼主| 发表于 2006-4-16 23:32:00 | 只看该作者
If Not IsNull(Me.日期) Then
Me.日期 = DateSerial(Year(DMax("[日期]", "表名", "[姓名]='" & 姓名 & "'")), Month(DMax("[日期]", "表名", "[姓名]='" & 姓名 & "'")), Day(DMax("[日期]", "表名", "[姓名]='" & 姓名 & "'")) + 1)
Else
MsgBox "无上次记录,请输入日期"

End If




啊。。。感觉不对啊,我再研究研究!

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

7#
发表于 2006-4-17 00:01:00 | 只看该作者
if isnull(dlookup("[姓名]","表名","[姓名]='" & 姓名 & "'") then

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

else

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

end if
8#
 楼主| 发表于 2006-4-17 00:14:00 | 只看该作者
谢谢,问题已经解决
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 06:03 , Processed in 0.124629 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表