VBA代碼調(diào)用Access數(shù)據(jù)庫系統(tǒng)壓縮和修復(fù)數(shù)據(jù)庫功能

如何用VBA代碼調(diào)用Access系統(tǒng)壓縮和修復(fù)數(shù)據(jù)庫這一功能.
希望通過標(biāo)簽的單擊事件調(diào)用系統(tǒng)菜單中的壓縮和修復(fù)數(shù)據(jù)庫這一功能.

上傳個文件：qPdhFMoU.rar

1.  ququ 最簡單的辦法  新增一個菜單欄，把這個命令拖到菜單內(nèi)即可

2. kunlun   在Access窗體上創(chuàng)建 建一個標(biāo)簽，在標(biāo)簽的單擊事件中添加如下事件

Private Sub Text1_Click() 
    docmd.RunCommand acCmdCompactDatabase
    docmd.RunCommand acCmdRepairDatabase
end sub

3. Tmtony站長做的壓縮和修復(fù)數(shù)據(jù)庫函數(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  

4. 李嘯林 修改后的函數(shù)

    可以適合97與XP，我沒有安裝過ACCESS 2000，希望你們能給我補(bǔ)上。  

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  

5. zhengjialon  把這個函數(shù)拷貝下窗體的模塊里，然后在標(biāo)簽的單擊事件里寫：Compact

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  

6. guoya ngw123:連接表壓縮方法建立一個函數(shù)，然后在程序中調(diào)用

Function zipDB() 
  
    If Right(CurrentProject.Path, 1) <> "\" Then '判斷當(dāng)前路徑 
        Y = CurrentProject.Path & "\" 
    Else 
        Y = CurrentProject.Path 
  End If 
    x = Y & "data_be.mdb"     'data_be.mdb為后臺數(shù)據(jù)庫名稱 
          '取得路徑 
     If Dir(x) = "" Then 
     MsgBox "數(shù)據(jù)未找到" 
     Exit Function 
     ElseIf Dir(x) <> "" Then '確定文件存在 
       DBEngine.CompactDatabase x, Y & "temp.mdb", ";pwd=123", , ";pwd=123" '壓縮為暫存文件 
      ' 假設(shè)后臺數(shù)據(jù)庫密碼為"123"      Kill x '刪除原文件 
      FileCopy Y & "temp.mdb", x  '還原 
        Kill Y & "temp.mdb"   '刪除暫存文件 
     End If 
  MsgBox "完成修補(bǔ)及壓縮" 
End Function

ywg
謝謝huanghai問題解決了,總結(jié)一下和各位新手共同學(xué)習(xí):

1、用zhengjialon版主提供的Tmtony站長和李嘯林的方法,并在VBE的窗口中菜單欄，工具/引用里請首選引用Microsoft Office X.0 Object Llbrary.這種方法應(yīng)該適用于沒有拆分的數(shù)據(jù)庫(拆分后沒試過)。2、用guoya的方法適用于拆分過的數(shù)據(jù)庫。 

ywg
版主還是要麻煩你.系統(tǒng)提示錯誤運(yùn)行時錯誤'-2147467259(80004005)':方法'ADD'作用于對象'commandBarControls'時失敗

ngw123
連接表如何壓縮呀．．怎么沒人回答．．．是不是新建一個access實(shí)冽，再打開連接表，再壓縮．．我去試試．．．

kunlun
這么復(fù)雜，有沒有簡單一點(diǎn)呀。我頭都大了，看不懂了

ywg
還有那位能再次拉我一把呀!

zhengjialon
回樓主：在VBE的窗口中菜單欄，工具/引用里請首選引用Microsoft Office X.0 Object Llbrary

huanghai
找到要操作菜單的位置，然后用代碼執(zhí)行，具體如：CommandBars("menu bar").Controls("工具(&T)").Controls("數(shù)據(jù)庫實(shí)用工具(&D)").Controls("壓縮和修復(fù)數(shù)據(jù)庫(&C)...").Execute

ywg在 
huanghai按你所說的方法,系統(tǒng)提示出錯,不能壓縮打開的數(shù)據(jù)庫.

ywg
guoya你所提供的方法，我經(jīng)試驗(yàn)發(fā)現(xiàn)如果是在沒有用戶登陸及密碼的數(shù)據(jù)庫中可以正常使用，但如果是在有用戶登陸及密碼的數(shù)據(jù)庫中在壓縮后會出現(xiàn)錯誤提示運(yùn)行時錯誤‘3031’密碼無效guoya及各位高手能否幫忙解決這個問題。

guoya
后臺數(shù)據(jù)是不應(yīng)該有安全機(jī)制的呀

ywg
沒有用系統(tǒng)的安全機(jī)制,但有用VBA代碼的用戶登陸密碼,拆分后的后臺數(shù)據(jù)庫的密碼為123而前臺窗體打開時會出現(xiàn)密碼無效的錯誤,應(yīng)如何解決呢?去掉代碼中的pwd=123", , ";pwd=123"可以嗎?DBEngine.CompactDatabase x, Y & "temp.mdb", ";pwd=123", , ";pwd=123" '壓縮為暫存文件
      ' 假設(shè)后臺數(shù)據(jù)庫密碼為"123"

(設(shè)置_安全_修復(fù)-相關(guān)文章技巧鏈接)：
ACCESS數(shù)據(jù)庫RunCommand方法參數(shù)列表說明說明