ACCESS开发平台--制作主页时报编译错误：错误的参数号或无效的属性赋值。的解决方法

时　间:2015-05-22 14:44:42
作　者:杜超   ID：16058  城市：江阴
摘　要:用新平台，按教程制作主页时，会报如下错误
正　文:

解决方法：

2.0.x版本开始，支持将流程图窗体直接嵌入主界面窗体作为一部分，而不需要另外通过导航菜单加载，具体做法是，用做好的流程图窗体替换掉平台的 SysFrmMain_HomePage 窗体即可。

(通俗的讲就是把做好的【frm主页】替换成【SysFrmMain_HomePage】)

并把流程图窗体的DoMenuCmd函数改成下面这样：

Function DoMenuCmd(MenuText As String)
    Dim MenuID As String
    RunMenuCommand Nz(DLookup("Command", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText))), Nothing
    MenuID = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
    With Forms!SysFrmMain
        RunDefaultRDPNavMenu MenuID
        !lblNodePath.Caption = .mclsNavTree.GetNodeFullPath(MenuID, " > ")
        !lblNodePath.Visible = True
        If !sfrChild.Top <> !lblNodePath.Top + !lblNodePath.Height Then
            !sfrChild.Height = !sfrChild.Height - !lblNodePath.Height
            !sfrChild.Top = !lblNodePath.Top + !lblNodePath.Height
        End If
    End With
End Function