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

點擊數: 24551

設計一個執行後端資料庫『修護與壓縮』的表單
表單中新增一個指令按鈕控制項，名稱為確定。
確定按鈕的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

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