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


ACCESS可在菜单上选择[压缩]来压缩当前正打开的数据库,如是我们就可以通过程序临时添加一个工具条按钮,然后使用SendKeys来模拟键盘操作,实现压缩当前数据库,压缩后它会重新打开。函数如下:

FunctionCompact()
 '添加一个工具条
 WithCommandBars.Add(,msoBarFloating,,True)
  '在工具条上添加一个按钮,这个按钮是从系统菜单的[工具]中[压缩]产生的
  .Controls.AddmsoControlButton,CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id
  .Visible=True
  '将焦点移到该按钮上
  .Controls(1).SetFocus
  '模拟击键
  SendKeys"{ENTER}"
 EndWith
EndFunction

  注:运行本程序,你必须引用MicrosoftOffice9.0ObjectLibrary(Office2000)或MicrosoftOffice10.0ObjectLibrary(OfficeXP)



相关阅读:
日志操作模式,Oracle数据的保护伞
Man指令调用帮助文件来源和语法关键字
理解认识阿里妈妈淘客系统对外接口通用规范
PHP源码之 ext/mysql扩展部分
用JS得到字符串中出现次数最多的字母
MySQL进阶SELECT语法篇
jQuery 学习第六课 实现一个Ajax的TreeView
利用ASP.NET MVC源代码调试你的应用程序
CSS样式按整洁易懂的结构组织
Linux的进程使用内存分析
Sql Server 和 Access 操作数据库结构Sql语句
系统存储过程sp_MSforeachtable和sp_MSforeachdb使用说明
网页教程:页面返回顶部锚点按钮的设计
SSH到FreeBSD支持中文显示和输入
快速导航

Copyright © 2016 phpStudy |