快速开发平台--窗体关闭自动打开主页窗体

时　间:2019-12-05 22:19:00
作　者:易勋   ID：35404  城市：上海
摘　要:如果一个系统，设计了主页窗体，怎么在窗体关闭时自动打开主页？
正　文:

      Access快速开发平台中关闭按钮是调用的 RDPCloseForm函数，想要实现关闭后自动打开，先打开basRDPRef模块，找到RDPCloseForm函数

原函数：

Public Function RDPCloseForm(LoadedForm As Form) As Boolean
    RDPCloseForm = UMVsoftRDPLib.RDPCloseForm(LoadedForm)
End Function

修改后：

Public Function RDPCloseForm(LoadedForm As Form) As Boolean
    RDPCloseForm = UMVsoftRDPLib.RDPCloseForm(LoadedForm)
    RunMenuCommand "OpenForm|SysFrmMain_Home|||||-1|"
End Function