求2007单击压缩修复数据库的代码

殷小宝　发表于：2013-02-19 12:52:37 　

2003中压缩当前数据库的代码如下:

Public 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

但它不能应用于2007,所以向老师求助用于2007的代码.谢谢.

麥田发表于：2013-02-19 14:27:41

2007没有此功能只能用自带的压缩修复数据库按钮

邹国梁发表于：2013-02-20 12:40:03

2010版解决方法是：“文件”－－＞“选项”－－＞“当前数据库”－－＞“关闭时压缩”就可以了，不知道2007有没有这个功能

殷小宝发表于：2013-02-20 15:58:36

2007有2楼所说的功能。

总记录：3篇页次：1/1 9 1 :

Access交流中心