当Access文件大于指定的大小时就自动压缩
public Function AutoCompactCurrentProject()
Dim fs,f,s,filespec
Dim strProjectPath As String,strProjectName As String
strProjectPath = Application。current project . Path
str projectname = Application。current project . Name
filespec = strProjectPath & " \ " & strProjectName
Set fs = CreateObject(" Scripting。file system object ")
Set f = fs。GetFile(filespec)
s = CLng(f . Size/1000000)将文件大小转换为MB
如果s > 20,则'在此将20M修改为您自己的值
application . setoption(" auto compact "),1 '压缩程序
else
application . setoption(" auto compact "),0 '解压缩程序
end if
end函数在任何退出程序之前调用此函数,例如退出:[/br
0条评论