ACCESS可在菜单上选择[压缩]来压缩当前正打开的数据库如是我们就可以通过程序临时添加一个工具条按钮然后使用SendKeys来模拟键盘操作实现压缩当前数据库压缩后它会重新打开函数如下
FunctionCompact()
添加一个工具条
WithCommandBarsAdd(msoBarFloatingTrue)
在工具条上添加一个按钮这个按钮是从系统菜单的[工具]中[压缩]产生的
ControlsAddmsoControlButtonCommandBars(Tools)Controls()CommandBarControls()Id
Visible=True
将焦点移到该按钮上
Controls()SetFocus
模拟击键
SendKeys{ENTER}
EndWith
EndFunction