在ACCESS中主动紧缩以后数据库

在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