適用 access2000及以后版本

翻譯：tmtony(access/Office中國(guó))

首先在公共模塊添加如下函數(shù)：

Public Function AutoCompactCurrentProject()
    Dim fs, f, s, filespec
    Dim strProjectPath As String, strProjectName As String
    strProjectPath = Application.CurrentProject.Path
    strProjectName = Application.CurrentProject.Name
    filespec = strProjectPath & "\" & strProjectName
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = CLng(f.Size / 1000000)  ‘轉(zhuǎn)換文件大小為MB
    If s > 20 Then                       ‘修改此處的20M為你自己需要的值
        Application.SetOption ("Auto Compact"), 1  ‘壓縮程序
    Else
        Application.SetOption ("Auto Compact"), 0   ‘不壓縮程序
    End If
End Function

在任何退出的程序前調(diào)用這個(gè)函數(shù)，例如在Docmd.Quit前調(diào)用：
AutoCompactCurrentProject

http://m.mzhfr.cn

(責(zé)任編輯：admin)

• ·兩個(gè)未公開(kāi)的ACCESS方法的使用技巧
• ·如何拆分復(fù)制的Access 97數(shù)據(jù)庫(kù)
• ·兩個(gè)未公開(kāi)的ACCESS方法的使用技巧
• ·用Access 2000有效地組織班級(jí)管理
• ·數(shù)據(jù)在Access與Office組件間自由流動(dòng)
• ·Access＂智庫(kù)＂培訓(xùn)--高效設(shè)計(jì) 敏捷開(kāi)
• ·Access查詢(xún)的基本知識(shí)(二)(Office免費(fèi)
• ·Access設(shè)置宏的安全等級(jí)
• ·Access查詢(xún)的基本知識(shí)(Office免費(fèi)公開(kāi)
• ·四種用代碼打開(kāi)外部Access(MDB)的方法
• ·access操作或事件已被禁用模式阻止的解
• ·簡(jiǎn)述vba字符串，函數(shù)，表達(dá)式等基礎(chǔ)術(shù)
• ·Access VBA 開(kāi)發(fā)公開(kāi)課講座
• ·Access設(shè)置信任位置
• ·Access應(yīng)用程序應(yīng)注意的幾個(gè)問(wèn)題
• ·簡(jiǎn)析能判斷Access版本的窗體