Método Application.DeleteReportControl (Access)

O método DeleteReportControl exclui um controle especificado de um relatório.

Sintaxe

expressão. DeleteReportControl (ReportName, ControlName)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ReportName Obrigatório String O nome do relató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

O método DeleteReportControl está disponível somente no modo de Design do formulário ou modo de 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.