Office中国论坛/Access中国论坛

标题: 求时间到期时，自动报警功能？ [打印本页]

作者: htlsb 时间: 2009-2-27 12:36
标题: 求时间到期时，自动报警功能？
本帖最后由 htlsb 于 2009-2-27 12:42 编辑

小弟做了个库，有录入时间字段，每个记录的有效时间都是1年，想实现的功能是在启动数据库时自动弹出包含所有所有过期数据记录的窗体，我初步想法是，做个时间过期的查询，用系统时间减去录入时间，显示大于1天的记录。当运行数据库时运行查询，当查询记录数大于0时弹出该窗体？求如何实现？

作者: todaynew 时间: 2009-2-27 13:50
本帖最后由 todaynew 于 2009-2-27 13:52 编辑

用dateadd函数

DateAdd 函数
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date) DateAdd 函数语法中有下列命名参数：

部分	描述
*interval*	必要。字符串表达式，是所要加上去的时间间隔。
*number*	必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
*date*	必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

设置
interval 参数具有以下设定值：

设置	描述
yyyy	年
q	季
m	月
y	一年的日数
d	日
w	一周的日数
ww	周
h	时
n	分钟
s	秒

说明
可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。
为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。
DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：
DateAdd(m, 1, 31-Jan-95)上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。
如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。
如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。
注意 DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。

作者: asklove 时间: 2009-2-27 15:25
菜单栏中“工具”－“启动”－“显示窗体/页”改为你要弹出的窗体（日期到期记录）

作者: ACMAIN_CHM 时间: 2009-2-27 15:40
我初步想法是，做个时间过期的查询，用系统时间减去录入时间，显示大于1天的记录。

select * from yourTable where date()-录入时间字段>365

当运行数据库时运行查询，当查询记录数大于0时弹出该窗体？求如何实现？

制作窗体，可以利用向导，基于刚才的那个查询。
新建一模块，插入public过程自己起个过程名，比如 public sub Main 在其中判断一下dcount("*","yourTable","date()-录入时间字段>365")>0, 则docmd.openform 你的窗体即可。
在"启动"设置(如不知道，请在ACCESS自带帮助文档中搜索“启动”这两个字样。)中设置启动项为这个 MAIN

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: htlsb 时间: 2009-2-27 15:54
谢谢帮助，我下来学习实验下！！！

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