ACCESS 倒计时

想用ACCESS做个倒计时的小窗体,但偶才疏学浅,不会写代码,有哪位大哥哥大姐姐会的教教我,谢谢了!

在窗体中建一个文本框,名为"时间"
,在VBA代码中写如下代码:

Option Compare Database
Dim aa As Long, bb As Long
Sub Form_Load()
aa = 1000
aa = Val(InputBox("请输入倒数秒数,整数"))
bb = Timer
End Sub

Private Sub Form_Timer()
cc = bb
Me.TimerInterval = 1000
Me.时间 = Format(cc + aa - Timer, "0")
If Val(Me.时间) <= 0 Then
MsgBox "时间到了"
DoCmd.Close
End If
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！