Método Application.DeleteControl (Access)

O método DeleteControl exclui um controle especificado de um formulário.

Sintaxe

expressão. DeleteControl (FormName, ControlName)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FormName	Obrigatório	String	O nome do formulário que contém o controle que você deseja excluir.
Controlname	Obrigatório	String	O nome do controle que você deseja excluir.

Valor de retorno

Nada

Comentários

Por exemplo, suponha que você tenha um procedimento que deve ser executado na primeira vez que cada usuário entrar no banco de dados. Você pode definir a propriedade OnClick de um botão no formulário para este procedimento. Depois que o usuário entrar e executar o procedimento, você poderá usar o método DeleteControl para remover dinamicamente o botão de comando do formulário.

O método DeleteControl está disponível apenas no modo design de formulário ou na exibição design do relatório, respectivamente.

Observação

Se você estiver criando um assistente que exclua algum controle de um formulário ou relatório, seu assistente deverá abrir o formulário ou relatório no modo de design para poder excluir o controle.

Exemplo

O exemplo a seguir cria um formulário com um botão de comando e exibe uma mensagem perguntando se o usuário deseja excluir o botão de comando. Se o usuário escolher Sim, o botão de comando será excluído.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.