到期提示-钱玉炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


到期提示

发表时间:2007/10/26 8:57:48 评论(3) 浏览(11490)  评论 | 加入收藏 | 复制
   
摘 要:到期提示
正 文:

用VBA实现吧,在计时器触发事件中加入:


Private Sub FORM_Timer()
Dim DeadlineDate As Date
DeadlineDate = #6/26/2003#
If Date >= DeadlineDate Then
  Beep '加入提示信息
MsgBox "到期了!!", vbOKOnly, "提示信息"
End If
End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
试用版限制时间与日期的方法  【UMV整理  2007/11/24】
到期自动删除数据库功能示例  【十段  2008/3/25】
判断生日到期天数的函数Acchelp_Birdays  【竹笛  2008/12/8】
[示例]到期天数计算  【钱玉炜  2009/12/9】
定时提醒  【jia  2011/9/25】
常见问答
技术分类
相关资源
文章搜索
关于作者

钱玉炜

文章分类

文章存档

友情链接