Office中国论坛/Access中国论坛

标题: 能否判定窗体是否是子窗体？ [打印本页]

作者: zx994398 时间: 2006-7-10 23:00
标题: 能否判定窗体是否是子窗体？
能否判定某一个窗体是否是子窗体？

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

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

能做到吗？

作者: andymark 时间: 2006-7-11 00:36
Dim ctl As Control
For Each ctl In Me.Controls

   If ctl.ControlType = acSubform Then

      MsgBox "本窗本含有子窗体"

   End If
Next

作者: Trynew 时间: 2006-7-11 17:36
引用一下Me.Parent,如果不出错,则是子窗体.

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

作者: zx994398 时间: 2006-7-25 23:41
有一段时间没上了，谢谢各位的帮助！好好研究研究！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)