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.