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.