下面图老师小编跟大家分享一个简单易学的当Access文件大于指定的大小时就自动压缩教程，get新技能是需要行动的，喜欢的朋友赶紧收藏起来学习下吧！
【 tulaoshi.com - 编程语言 】
您正在看的access教程是:当Access文件大于指定的大小时就自动压缩。
适用 Access2000及以后版本
翻译：tmtony(Access/Office中国)
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）首先在公共模块添加如下函数：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）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/1624140.html
看过《当Access文件大于指定的大小时就自动压缩》的人还看了以下文章 更多>>
