>即時新聞-熱門

2010年5月25日星期二

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

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱