Access VBA教程:DeleteControl方法

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

expression.DeleteControl(FormName, ControlName)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

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

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

说明

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

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

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

VBA示例

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


Sub eleteCommandButton()
    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

上页:Access VBA教程:Delete方法 下页:Access VBA教程:DeleteLines方法

Access VBA教程:DeleteControl方法

Access VBA教程:DeleteLines方法 Access VBA教程:DeleteReportControl方法
Access VBA教程:DFirst方法 Access VBA教程:DiscardConflict方法
Access VBA教程:DLast方法 Access VBA教程:DLookup方法
Access VBA教程:DMax方法 Access VBA教程:DMin方法
Access VBA教程:Dropdown方法 Access VBA教程:DStDev方法
Access VBA教程:DStDevP方法 Access VBA教程:DSum方法
Access VBA教程:DVar方法 Access VBA教程:DVarP方法
Access VBA教程:Echo方法 Access VBA教程:Eval方法
Access VBA教程:ExportXML方法 Access VBA教程:Find方法
Access VBA教程:FirstPage、LastPage、NextPage、PreviousPage方法 (Snapshot Viewer) Access VBA教程:Follow方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号