會員登錄 - 用戶注冊 - 網(wǎng)站地圖 Office中國(office-cn.net),專業(yè)Office論壇
當(dāng)前位置:主頁 > 技巧 > Access技巧 > 數(shù)據(jù)庫系統(tǒng) > 正文

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

時間:2004-11-23 22:41 來源:Office中國/Access中國 作者:tmtony『… 閱讀:

access可在菜單上選擇[壓縮]來壓縮當(dāng)前正打開的數(shù)據(jù)庫,如是我們就可以通過程序臨時添加一個工具條按鈕,然后使用 SendKeys 來模擬鍵盤操作,實現(xiàn)壓縮當(dāng)前數(shù)據(jù)庫,壓縮后它會重新打開。函數(shù)如下:

Function Compact()
   ' 添加一個工具條
   With CommandBars.Add(, msoBarFloating, , True)
     ' 在工具條上添加一個按鈕,這個按鈕是從系統(tǒng)菜單的[工具]中[壓縮]產(chǎn)生的
     .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
     .Visible = True
     ' 將焦點移到該按鈕上
     .Controls(1).SetFocus
     ' 模擬擊鍵
     SendKeys "{ENTER}"
   End With
End Function

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


點擊瀏覽該文件


(責(zé)任編輯:admin)

頂一下
(0)
0%
踩一下
(0)
0%
發(fā)表評論
請自覺遵守互聯(lián)網(wǎng)相關(guān)的政策法規(guī),嚴禁發(fā)布色情、暴力、反動的言論。
評價: