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