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

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

上傳個(gè)文件：qPdhFMoU.rar

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

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

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

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

5. zhengjialon  把這個(gè)函數(shù)拷貝下窗體的模塊里，然后在標(biāo)簽的單擊事件里寫(xiě)：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:連接表壓縮方法建立一個(gè)函數(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為后臺(tái)數(shù)據(jù)庫(kù)名稱 
          '取得路徑 
     If Dir(x) = "" Then 
     MsgBox "數(shù)據(jù)未找到" 
     Exit Function 
     ElseIf Dir(x) <> "" Then '確定文件存在 
       DBEngine.CompactDatabase x, Y & "temp.mdb", ";pwd=123", , ";pwd=123" '壓縮為暫存文件 
      ' 假設(shè)后臺(tái)數(shù)據(jù)庫(kù)密碼為"123"      Kill x '刪除原文件 
      FileCopy Y & "temp.mdb", x  '還原 
        Kill Y & "temp.mdb"   '刪除暫存文件 
     End If 
  MsgBox "完成修補(bǔ)及壓縮" 
End Function

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

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

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

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

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

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

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

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

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

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

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

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

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