在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%
相關(guān)內(nèi)容
- ·兩個未公開的ACCESS方法的使用技巧
- ·如何拆分復(fù)制的Access 97數(shù)據(jù)庫
- ·兩個未公開的ACCESS方法的使用技巧
- ·用Access 2000有效地組織班級管理
- ·數(shù)據(jù)在Access與Office組件間自由流動
- ·Access"智庫"培訓(xùn)--高效設(shè)計 敏捷開
- ·Access查詢的基本知識(二)(Office免費
- ·Access設(shè)置宏的安全等級
- ·Access查詢的基本知識(Office免費公開
- ·四種用代碼打開外部Access(MDB)的方法
- ·access操作或事件已被禁用模式阻止的解
- ·簡述vba字符串,函數(shù),表達式等基礎(chǔ)術(shù)
- ·Access VBA 開發(fā)公開課講座
- ·Access設(shè)置信任位置
- ·Access應(yīng)用程序應(yīng)注意的幾個問題
- ·簡析能判斷Access版本的窗體
最新內(nèi)容
推薦內(nèi)容