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

access可在菜单上选择[压缩]来压缩当前正打开的数据库，如是我们就可以通过程序临时添加一个工具条按钮，然后使用sendkeys来模拟键盘操作，实现压缩当前数据库，压缩后它会重新打开。函数如下： functioncompact() '添加一个工具条 withcommandbars.add(,mso

　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

.syntaxhighlighter{padding-top:20px;padding-bottom:20px;}
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！