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 controlo que pretende eliminar.
NomeDoControlo	Obrigatório	String	O nome do controlo que pretende eliminar.

Valor de retorno

Nada

Comentários

Por exemplo, suponha que tem de executar um procedimento que tem de ser executado pela primeira vez que cada utilizador inicia sessão na sua base de dados. Pode definir a propriedade OnClick de um botão no formulário para este procedimento. Depois de o utilizador iniciar sessão e executar o procedimento, pode utilizar o método DeleteControl para remover dinamicamente o botão de comando do formulário.

O método DeleteControl só está disponível na vista Estrutura do formulário ou vista estrutura do relatório, respetivamente.

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 utilizador escolher Sim, o botão de comando é eliminado.

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.