UMV平台实现压缩当前数据库功能，主要是有一个判断语句：如果显示菜单栏，直接调用菜单工具的压缩功能，如果隐藏，即生成一个临时菜单调用压缩功能。

注意的是，判断语句是基于UMV平台的函数功能实现的呀，如果你想移到其它软件中用，记得修改此语句呀。

Public Function ComPactCurrentDB()

    If getparameter("Hide Menu Bar/Ribbon On Startup", adBoolean, False) Then
        '添加一个工具条
        With CommandBars.Add(, msoBarFloating, , True)
            ' 在工具条上添加一个按钮，这个按钮是从系统菜单的[工具]中[压缩]产生的
            .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).ID
            .Visible = True
            ' 将焦点移到该按钮上
            .Controls(1).SetFocus
            ' 模拟击键
            SendKeys "{ENTER}"
        End With
    Else
        CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
    End If
End Function