Access爱好者--
所属分类: 经验分享 作者: 共享 更新日期:2003-10-6 16:45:52 阅读次数:192

在程序中调动自动压缩及修复自身的函数


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

调用方法:

Compact


--------------------------------------------------------------------------------
相关文章

两个未公开的ACCESS方法的使用技巧 2003-12-30 14:59:33
了解 Microsoft Access 安全性 2003-11-13 11:21:08
让控件自适应屏幕分辨率 2003-10-18 9:58:33
VB中利用Winrar进行文件压缩 2003-10-17 19:33:08
MS Jet SQL for Access 2000中级篇 (II) 2003-10-17 18:51:01
如何诊断/修复损坏的 Jet 4.0 数据库 2003-10-14 8:31:26
Access启动命令行选项大全 2003-10-10 10:02:00
优化Microsoft Access提高速度 2003-10-6 10:31:55


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链