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
正确位置如下图:
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)