Access快速开发基础教程
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

首页按钮激活窗体SysFrmMain_HomePage中DoMenuCmd函数

时 间:2021-08-03 16:18:10
作 者:张志   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:Access快速开发平台--主页导航页实现单击图标打开相应的窗体。
正 文:

      在Access快速开发平台2.2.0版本后,当我们要实现如下图所示,单击某一个导航按钮图片就能打开相应的窗体时,用以前的版本中教程中的代码会达不到目标,这时要分三步来解决:

第一步: DoMenuCmd函数改为下面的代码

Function DoMenuCmd(MenuText As String)
    On Error GoTo ErrorHandler
    Dim strMenuID As String
    
    strMenuID = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
    If IsChildForm(Me) Then
        Call Me.Parent.DoTreeMenuItemAction(Me.Parent.mclsNavTree.Nodes("K" & strMenuID))
    Else
        RunMenuCommand "" & DLookup("Command", "SysLocalNavigationMenus", "ID='" & strMenuID & "'")
    End If
    
ExitHere:
    Exit Function
    
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Function


第二步:把private 改为 public
     在SysFrmMain窗体中,把:Private Sub DoTreeMenuItemAction
     改成
     Public Sub DoTreeMenuItemAction
如下图:

点击图片查看大图


第三步:更改Key值

点击图片查看大图


key值在导航菜单编辑器中可以找到,如下图所示:

点击图片查看大图



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

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助