句法

表達(dá)式 .CreateControl（FormName，ControlType，Section，Parent，ColumnName，Left，Top，Width，Height）

表達(dá)式    表示Application對(duì)象的變量。

參數(shù)

回報(bào)價(jià)值
控制

備注

您可以使用自定義向?qū)е械腃reate Control和CreateReportControl方法在窗體或報(bào)表上創(chuàng)建控件。兩個(gè)方法都返回一個(gè)Control 對(duì)象。

您可以分別使用CreateControl和CreateReportControl方法在表單設(shè)計(jì)視圖或報(bào)表設(shè)計(jì)視圖中。

您可以使用父參數(shù)來標(biāo)識(shí)主控件和從屬控件之間的關(guān)系。例如，如果文本框具有附加的標(biāo)簽，則文本框是主（或父）控件，標(biāo)簽是從屬（或子）控件。創(chuàng)建標(biāo)簽控件時(shí)，將其父參數(shù)設(shè)置為標(biāo)識(shí)父控件名稱的字符串。創(chuàng)建文本框時(shí)，將其父參數(shù)設(shè)置為零長(zhǎng)度字符串。

您還可以在創(chuàng)建復(fù)選框，選項(xiàng)按鈕或切換按鈕時(shí)設(shè)置父參數(shù)。選項(xiàng)組是其包含的任何復(fù)選框，選項(xiàng)按鈕或切換按鈕的父控件?？梢杂懈缚丶奈ㄒ豢丶菢?biāo)簽，復(fù)選框，選項(xiàng)按鈕或切換按鈕。所有這些控件也可以獨(dú)立創(chuàng)建，無需父控件。

根據(jù)您正在創(chuàng)建的控件的類型設(shè)置columnname參數(shù)，以及是否綁定到表中的字段。可能綁定到字段的控件包括文本框，列表框，組合框，選項(xiàng)組和綁定對(duì)象框架。此外，切換按鈕，選項(xiàng)按鈕和復(fù)選框控件可能會(huì)綁定到一個(gè)字段，如果它們不包含在選項(xiàng)組中。

如果指定columnname參數(shù)的字段名稱，則創(chuàng)建綁定到該字段的控件。然后，所有控件的屬性將自動(dòng)設(shè)置為任何相應(yīng)的字段屬性的設(shè)置。例如，控件的ValidationRule 屬性的值將與該字段的該屬性的值相同。

注意
如果您的向?qū)г谛碌幕颥F(xiàn)有的表單或報(bào)表上創(chuàng)建控件，則必須首先在“設(shè)計(jì)”視圖中打開表單或報(bào)表。

要從表單或報(bào)表中刪除控件，請(qǐng)使用DeleteControl和DeleteReportControl 語句。

例

以下示例首先基于Orders表創(chuàng)建一個(gè)新表單。然后它使用CreateControl方法在表單上創(chuàng)建一個(gè)文本框控件和附加的標(biāo)簽控件。

Sub NewControls()
    Dim frm As Form
    Dim ctlLabel As Control, ctlText As Control
    Dim intDataX As Integer, intDataY As Integer
    Dim intLabelX As Integer, intLabelY As Integer

    ' Create new form with Orders table as its record source.
    Set frm = CreateForm
    frm.RecordSource = "Orders"
    ' Set positioning values for new controls.
    intLabelX = 100
    intLabelY = 100
    intDataX = 1000
    intDataY = 100
    ' Create unbound default-size text box in detail section.
    Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
        intDataX, intDataY)
    ' Create child label control for text box.
    Set ctlLabel = CreateControl(frm.Name, acLabel, , _
         ctlText.Name, "NewLabel", intLabelX, intLabelY)
    ' Restore form.
    DoCmd.Restore
End Sub