推薦：用Access創建簡單MIS管理系統
你家中的CD、VCD一定很多吧？是不是常遇到為找一張CD把一抽屜的碟子翻得亂七八糟的情況，你一定沒少受埋怨——你不想整理它們一下？如：影片是國產的、還是國外的，是言情的、還是槍

ACCESS只能壓縮已關閉的ACCESS數據庫，因此，不能在代碼中直接對當前的數據庫進行。但可以調用ACCESS菜單的方法解決這個問題。accDoDefaultAction是一個Office Object Library沒有公布的調用菜單的方法，下面就是解決這個問題的例程：

'對于簡體中文版OFFICE：

'壓縮當前使用的數據庫

'要引用Microsoft Office 10.0(或9.0) Object Library

以下為引用的內容： Public Sub CompactDB() CommandBars("Tools"). _ Controls("數據庫實用工具(&D)"). _ Controls("壓縮和修復數據庫(&C)..."). _ accDoDefaultAction End Sub

'英文版Office：

'壓縮當前使用的數據庫

'要引用Microsoft Office 10.0(或9.0) Object Library

以下為引用的內容： Public Sub CompactDB() CommandBars("Menu Bar"). _ Controls("Tools"). _ Controls("Database utilities"). _ Controls("Compact and repair database..."). _ accDoDefaultAction End Sub

或者：

'壓縮當前使用的數據庫

'要引用Microsoft Office 10.0(或9.0) Object Library

以下為引用的內容： Public Sub CompactDB() CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction End Sub

注：運行本程序，你必須引用 Microsoft Office 9.0 Object Library (Office 2000)或 Microsoft Office 10.0 Object Library (Office XP)

分享：定期歸檔Access數據庫
一個通用數據庫任務會將記錄從一個表歸檔到另一個表。如果您希望從原始表中刪除不必要的記錄以減小表的大小，但是將來可能會參考這些記錄，那么您可以歸檔記錄（而不是刪除記錄）。要在 Microso