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
每个人都需要一台速度更快、更稳定的 PC。随着时间的推移,垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是,许多工具可以让 Windows 保持平稳运行。
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号