UMV平台实现压缩当前数据库函数

时　间:2016-05-27 22:08:30
作　者:王三平   ID：17  城市：秦皇岛
摘　要:UMV平台实现压缩当前数据库功能，主要是有一个判断语句：如果显示菜单栏，直接调用菜单工具的压缩功能，如果隐藏，即生成一个临时菜单调用压缩功能。
注意的是，判断语句是基于UMV平台的函数功能实现的呀，如果你想移到其它软件中用，记得修改此语句呀。
正　文:

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


Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店