在ACCESS中自動壓縮當前數據庫

　　ACCESS可在菜單上選擇[壓縮]來壓縮當前正打開的數據庫如是我們就可以通過程序臨時添加一個工具條按鈕然后使用SendKeys來模擬鍵盤操作實現壓縮當前數據庫壓縮后它會重新打開函數如下

　　FunctionCompact()
　添加一個工具條
　WithCommandBarsAdd(msoBarFloatingTrue)
　　在工具條上添加一個按鈕這個按鈕是從系統菜單的[工具]中[壓縮]產生的
　　 ControlsAddmsoControlButtonCommandBars(Tools)Controls()CommandBarControls()Id
　　Visible=True
　　將焦點移到該按鈕上
　　Controls()SetFocus
　　模擬擊鍵
　　SendKeys{ENTER}
　EndWith
EndFunction

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈