my CompactDB vba no longer works in Access2007

[Bruce]

Hi,

I have been using the macro below sucessfully in Access 2003. I have just
upgraded to MS2007 and my vba no longer works.

At this stage I do not plan to upgrade the DB from 2003 to 2007. Is there a
different way to do this so it works in both 2003 and 2007.

Bruce



Public Sub CompactDB()

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

End Sub

 

[Alex Dybenko]

Hi,
look at this tread:
http://www.utteraccess.com/forums/s...er=1778001&page=&view=&sb=5&o=&fpart=all&vc=1

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[Gigamite]

Is there a
different way to do this so it works in both 2003 and 2007.

This works in A2K and later unless you've messed with built-in menus in
A2K7. Don't know for sure if it's going to work in A2K10 until that
gets released. I'm guessing it will.

Public Sub CompactDB()
If (SysCmd(acSysCmdAccessVer) >= "12.0") Then
SendKeys "%FMC", False
Else
CommandBars("Menu Bar").Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and Repair database..."). _
accDoDefaultAction
End If
End Sub