Office中国论坛/Access中国论坛

标题: 如何用ＶＢＡ／ＶＢ实现Ａｃｃｅｓｓ数据库的自动压缩修复 [打印本页]

作者: jd0595 时间: 2006-11-27 17:09
标题: 如何用ＶＢＡ／ＶＢ实现Ａｃｃｅｓｓ数据库的自动压缩修复
如何用ＶＢＡ／ＶＢ实现Ａｃｃｅｓｓ数据库的自动压缩修复？

谢谢！！！

作者: 一点通 时间: 2006-11-27 17:21
关闭数据库时自动压缩数据库不行吗？

作者: tmtony 时间: 2006-11-27 18:16

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

作者：tmtony『… 文章来源：Office中国/Access中国点击数：

[code][/code]

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)

看看这个方法是否可行?

作者: jd0595 时间: 2006-11-27 23:23
3楼的方法试过了

不行

2楼的，由于共享数据库

所以不想用关闭时压缩

[此贴子已经被作者于2006-11-27 15:23:50编辑过]

作者: bpchan 时间: 2008-11-24 13:46
标题: 学习！！！
有没有例子啊？？

作者: qsdys 时间: 2010-4-22 10:12
正用到这个功能学习了，谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)