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