compact code in Access 2007

[JJJT]

There is some code in Access 2007 Compact ..???​

 

[boblarson]

There are a few ways to do it. Here's one:
http://www.btabdevelopment.com/main/CodeSnippets/CompactDatabase/tabid/122/Default.aspx

 

[JJJT]

if you mean this​

Public Sub CompactData()
'---------------------------------------------------------------------------------------
' Procedure : CompactData
' DateTime : 8/1/2006 14:57
' Author : Bob Larson
' Purpose : compacts the database
'---------------------------------------------------------------------------------------
'
' you must make sure all objects are closed before trying to compact
Dim frm As Form
Dim rpt As Report
For Each frm In Forms
DoCmd.Close acForm, frm.Name, acSaveNo
Next frm
For Each rpt in Reports
DoCmd.Close acReport, rpt.Name, acSaveNo
Next rpt
SendKeys "%(FMC)", False
End Sub

not working​

 

[boblarson]

if you mean this​

Public Sub CompactData()
'---------------------------------------------------------------------------------------
' Procedure : CompactData
' DateTime : 8/1/2006 14:57
' Author : Bob Larson
' Purpose : compacts the database
'---------------------------------------------------------------------------------------
'
' you must make sure all objects are closed before trying to compact
Dim frm As Form
Dim rpt As Report
For Each frm In Forms
DoCmd.Close acForm, frm.Name, acSaveNo
Next frm
For Each rpt in Reports
DoCmd.Close acReport, rpt.Name, acSaveNo
Next rpt
SendKeys "%(FMC)", False
End Sub

not working​

When you say - "not working" what does "not working" mean? It generates an error, it goes through the motions but does nothing, etc.

 

[JJJT]

Check to see if I'm doing something wrong​

http://sites.google.com/site/jjjt1973/Home/Basededatos1.rar?attredirects=0

 

[boblarson]

Check to see if I'm doing something wrong​

http://sites.google.com/site/jjjt1973/Home/Basededatos1.rar?attredirects=0

Unfortunately I can't do that while at work (Not only is that link blocked by work, but I don't have 2007 at work either).

Here's another method you can try:

Dim strDbNameOld As String
Dim strDBNameNew As String

strDbNameOld = "YourPathAndNameToTheFileYouWantToCompact"

        DBEngine.CompactDatabase strDBNameOld, strDBNameNew
        Kill strDBNameOld
        Name strDBNameNew As strDBNameOld