求時(shí)間到期時(shí)，自動(dòng)報(bào)警功能？

htlsb

小弟做了個(gè)庫，有錄入時(shí)間字段，每個(gè)記錄的有效時(shí)間都是1年，想實(shí)現(xiàn)的功能是在啟動(dòng)數(shù)據(jù)庫時(shí)自動(dòng)彈出包含所有所有過期數(shù)據(jù)記錄的窗體，我初步想法是，做個(gè)時(shí)間過期的查詢，用系統(tǒng)時(shí)間減去錄入時(shí)間，顯示大于1天的記錄。當(dāng)運(yùn)行數(shù)據(jù)庫時(shí)運(yùn)行查詢，當(dāng)查詢記錄數(shù)大于0時(shí)彈出該窗體？求如何實(shí)現(xiàn)？

todaynew

用dateadd函數(shù)

DateAdd 函數(shù)
返回包含一個(gè)日期的 Variant (Date)，這一日期還加上了一段時(shí)間間隔。
語法
DateAdd(interval, number, date) DateAdd 函數(shù)語法中有下列命名參數(shù)：

部分	描述
interval	必要。字符串表達(dá)式，是所要加上去的時(shí)間間隔。
number	必要。數(shù)值表達(dá)式，是要加上的時(shí)間間隔的數(shù)目。其數(shù)值可以為正數(shù)（得到未來的日期），也可以為負(fù)數(shù)（得到過去的日期）。
date	必要。Variant (Date) 或表示日期的文字，這一日期還加上了時(shí)間間隔。

設(shè)置
interval 參數(shù)具有以下設(shè)定值：

設(shè)置	描述
yyyy	年
q	季
m	月
y	一年的日數(shù)
d	日
w	一周的日數(shù)
ww	周
h	時(shí)
n	分鐘
s	秒

說明
可以使用 DateAdd 函數(shù)對(duì)日期加上或減去指定的時(shí)間間隔。例如，可以用 DateAdd 來計(jì)算距今天為三十天的日期；或者計(jì)算距現(xiàn)在為 45 分鐘的時(shí)間。
為了對(duì) date 加上“日”，可以使用“一年的日數(shù)” (“y”)，“日” (”d”) 或“一周的日數(shù)” (”w”)。
DateAdd 函數(shù)將不返回有效日期。在以下實(shí)例中將 1 月31 日加上一個(gè)月：
DateAdd(m, 1, 31-Jan-95)上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，則由于 1996 年是閏年，返回值是 1996 年 2 月 29 日。
如果計(jì)算的日期超前 100 年（減去的年度超過 date 中的年份），就會(huì)導(dǎo)致錯(cuò)誤發(fā)生。
如果 number 不是一個(gè) Long 值，則在計(jì)算時(shí)取最接近的整數(shù)值來計(jì)算。
注意   DateAdd 返回值的格式由 Control Panel設(shè)置決定，而不是由傳遞到date 參數(shù)的格式?jīng)Q定。

asklove

菜單欄中“工具”－“啟動(dòng)”－“顯示窗體/頁”改為你要彈出的窗體（日期到期記錄）

ACMAIN_CHM

我初步想法是，做個(gè)時(shí)間過期的查詢，用系統(tǒng)時(shí)間減去錄入時(shí)間，顯示大于1天的記錄。

select * from yourTable where date()-錄入時(shí)間字段>365


當(dāng)運(yùn)行數(shù)據(jù)庫時(shí)運(yùn)行查詢，當(dāng)查詢記錄數(shù)大于0時(shí)彈出該窗體？求如何實(shí)現(xiàn)？

制作窗體，可以利用向?qū)�，基于剛才的那個(gè)查詢。
新建一模塊，插入public過程 自己起個(gè)過程名，比如 public sub Main 在其中 判斷一下dcount("*","yourTable","date()-錄入時(shí)間字段>365")>0, 則docmd.openform 你的窗體即可。
在"啟動(dòng)"設(shè)置(如不知道，請(qǐng)?jiān)贏CCESS自帶幫助文檔中搜索“啟動(dòng)”這兩個(gè)字樣。)中設(shè)置啟動(dòng)項(xiàng)為這個(gè) MAIN



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access論壇回貼準(zhǔn)則（個(gè)人）.
.
同一貼子不回復(fù)第二次
.
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://ctxi.cn .
.
http://ctxi.cn/home/space.php?uid=141646 .

htlsb

謝謝幫助，我下來學(xué)習(xí)實(shí)驗(yàn)下！��！