Метод Application.DeleteControl (Access)

Метод DeleteControl удаляет указанный элемент управления из формы.

Синтаксис

expression. DeleteControl (FormName, ControlName)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.