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

2017-12-15 17:14:00
黄善超
原创
545

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

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


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


详细代码:

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

运行效果:

    分享