ACCESS 自動執行 -

這是學生問的
但是不可以關機喔
Dim X

Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 1000
X= DateAdd("n", 5, Now())
End Sub

Private Sub Form_Timer()
If Now() > X Then
DOCMD 你的指令
X = DateAdd("n", 5, Now())
End If
End Sub