用代码删除控件DeleteControl方法，从表单中删除指定的控件。

来源:www.accessoft.com 点击数:8111 　 | 收藏 | 复制

时　间:2016-08-31 07:39:20
作　者:宏鹏 ID：21115 城市：上海
摘　要:用代码删除控件DeleteControl方法
正　文:

语法

表达式.DeleteControl(FormName, ControlName)

表达式 一个代表 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
FormName	必需	String	包含要删除的控件的窗体的名称。
ControlName	必需	String	要删除的控件的名称。

返回值

Nothing

注解

例如，假设您有一个过程，必须将每个用户登录到数据库第一次。在窗体上为此过程可以设置按钮的OnClick属性。一旦用户登录并运行该过程，您可以使用DeleteControl方法动态地解除对窗体的命令按钮。

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

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

示例

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

VBA

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

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】