Access遍历窗体代码报错

夏天的风shh4695

各位老师，为何以下代码运行到红色处就报错呢？提示找不到在代码中引用的窗体。代码写在Access的模块里面。
Sub 遍历窗体()
'Dim fr As AccessObject
For Each fr In Application.CurrentProject.AllForms
    For Each ctrl In Forms(fr.Name).Controls
        If TypeOf ctrl Is SubForm Then MsgBox "子窗体名称为：" & ctrl.Name  
    Next ctrl
Next fr
End Sub

ly

forms集合只包含打开的窗体。

夏天的风shh4695

ly 发表于 2022-10-26 08:51
forms集合只包含打开的窗体。

那如何引用未被打开的窗体呢？请老师赐教。

夏天的风shh4695

自己顶一下。。。。。。

ly

夏天的风shh4695 发表于 2022-10-26 11:54
那如何引用未被打开的窗体呢？请老师赐教。

不打开怎么能引用？
打开引用的窗体为设计和隐藏状态，引用之后再关闭即可。