Office中国论坛/Access中国论坛

标题: 倒计时 [打印本页]

作者: ZHANGYANGYANG 时间: 2014-1-9 16:44
标题: 倒计时
Private Sub Form_Timer()
s = IIf(ss < 10, "0" & ss, "" & ss)
m = IIf(mm < 10, "0" & mm, "" & mm)
h = IIf(hh < 10, "0" & hh, "" & hh)
Me.T1 = h & ":" & m & ":" & s

ss = ss - 1
If hh = 0 And mm = 0 And ss = -1 Then
msg = "试用期时间已到，按回车键结束!"

DoCmd.Quit acQuitSaveAll
End If
If ss = -1 And mm > 0 Then mm = mm - 1: ss = 59
If mm = 0 And hh > 0 Then hh = hh - 1: mm = 59: ss = 59

End Sub 这是我写的代码，就是当倒计时窗体关闭后，下次打开继续，例如关闭时的时间是00：02：23，下次打开倒计时窗体时继续这个时间开始，该怎样写代码？谢谢师傅们！

作者: 盗梦 时间: 2014-1-9 17:55
把时间保存到本地表中，下次打开再读取

作者: lynnwang 时间: 2014-1-9 19:17
举一反三
数据很多时，采用二楼的方法建表，此方法永久
只有一个或几个时，采用Form.Tag或全局变量等保存，此方法临时
数据不多时，采用DAO CreateProperty 方法在当前窗体或表或查询对象上创建属性保存，此方法永久

作者: ZHANGYANGYANG 时间: 2014-1-10 11:06
请师傅们能否说详细点？我是新手，最好举个例子。谢谢！怎样保存，怎样读取？

作者: todaynew 时间: 2014-1-10 12:20
http://www.office-cn.net/forum.php?mod=viewthread&tid=117195

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