Office中国论坛/Access中国论坛

标题: 如何压缩正在使用的数据库 [打印本页]

作者: test2006 时间: 2004-6-10 20:54
标题: 如何压缩正在使用的数据库
如何压缩正在使用的数据库

老是提示正在使用

作者: esmile 时间: 2004-6-11 19:10
提示: 作者被禁止或删除内容自动屏蔽

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

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

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

作者: tanlangkun 时间: 2004-6-11 19:37
对不起，搞错了。[em04]

作者: zhengjialon 时间: 2004-6-11 20:26
站长的函数

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 时间: 2006-1-14 20:46
试用了下，发现出错了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)