access开发平台--窗体按钮按下不弹出的Bug解决方法\按钮凹陷不起来了

时　间:2011-10-22 09:16:51
作　者:红尘如烟   ID：10768  城市：上海
摘　要:Access开发平台--窗体按钮按下不弹出的Bug解决方法
正　文:

    Bug描述：Access开发平台里面主界面中按钮如果打开一个弹出窗体，则主界面中菜单按钮处于凹陷状态不能恢复，并且会显示出隐藏和关闭两个按钮。如图:

修正方案：

将下面的函数添加到模块中即可。

Function MouseOnClick(CmdNumber As Integer)
    MouseOnClick = [Microsoft Access Help].MouseOnClick(CmdNumber)
     With Forms!usysfrmMain
        If !frmChild.SourceObject = "usysfrmButton" Then

            !frmChild.Form("lab" & CmdNumber).SpecialEffect = 0

            !cmd9.Visible = False

            !cmd10.Visible = False

        End If

    End With

End Function