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

ACCESS 匯出資料

1 設計表單

DoCmd.TransferSpreadsheet acExport, 8, "new25", "c:\mydata.xls", False, ""
2 設計 按鈕
這樣就OK了

ACCESS 自動匯入資料

1 設計表單
使用 OPEN()
x = Day(Now())

DoCmd.TransferSpreadsheet acImport, 8, "new" & x, "c:\" & x & ".xls", True, ""
2 這樣就可以了