首页按钮激活窗体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值在导航菜单编辑器中可以找到，如下图所示：