全部显示

DeleteControl 方法从窗体中删除一个指定的控件。

expression.DeleteControl(FormName, ControlName)

expression     必需。返回“应用于”列表中的一个对象的表达式。

FormName     必需 String 型。字符串表达式，用于标识包含要删除控件的窗体或报表的名称。

ControlName     必需 String 型。字符串表达式，用于标识要删除的控件的名称。

说明

例如，假定有一个在每个用户第一次登录到数据库时都必须执行的过程。可以将窗体上按钮的 OnClick 属性设为该过程。当用户登录且运行该过程后，就可以使用 DeleteControl 方法从窗体中动态删除这个命令按钮。

DeleteControl 方法分别仅在窗体“设计”视图或报表“设计”视图中才可用。

注释  如果正建立一个从窗体或报表中删除控件的向导，该向导必须先在“设计”视图中打开这个窗体或报表，然后才能删除控件。

示例

下面的示例创建带有命令按钮的窗体，并且显示提示信息询问用户是否要删除这个命令按钮。如果用户单击“是”，则该命令按钮被删除。

Sub DeleteCommandButton()

    Dim frm As Form, ctlNew As Control

    Dim strMsg As String, intResponse As Integer, _

         intDialog As Integer

    ' Create new form and get pointer to it.

    Set frm = CreateForm

    ' Create new command button.

    Set ctlNew = CreateControl(frm.Name, acCommandButton)

    ' Restore form.

    DoCmd.Restore

    ' Set caption.

    ctlNew.Caption = "New Command Button"

    ' Size control.

    ctlNew.SizeToFit

    ' Prompt user to delete control.

    strMsg = "About to delete " & ctlNew.Name &". Continue?"

    ' Define buttons to be displayed in dialog box.

    intDialog = vbYesNo + vbCritical + vbDefaultButton2

    intResponse = MsgBox(strMsg, intDialog)

    If intResponse = vbYes Then

        ' Delete control.

        DeleteControl frm.Name, ctlNew.Name

    End If

End Sub