Applicable ACCESS2000 and later versions
The following functions are added first in the public module:
The following are the referenced contents:
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) ' Convert file size to MB
If s > Then ' Modify the 20M here for your own desired value
Application.SetOption ("Auto Compact"), 1 ' compression program
Else
Application.SetOption ("Auto compact"), 0 ' uncompressed program
End If
End Function |
Call this function before any exiting program, for example, before Docmd.quit: Autocompactcurrentproject
