在ACCESS中自動(dòng)壓縮當(dāng)前數(shù)據(jù)庫(kù)

ACCESS可在菜單上選擇[壓縮]來(lái)壓縮當(dāng)前正打開(kāi)的數(shù)據(jù)庫(kù)，如是我們就可以通過(guò)程序臨時(shí)添加一個(gè)工具條按鈕，然后使用 SendKeys 來(lái)模擬鍵盤(pán)操作，實(shí)現(xiàn)壓縮當(dāng)前數(shù)據(jù)庫(kù)，壓縮后它會(huì)重新打開(kāi)。函數(shù)如下：
    Function Compact()
     ' 添加一個(gè)工具條
     With CommandBars.Add(, msoBarFloating, , True)
     ' 在工具條上添加一個(gè)按鈕，這個(gè)按鈕是從系統(tǒng)菜單的[工具]中[壓縮]產(chǎn)生的
     .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
     .Visible = True
     ' 將焦點(diǎn)移到該按鈕上
     .Controls(1).SetFocus
     ' 模擬擊鍵
     SendKeys "{ENTER}"
     End With
    End Function
    注：運(yùn)行本程序，你必須引用 Microsoft Office 9.0 Object Library (Office 2000)或 Microsoft Office 10.0 Object Library (Office XP)