Parent 屬性

全部顯示

使用 Parent 屬性可以引用控件、節(jié)或包含其他控件的控件的父對象。如果父對象為控件則 Parent 屬性返回的是控件對象；如果父對象為 Microsoft Access 對象，則返回的是 AccessObject 對象。只讀。

expression.Parent

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

說明

在多個窗體或報表中插入了子窗體或子報表時，可使用 Parent 屬性決定當(dāng)前的父對象。

例如，可能在一個窗體和一個報表中都插入了“訂單明細(xì)”子窗體。以下示例使用 Parent 屬性來引用“訂單ID”字段，該字段在主窗體和主報表中都存在。在子窗體上的綁定控件中可以輸入該表達(dá)式。

=Parent!OrderID

標(biāo)簽控件的 Parent 屬性是標(biāo)簽控件鏈接的控件。選項組中的復(fù)選框、選項按鈕或切換按鈕的 Parent 屬性是選項組控件的名稱。選項組控件的 Parent 屬性是窗體的名稱。

示例

以下示例使用 Parent 屬性檢查“Speedy Label”標(biāo)簽控件、“Speedy”復(fù)選框控件和“ShipVia”選項組的父對象。如果要運(yùn)行該示例，請打開“羅斯文”示例數(shù)據(jù)庫中的“訂單”窗體，并運(yùn)行此代碼。

Public Sub ShowParent()

    Dim frm As Form

    Dim ctl As Control

    Set frm = Forms!Orders

    Set ctl = frm.[Speedy Label]

    ' Returns name of control attached to label.

    MsgBox "The parent control is " & ctl.Parent.Name

    Set ctl = frm.Speedy

    ' Returns name of control containing control.

    MsgBox "The parent control is " & ctl.Parent.Name

    Set ctl = frm.ShipVia

    ' Returns name of form containing option group control.

    MsgBox "The parent control is " & ctl.Parent.Name

End Sub

下一個示例返回的也是包含選項組控件的窗體的名稱。

MsgBox Forms!Orders![Speedy Label].Parent.Parent.Parent.Name