1. 数据库access窗体:实现每隔5秒钟窗体的标题刷新显示一次当前系统时间。

Question

如题所述

Answer 1

为窗体编写下列事件过程即可解决：

'编写窗体打开事件过程
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 5000 '将窗体的刷新间隔设置为5秒
End Sub

'编写窗体计时器触发事件过程

Private Sub Form_Timer()
Me.Caption=Now()
End Sub