明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

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

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

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

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


Microsoft Access在很多地方得到廣泛使用,例如小型企業(yè),大公司的部門。