怎么看鼠标的回报率:ACCESS里面有没有倒计时的函数?

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 02:42:38
我想让ACCESS打开一个窗体,显示10秒钟后自动关闭此窗体,同时打开另一个窗体。

是不是有相关的命令?

如果用循环做的话,不好控制时间。同时我也希望能在下面显示还有几秒钟

在窗体中建一个文本框,名为"时间"
,在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

mo you ba