Is there a way to compact a database from another database but keep the original name?
I have found code to compact but you have to create a new database.

Thanks,
Scott

__________________
ScottP

Hi Scott,

You can do it with a little file juggling:

Sub Test()

   ' Running this line of code leaves you with your
   ' original database and a compacted temporary version
   ' of your original database on drive C:
   DBEngine.CompactDatabase "C:\Test.mdb", _
      "C:\TestTemp.mdb"

   ' Delete old backup file if there is one.
   If Dir("C:\Test.bak") <> vbNullString Then
      Kill "C:\Test.bak"
   End If

   ' Now change the extension of your original database to
   ' save as a backup file, and rename the compacted temporary
   ' version of your original database to the name of your original
   ' database.
   Name "C:\Test.mdb" As "C:\Test.bak"
   Name "C:\TestTemp.mdb" As "C:\Test.mdb"

End Sub

HTH,

Bob

Thanks Bob, it was the renaming thing I could not find anywhere. Works fine.

Thanks again,
Scott

I was under the impression that only closed databases could be compacted. If I put that code word-for-word into a module and run it, it will not work. Obviously I'm missing something. Do I need to close the current database file (Test.mdb here) and open another one with the startup module containing this code and then close it automatically, only to open test.mdb back up again? I hope there is an easier way.

Jeff, my question was specifically for compacting from another database so I believe this only works with the database to be compacted closed. I may be missing something but if you have the database open why don't you just compact it manually?

ScottP

I got it to work. Thanks.