怎么看鼠标的回报率: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