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

ACCESS只能壓縮已關(guān)閉的ACCESS數(shù)據(jù)庫(kù)，因此，不能在代碼中直接對(duì)當(dāng)前的數(shù)據(jù)庫(kù)進(jìn)行。但可以調(diào)用ACCESS菜單的方法解決這個(gè)問(wèn)題。accDoDefaultAction是一個(gè)Office Object Library沒(méi)有公布的調(diào)用菜單的方法，下面就是解決這個(gè)問(wèn)題的例程：

'對(duì)于簡(jiǎn)體中文版OFFICE：

'壓縮當(dāng)前使用的數(shù)據(jù)庫(kù)

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

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

'英文版Office：

'壓縮當(dāng)前使用的數(shù)據(jù)庫(kù)

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

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

或者：

'壓縮當(dāng)前使用的數(shù)據(jù)庫(kù)

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

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

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

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