ACCESS里面有没有倒计时的函数？

来源：百度知道 编辑：UC知道 时间：2024/05/04 16:57:08
我想让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