如何壓縮正在使用的數(shù)據(jù)庫(kù)

test2006

如何壓縮正在使用的數(shù)據(jù)庫(kù)

老是提示正在使用

esmile

必須先斷開(kāi)或關(guān)閉使有的數(shù)據(jù)庫(kù)方可進(jìn)行

tanlangkun

用批處理命令，很好用的，而且在運(yùn)行時(shí)也可保存。如我要將E:\mydocu~1\access\公司管理系統(tǒng)\辦公室目錄下的所有文件備份到E:\文件備份\公司管理系統(tǒng)\辦公室\ 目錄下。

xcopy E:\mydocu~1\access\公司管理系統(tǒng)\辦公室\* E:\文件備份\公司管理系統(tǒng)\辦公室\  /s /y /d

[此貼子已經(jīng)被作者于2004-6-11 11:34:55編輯過(guò)]

tanlangkun

對(duì)不起，搞錯(cuò)了。[em04]

zhengjialon

站長(zhǎng)的函數(shù)

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，我沒(méi)有安裝過(guò)ACCESS 2000，希望你們能給我補(bǔ)上。



Dim ref As Reference

Dim i As Byte



Set ref = References!Access



'我不用Application.Vertion是由于，這個(gè)屬性在Access 97中不存在。

Select Case ref.Major

　Case 8: i = 6 'Access 97

　Case 9: i = 7 'Access XP

Case Else

　MsgBox "未知版本,無(wú)法使用此功能"

　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

試用了下，發(fā)現(xiàn)出錯(cuò)了