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

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

　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

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

……

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