[求助]“时间程序”怎么用？

sjg888_8

我在网上找到下列关于“时间更新”的Access VBA程序，但不会用。是将其作为模块后调用吗？调用命令又怎么写呢？我想在窗体的文本框里显示不断变化着的时间，请赐教！

Private Sub Form_Timer()

Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")

End Sub

Private Sub cmdClockStart_Click()

Me.TimerInterval = 1000

End Sub

Private Sub cmdClockEnd_Click()

Me.TimerInterval = 0

End Sub

中国深圳

1、在窗体上建一文标签lblClock。

2把如下代码写入窗体代码中。

Private Sub Form_Timer()

Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")

End Sub

3、在窗体的设计视图------属性-----全部页--------计时器间隔中输入1000 保存就可以了。

sjg888_8

谢谢中国深圳！我原也这样试过，但未成功。原来是要以文本标签形式显示的，而不是文本框。又长了见识，谢谢！！