Close, Save and Compact

[Neil]

I have the following code on a button which saves and closes the DB:-

Private Sub QuitApplication_Click()
On Error GoTo Err_QuitApplication_Click

If MsgBox("Are you sure you want to exit PROMAS?", vbYesNo + vbQuestion,
"Quit Application?") = vbYes Then
DoCmd.Quit acQuitSaveAll

End If

Exit_QuitApplication_Click:
Exit Sub
Err_QuitApplication_Click:
MsgBox Err.Description
Resume Exit_QuitApplication_Click
End Sub



Now, in addition to this, I'd like for the database to actually be compacted
when closed. Could anybody please edit my code so that the DB also compacts?

Thanks in advance

 

[Van T. Dinh]

If you use A2K or later, simply set the Compact-On-Close option to True.

 

[Neil]

Many thanks!

Another problem solved!

Not many to do now

in message
news:[email protected]...

 

[Guest]

How would you do this with Access 97?

If you use A2K or later, simply set the Compact-On-Close option to True.

 

[Van T. Dinh]

Compact-On-Close is not available in A97. It was introduce in A2K.

For an alternative, see The Access Web article:

http://www.mvps.org/access/modules/mdl0030.htm

 

[Douglas J. Steele]

Or MichKa's TSI SOON (Shut One, Open New) database add-in at
http://www.trigeminal.com/utility.asp?ItemID=8#8