Access开发平台--设置了默认导航菜单不起作用的解决办法

时　间:2016-03-09 08:25:47
作　者:宏鹏   ID：21115  城市：上海
摘　要:快速开发平台设置了默认导航菜单不起作用的解决办法。
正　文:

Access快速开发平台，在“我的设置”中设置了“默认导航菜单”有时候不起作用，

解决办法：

参照截图，把下面的函数替换到basRDPRef模块中

Public Function RunDefaultRDPNavMenu(Optional MenuID As String)
    Dim colMenuIDs       As New Collection
    Dim strUserName      As String
    Dim strModuleName    As String
    Dim strCommand       As String
    Dim varItem          As Variant
    Dim blnHasPermission As Boolean

    strUserName = GetParameter("Current User Name", dbText, "")

    If Trim$(MenuID) <> "" Then colMenuIDs.Add MenuID
    colMenuIDs.Add GetParameter("User Default Menu-" & strUserName, dbText, "")
'    colMenuIDs.Add Nz(DLookup("ID", "SysLocalNavigationMenus", "[Default]<>0"))

    For Each varItem In colMenuIDs
        If Len(varItem) > 0 Then
            strModuleName = Nz(DLookup("ModuleName", "SysLocalModules", "MenuID='" & varItem & "'"))
            blnHasPermission = True
            If Len(strModuleName) > 0 Then
                blnHasPermission = HasPermission(strModuleName)
            End If
            If blnHasPermission Then
                strCommand = Nz(DLookup("Command", "SysLocalNavigationMenus", "ID='" & varItem & "'"))
                If Len(strCommand) > 0 Then
                    If IsLoaded("SysFrmMain") Then
                        Call RunMenuCommand(strCommand, Forms!SysFrmMain!sfrChild)
                        RunDefaultRDPNavMenu = varItem
                    Else
                        Call RunMenuCommand(strCommand)
                        RunDefaultRDPNavMenu = varItem
                    End If
                    Exit For
                End If
            End If
        End If
    Next
    Set colMenuIDs = Nothing
End Function

正确位置如下图：