在ACCESS中自动压缩当前数据库

　　ACCESS可在菜单上选择[压缩]来压缩当前正打开的数据库如是我们就可以通过程序临时添加一个工具条按钮然后使用SendKeys来模拟键盘操作实现压缩当前数据库压缩后它会重新打开函数如下

　　FunctionCompact()
　添加一个工具条
　WithCommandBarsAdd(msoBarFloatingTrue)
　　在工具条上添加一个按钮这个按钮是从系统菜单的[工具]中[压缩]产生的
　　 ControlsAddmsoControlButtonCommandBars(Tools)Controls()CommandBarControls()Id
　　Visible=True
　　将焦点移到该按钮上
　　Controls()SetFocus
　　模拟击键
　　SendKeys{ENTER}
　EndWith
EndFunction

生活不易，码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠