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

『 更新时间:2008-4-14 』『 字体:变小 变大 』『 作者:朱亦文 | 来源:编程中国

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

'对于简体中文版OFFICE:

'压缩当前使用的数据库

'要引用Microsoft Office 10.0(或9.0) Object Library

以下为引用的内容:
Public Sub CompactDB()
    CommandBars("Tools"). _
    Controls("数据库实用工具(&D)"). _
    Controls("压缩和修复数据库(&C)..."). _
    accDoDefaultAction
End Sub

'英文版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)

【点击数:】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口

关文章

您的姓名:
评分等级:
1分 2分 3分 4分 5分
评论内容:
1、严禁发表危害国家安全、政治、黄色淫秽等内容的评论。
2、用户需对自己在使用金石网服务过程中的行为承担法律责任。
3、本站管理员有权保留或删除评论内容。
4、评论内容只代表网友个人观点,与本网站立场无关。
  • 金石网
  • | 设为首页 | 加入收藏 | 联系我们 | 版权申明 | 友情链接 | 站点地图 | 网站帮助 | 网站留言 | 广告服务 |
  • Copyright © 2001-2008 KingsNet.biz All Rights Reserved. 闽ICP备05026663号
  • 返回网站顶部