在Access中到了特定的时间和日期时会自动跳出警报的窗体？求源代码

powerlisa

例如：设定在2011-4-15，时间是15：30：00，到了这个时间就会自动报警，求源代码

zyp

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

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

powerlisa

非常感谢ZPY，因为你的热心帮忙，我的问题解决了，谢谢你