如何编写代码使时间自动递增

Access爱好者　发表于：2009-06-20 17:26:08 　

当用户登录系统时，系统自动显示登录所使用的时间。

帮看下这段代码不运行是哪里出错了。

Private Sub Form_Timer()
   runtime = runtime + TimeSerial(0, 0, 1)
   Me![Label45].Caption = "使用时间:" & Format(runtime, "hh:mm:ss")

End Sub

Top

符鸿敏发表于：2009-06-20 19:38:47

请用如下代码试试：
Private Sub Form_Load()
    Me.Label0.Caption = Format(Now(), "hh:mm:ss")
    TimerInterval = 1000
End Sub
Private Sub Form_Timer()
    Me.TimerInterval = 1000
    Form_Load
End Sub

Top

Access爱好者发表于：2009-06-20 21:53:04

谢谢这位楼主，我要的不是这样的结果。你可能还不明白我的意思。

我的意思是用户登录后每过一秒钟时间就自动加1秒钟

如：第1秒:00：00：01

第2秒:00：00：02

第3秒:00：00：03

第4秒:00：00：04 。。。。。。。。。。。。。

Top

符鸿敏发表于：2009-07-01 08:27:03

传上你的附件，或与我QQ联系。

Top

符鸿敏发表于：2009-07-01 11:13:54

点击下载此附件

看可否将就着使用

Top

符鸿敏发表于：2009-07-01 21:17:02

点击下载此附件

现在应该能满足楼主的要求了。

Top

符鸿敏发表于：2009-07-01 22:09:00

点击下载此附件

对不起，前个回帖中的“分”部分有误，现再次传上附件予以更正。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

如何编写代码使时间自动递增