Office中国论坛/Access中国论坛

标题: 在Access中到了特定的时间和日期时会自动跳出警报的窗体？求源代码 [打印本页]

作者: powerlisa 时间: 2011-4-14 08:22
标题: 在Access中到了特定的时间和日期时会自动跳出警报的窗体？求源代码
例如：设定在2011-4-15，时间是15：30：00，到了这个时间就会自动报警，求源代码

作者: zyp 时间: 2011-4-14 08:38
本帖最后由 zyp 于 2011-4-14 08:38 编辑

创建一个窗体, 并设置其窗体属性中的"计时器间隔"为1000, 然后在"计时器触发"的事件代码中写下类似如下的代码:

Private Sub Form_Timer()
If Format(Now(), "ttttt") = "15:30:00" Then
MsgBox "时间到，散会", vbInformation, "*^_^*"
End If
End Sub
最好是将这个窗体设为隐藏的, 并随系统开启时就开启,以防用户不小心关掉它.

作者: powerlisa 时间: 2011-4-14 13:33
非常感谢ZPY，因为你的热心帮忙，我的问题解决了，谢谢你

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