软件开发过程中编译提示：

编译错误：子过程或函数未定义

修改方法：

Public Function RDPCloseForm(LoadedForm As Form) As Boolean
    On Error Resume Next
    DoCmd.Close acForm, LoadedForm.Name, acSaveNo
    LoadedForm.Parent!lblNodePath.Caption = ""
    LoadedForm.Parent!sfrChild.Top = 0
    LoadedForm.Parent!sfrChild.Height = LoadedForm.Parent!sfrChild.Height + LoadedForm.Parent!lblNodePath.Height
    LoadedForm.Parent!sfrChild.SourceObject = "SysFrmMain_HomePage"
End Function