如何在ACCESS中壓縮當(dāng)前數(shù)據(jù)庫(kù)

2024-09-07 19:03:36

字體：大中小

供稿：網(wǎng)友

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

'對(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)

上一篇：以指定工作組文件啟動(dòng)MDB文件

下一篇：長(zhǎng)期使用中型Access數(shù)據(jù)庫(kù)的一點(diǎn)經(jīng)驗(yàn)