在Access中,压缩数据库的 *** 作是没有实际意义的

ACCESS只能压缩已关闭的ACCESS数据库，因此，不能在代码中直接对当前的数据库进行。因此，是没有什么意义的

ER模型的概念模型来源于数据概念模型,说明ER模型是一种概念模型设计方法。在access数据库中可以用数据传送的方法实现资源的充分利用和互补。

　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

---