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
正确位置如下图: