如何压缩正在使用的数据库

zhengjialon

站长的函数

Function Compact()

　 With CommandBars.Add(, msoBarFloating, , True)

　　 Const CompactId As Long = 2071



　　 .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id

　　 DoEvents

　　 .Visible = True

　　 .Controls(1).SetFocus

　　 SendKeys "{ENTER}" '模拟击键压缩

　 End With

End Function





李啸林 修改，可以适合97与XP，我没有安装过ACCESS 2000，希望你们能给我补上。



Dim ref As Reference

Dim i As Byte



Set ref = References!Access



'我不用Application.Vertion是由于，这个属性在Access 97中不存在。

Select Case ref.Major

　Case 8: i = 6 'Access 97

　Case 9: i = 7 'Access XP

Case Else

　MsgBox "未知版本,无法使用此功能"

　Exit Sub

End Select



　With CommandBars.Add(, msoBarFloating, , True)

　　

　　 .Controls.Add msoControlButton, CommandBars("Tools").Controls(i).CommandBar.Controls(2).Id

　　 DoEvents

　　 .Visible = True

　　 .Controls(1).SetFocus

　　 SendKeys "{ENTER}" '模拟击键压缩

　 End With