怎样用代码实现退出时对数据库进行压缩？

jhzlzc29

如题

竹笛

工具=》选项=》在关闭时压缩前打勾

jhzlzc29

不能用代码实现吗？

ail

我有想知道如何用代码压缩后台数据库。请高手解答，谢谢

竹笛

如何在ACCESS中压缩当前数据库
作 者：tmtony
摘 要：ACCESS可以在退出时压缩数据库，但是我想在代码中来压缩当前打开的数据库，能办到吗？

正 文：

ACCESS只能压缩已关闭的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

ail

若我想用一按钮来控制后台压缩，如何做呢？（因为当数据大时控制比较好。）
我想压缩后台，以上方法好像不行。

bpchan

学习！！！！！！！