下面这个让Access文件大于指定大小时自动压缩教程由图老师小编精心推荐选出，过程简单易学超容易上手，喜欢就要赶紧get起来哦！
【 tulaoshi.com - 编程语言 】
适用 Access2000及以后版本
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）翻译：tmtony(Access/Office中国)
首先在公共模块添加如下函数：
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) ‘转换文件大小为MB
If s 20 Then ‘修改此处的20M为你自己需要的值
Application.SetOption ("Auto Compact"), 1 ‘压缩程序
Else
Application.SetOption ("Auto Compact"), 0 ‘不压缩程序
End If
End Function
在任何退出的程序前调用这个函数，例如在Docmd.Quit前调用：
AutoCompactCurrentProject
来源:https://www.tulaoshi.com/n/20160219/1620056.html
看过《让Access文件大于指定大小时自动压缩》的人还看了以下文章 更多>>
