在ACCESS中自動壓縮當前數據庫
發表時間:2023-08-13 來源:明輝站整理相關軟件相關文章人氣:
[摘要]ACCESS可在菜單上選擇[壓縮]來壓縮當前正打開的數據庫,如是我們就可以通過程序臨時添加一個工具條按鈕,然后使用SendKeys來模擬鍵盤操作,實現壓縮當前數據庫,壓縮后它會重新打開。函數如下: ...
ACCESS可在菜單上選擇[壓縮]來壓縮當前正打開的數據庫,如是我們就可以通過程序臨時添加一個工具條按鈕,然后使用SendKeys來模擬鍵盤操作,實現壓縮當前數據庫,壓縮后它會重新打開。函數如下:
FunctionCompact()
'添加一個工具條
WithCommandBars.Add(,msoBarFloating,,True)
'在工具條上添加一個按鈕,這個按鈕是從系統菜單的[工具]中[壓縮]產生的
.Controls.AddmsoControlButton,CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
.Visible=True
'將焦點移到該按鈕上
.Controls(1).SetFocus
'模擬擊鍵
SendKeys"{ENTER}"
EndWith
EndFunction
Microsoft Access在很多地方得到廣泛使用,例如小型企業,大公司的部門。