在ACCESS中实现到时提醒功能

Technorati 标签: ACCESS, 定时提醒, timeInterval, timer

这里说的“到时提醒”功能指按照用户事先设置的时间，到时弹出对话框提醒用户。步骤如下：

首先，把要做的事情和时间放到一个表里，时间是一个字段，事情是一个字段；

其次，设置在窗体的LOAD事件中设置窗体的timeinterval为60000ms（即一分钟）。这样窗体会每隔一分钟触发一次timer事件。

Me.TimerInterval = 60000

然后，在窗体的timer事件中判断当前时间是否为下次要提醒的时间，如果是，则弹出提示对话框，并从表中读取下一个要提醒的时间和事情，存储在模块级成员变量里。

1. If TrimSecond(Now) = m_timeNextRemind Then 
2.     MsgBox m_strNextRemind
3.     m_timeNextRemind = SetNextRemind
4. End If

 

最后，值得提醒的是，有时候，当把ACCESS主窗体最小化时，timer就不能正常工作。这时候，只要在工具-》选项-》视图-》显示 中，把“任务栏的窗口”uncheck，就可以屏蔽这个问题了。