Compacting DB Button...on Main Menu

[smedvid]

Here is how I previously provided a compact current DB butotn on a main menu form for Access-2000... Under Access-2002, it does the compact but does not appear to re-open the DB after the compact... any clues or suggested alternate approaches? tia,

Private Sub cmd_CompactDB_Click()
On Error GoTo Err_cmd_CompactDB_Click

'Display Menu Here..
MenuUtilities.UnHideAllMenuItems
Utilities.DelayTime 2
CompactDB

Exit_cmd_CompactDB_Click:
Exit Sub
Err_cmd_CompactDB_Click:
MsgBox Err.DESCRIPTION
Resume Exit_cmd_CompactDB_Click

End Sub

Public Function CompactDB()
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
End Function


Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents
Please Show Your Support...