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

test2006

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

老是提示正在使用

esmile

必须先断开或关闭使有的数据库方可进行

tanlangkun

用批处理命令，很好用的，而且在运行时也可保存。如我要将E:\mydocu~1\access\公司管理系统\办公室目录下的所有文件备份到E:\文件备份\公司管理系统\办公室\ 目录下。

xcopy E:\mydocu~1\access\公司管理系统\办公室\* E:\文件备份\公司管理系统\办公室\  /s /y /d

[此贴子已经被作者于2004-6-11 11:34:55编辑过]

tanlangkun

对不起，搞错了。[em04]

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

secowu

试用了下，发现出错了