站内搜索

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

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

Function Compact()
   ' 添加一个工具条
   With CommandBars.Add(, msoBarFloating, , True)
     ' 在工具条上添加一个按钮,这个按钮是从系统菜单的[工具]中[压缩]产生的
     .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
     .Visible = True
     ' 将焦点移到该按钮上
     .Controls(1).SetFocus
     ' 模拟击键
     SendKeys "{ENTER}"
   End With
End Function

注:运行本程序,你必须引用 Microsoft Office 9.0 Object Library (Office 2000)或 Microsoft Office 10.0 Object Library (Office XP)

点击下载附件

 

  • 上一篇:Access无需DSN文件快速连接SQL Server的方法!
  • 下一篇:如何在ACCESS中压缩当前数据库