能否判定窗体是否是子窗体？

zx994398

能否判定某一个窗体是否是子窗体？

如果是子窗体形式的，那么执行一条语句

如果不是子窗体形式的，执行其他语句

能做到吗？

andymark

Dim ctl As Control
    For Each ctl In Me.Controls
   
      If ctl.ControlType = acSubform Then
      
          MsgBox "本窗本含有子窗体"
         
       End If
    Next

Trynew

引用一下Me.Parent,如果不出错,则是子窗体.

Function IsSubform(ByVal Frm As Form) As Integer
    On Error Resume Next
    IsSubform = (Len(Frm.Parent.Name) > 0)
End Function

zx994398

有一段时间没上了，谢谢各位的帮助！好好研究研究！