Private Sub Form_Load() Me.TimerInterval = 1000 '设定间隔时间 End sub
Private Sub Form_Timer() DoCmd.OpenForm "AA" '这里设定要定时执行的语句 End Sub