鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 数据库 > Access > >

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

来源:互联网 作者:佚名 时间:2015-03-13 02:16
ACCESS可在菜单上选择[压缩]来压缩当前正打开的数据库,如是我们就可以通过程序临时添加一个工具条按钮,然后使用SendKeys来模拟键盘操作,实现压缩当前数据库,压缩后它会重新打开。函数如下: FunctionCompact() '添加一个工具条 WithCommandBars.Add(,mso

 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

网友评论
<