🚀 go-pugleaf

On Wed, 09 Jul 1997 15:08:27 -0700, Ron Myer <myeron@ix.netcom.com>
wrote:

>TIMOTHY W. NEWTON wrote:
>> 
>> Does anyone know how to create a command button on a form to compact the
>> database without have to leave it and use Accesses toolbar function.
>
>
>You can not compact on open database!
>You could create a Windows Macro to Compact the database either on 
>opening or closing!
>

Right.  From Access you can create a second application with a nice
front end that can do it to your main app.  Include a command button
with this code:  (assume your main app is DATA.MDB)

    ' First, run Repair on your app
    DBEngine.RepairDatabase "c:\data.mdb"
    
    ' get rid of a temp file left behind from last time you ran _
this process
    MyFile = Dir("c:\temp.mdb")
    If MyFile = "temp.mdb" Then
        Kill "c:\temp.mdb"
    End If

    DBEngine.CompactDatabase "c:\data.mdb",  "c:\temp.mdb", ""

    ' it's always nice to backup your app before it's replaced    
    MyFile = Dir("c:\data.bak")
    If MyFile = "data.bak" Then
        Kill "c:\data.BAK"
    End If
    Name "c:\data.mdb" As "c:\data.BAK"
    
    ' this renames the temp, compacted file as your main app
    Name "c:\temp.mdb" As "c:\data.mdb"


You might even reorder this somewhat and do the backup first

George Woody
*****************************************
Check out George Woody and the nutty antics 
of his All Star Team of the Future at
http://www.execulink.com/~catcon/GeorgeWoody.htm

(c) 1997 George Woody Hobbies 'n Stuff
GWsales@execulink.com