ACCESS可在菜單上選擇[壓縮]來(lái)壓縮當(dāng)前正打開的數(shù)據(jù)庫(kù)，如是我們就可以通過(guò)程序臨時(shí)添加一個(gè)工具條按鈕，然后使用SendKeys來(lái)模擬鍵盤操作，實(shí)現(xiàn)壓縮當(dāng)前數(shù)據(jù)庫(kù)，壓縮后它會(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
更多信息請(qǐng)查看IT技術(shù)專欄
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試