access可在菜单上选择[压缩]来压缩当前正打开的数据库，如是我们就可以通过程序临时添加一个工具条按钮，然后使用sendkeys来模拟键盘操作，实现压缩当前数据库，压缩后它会重新打开。函数如下：
functioncompact()
'添加一个工具条
withcommandbars.add(,msobarfloating,,true)
'在工具条上添加一个按钮，这个按钮是从系统菜单的[工具]中[压缩]产生的
.controls.addmsocontrolbutton,commandbars(tools).controls(7).commandbar.controls(2).id
.visible=true
'将焦点移到该按钮上
.controls(1).setfocus
'模拟击键
sendkeys{enter}
endwith
endfunction
，