Office中国论坛/Access中国论坛

标题: 在ACCESS中用代码压缩数据库的实现 [打印本页]

作者: chinj 时间: 2007-5-30 17:51
标题: 在ACCESS中用代码压缩数据库的实现
在ACCESS中用代码压缩数据库的实现。

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

作者: bpchan 时间: 2008-11-24 15:15
标题: 学习！！！
学习！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)