Access判断窗体是否存在子窗体

有时我们需要判断窗体是否存在子窗体，如果存在，即显示子窗体数据；如果不存在，显示其他的。

判断子窗体是否存在，只需要遍历窗体的所有控件，判断有否有子窗体控件即可。

控件类型固有常量表如下：

详细代码：

Private Sub Command0_Click()
    Dim ctrl   As Control
    
    For Each ctrl In Forms("窗体2").Controls
        If ctrl.ControlType = acSubform Then
            
            MsgBox "窗体2" & "包含子窗体"
            Exit For
        End If
    Next
End Sub

运行效果：