在ACCESS中用代码压缩数据库的实现

chinj

在ACCESS中用代码压缩数据库的实现。

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

bpchan

学习！！！