如何找出哪个报表或表单控件属于

问题

今天，我遇到了一个问题，试图发现给定控件属于哪个报告/表单。 我需要了解其他正在使用的代码。

起初，我认为这将是如此简单。 只需使用控件的.Parent属性即可。

更多问题

但是，我很快意识到，.Parent并不总是引用表单/报表。 例如，对于标签，它是指附加标签的控件；对于在tabcontrol内放置的文本框或组合框，则控件的.Parent属性是指控件所在的页面，而页面是.Parent属性。实际上是选项卡控件，因此在某些情况下，要获取表格/报告，您可能需要检查几个对象才能实际获取表格/报告。

解

所以我写了这段简短的代码，它将递归地检查控件的父级，直到找到一个Form或Report对象，然后将其返回。

Public Function GetControlParentObject(ctl As Control) As Object
'---------------------------------------------------------------
'---------------------------------------------------------------
' Procedure : GetControlParentObject
' Author    : AEC - Anders Ebro Christensen / TheSmileyCoder
' Date      : 2013-04-12
' Version   : 1.0
' Purpose   : Return the Form or report to which a control of any type belongs.
'---------------------------------------------------------------
'---------------------------------------------------------------
   If (TypeOf ctl.Parent Is Form Or TypeOf ctl.Parent Is Report) Then
      Set GetControlParentObject = ctl.Parent
   Else
     'Call self recursively on parent object
      Set GetControlParentObject = GetControlParentObject(ctl.Parent)
   End If
End Function

希望其他人会发现它有用。

反馈，评论和讨论总是受欢迎的。

如果您确实觉得这很有用，并且希望看到更多类似的东西，请花点时间在这里发表评论。

请记住，评论和反馈是使火势持续不断的动力。

From: https://bytes.com/topic/access/insights/948707-how-find-out-report-form-control-belongs