首页 相关文章 让Access文件大于指定大小时自动压缩

让Access文件大于指定大小时自动压缩

适用 Access2000及以后版本

翻译: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 ...[ 查看全文 ]

2016-02-19 标签:

让Access文件大于指定大小时自动压缩的相关文章

手机页面
收藏网站 回到头部