Office中国论坛/Access中国论坛

标题: 能按时间倒计时自动关闭的窗体 [打印本页]

作者: zx994398 时间: 2006-1-1 19:17
标题: 能按时间倒计时自动关闭的窗体
谁能指导一个“能按时间倒计时自动关闭的窗体”的设计？

[此贴子已经被作者于2006-1-1 11:20:45编辑过]

作者: 一点通 时间: 2006-1-1 23:59
用fan0217进度条事例修改成自动关闭窗体的例子

[attach]15109[/attach]

作者: sgrshh29 时间: 2006-1-2 00:09
计时10秒.

Private Sub Command6_Click()
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
If m = 0 Then
      m = 10
End If
      m = m - 1
If m = 0 Then
   DoCmd.Close
   Exit Sub
End If
End Sub

作者: 123shusheng 时间: 2016-11-20 16:40
学习了！

作者: 390012370 时间: 2024-1-16 12:24
学习了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)