使用VBA程式碼『修護與壓縮』後端資料庫

  1. 設計一個執行後端資料庫『修護與壓縮』的表單
  2. 表單中新增一個指令按鈕控制項,名稱為確定
  3. 確定按鈕的OnClick事件加入以下程式碼:

---------------------------------------------------------------------------------------------------------------------------------------

Private Sub 確定_Click()

Dim DataPath As String
DataPath = CurrentProject.Path 
Set m = CurrentProject.AllForms

'關閉目前作業中的表單
DoCmd.Close
'修護與壓縮位於database子目錄中的後端資料庫StockDta.mdb,並將結果另存為temp.mdb資料庫檔案。
DBEngine.CompactDatabase CurrentProject.Path & "\" & "database" & "\" & "StockData.mdb", CurrentProject.Path & "\" & "temp.mdb"
'刪除位於database子目錄中的後端資料庫StockDta.mdb
Kill CurrentProject.Path & "\" & "database" & "\" & "StockData.mdb"
'將temp.mdb資料庫複製到database子目錄中,並更名為StockDta.mdb。
FileCopy CurrentProject.Path & "\" & "temp.mdb", CurrentProject.Path & "\" & "database" & "\" & "StockData.mdb"
'刪除temp.mdb資料庫檔案
Kill CurrentProject.Path & "\" & "temp.mdb"
'完成後端資料庫修護與壓縮之後,提示完成對話方塊。
MsgBox "系統已完成『後端資料庫』的修復與壓縮"


End Sub

---------------------------------------------------------------------------------------------------------------------------------------


列印   Email