ACCESS 倒计时
答案:1 悬赏:30
解决时间 2021-04-28 00:23
- 提问者网友：傀儡离开
- 2021-04-27 05:16
想用ACCESS做个倒计时的小窗体,但偶才疏学浅,不会写代码,有哪位大哥哥大姐姐会的教教我,谢谢了!
最佳答案
- 二级知识专家网友：为你轻狂半世殇
- 2021-04-27 05:42
在窗体中建一个文本框,名为"时间"
,在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
,在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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯