Метод Application.DeleteControl (Access)

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

Синтаксис

выражение. DeleteControl (FormName, ControlName)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FormName	Обязательный	String	Имя формы, содержащей элемент управления, который нужно удалить.
Имя элемента управления	Обязательный	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 и обратная связь.