单一窗体作为子窗体时,原代码不能正确运行

尤安特　发表于：2018-09-10 09:24:29 　

首先, 我制作了一个窗体, 里面使用了TreeView控件, 参考了右键菜单添加项目的实例, 其对应代码有一段:

With Forms(treeFrmName)!TreeView0
            strCategoryID = Right(.SelectedItem.Key, Len(.SelectedItem.Key) - 1)
            If Len(strCategoryID) = persectionlong Then
                MaxCategoryID = DMax("[CategoryID]", "表_产品_BOM树分类", "I_Level = 1")
            Else

……

调试正常

但是把这个窗体作为子窗体放入导航窗体运行时，会提示找不到Forms(treeFrmName）这个窗体。

问：怎么做可以让这个窗体的代码可以在其窗体视图和子窗体状态，都能正常运行

Top

Natsume Takashi 发表于：2018-09-10 11:26:38

判断是是否作为子窗体打开如果是的话要forms！窗体名！子窗体名

Top

尤安特发表于：2018-09-11 10:46:47

请给下判定是否作为子窗打开的代码, 提问前上网搜了, 没找到作为子窗打开的代码, 只有作为窗体打开的代码, 谢谢

Top

Natsume Takashi 发表于：2018-09-11 15:51:28

Public Function IsChildForm(ChildtForm As Form) As Boolean
On Error Resume Next
Dim strName As String: strName = ChildForm.Parent.Name
IsChildForm = (Len(strName) > 0)

End Function

用法 IsChildForm(Form_窗体2) 窗体模块名

Top

尤安特发表于：2018-09-17 16:56:07

感谢Natsume Takashi 的回复, 用了类似的方法已解决问题, 同时给大家一个参数Screen.ActiveForm.Name可以帮助获取当前窗体的名字, 帮助公用treeview窗体

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

单一窗体作为子窗体时,原代码不能正确运行