Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

如何在access中压缩当前数据库

时 间:2007-08-08 00:00:00
作 者:朱亦文   ID:61  城市:岳阳
摘 要:在ACCESS中压缩当前数据库的方法.,具体看下文.
正 文:

ACCESS只能压缩已关闭的ACCESS数据库,因此,不能在代码中直接对当前的数据库进行。
 
但可以调用ACCESS菜单的方法解决这个问题。accDoDefaultAction是一个Office Object Library没有公布的调用菜单的方法,下面就是解决这个问题的例程:


'英文版Office:
'压缩当前使用的数据库
'要引用Microsoft Office 10.0(或9.0) Object Library
'作者:朱亦文
Public Sub CompactDB()
    CommandBars("Menu Bar"). _
    Controls("Tools"). _
    Controls("Database utilities"). _
    Controls("Compact and repair database..."). _
    accDoDefaultAction
End Sub


或者:

'压缩当前使用的数据库
'要引用Microsoft Office 10.0(或9.0) Object Library
'作者:朱亦文
Public Sub CompactDB()
    CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
End Sub


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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助