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

funhere

我想让ACCESS打开一个窗体，显示10秒钟后自动关闭此窗体，同时打开另一个窗体。

是不是有相关的命令？

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

jynj

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

一点通

可利用窗体的计时器触发事件和计时器间隔事件配合窗体上的文本框来实现