VBA Access - Deletando objetos - How to Delete Objects Programmatically

Docmd.DeleteObject Method

O método DoCmd DeleteObject executa a deleção de objetos ativos no Visual Basic for Applications.

Este comando é usado várias vezes para remover objetos temporários criados durante a execução de certos processos nas nossas aplicações de banco de dados no MS Access database.

O texto abaixo mostra a syntaxe e as opções para o comando 'Delete Object'.

DoCmd.DeleteObject Opções para o parâmetro tipo de objeto - AcObjectType. acDataAccessPage acDefault (default) acDiagram acForm acFunction acMacro acModule acQuery acReport acServerView acStoredProcedure acTable

  15.01.2025

Sub DeleteObjectExample(objectType As AcObjectType, objectName As String)
    ' Função para excluir objetos do Access com base no tipo e nome fornecidos.
    ' O parâmetro 'objectType' especifica o tipo do objeto (como acTable, acQuery, etc.)
    ' O parâmetro 'objectName' é o nome do objeto a ser excluído.

    On Error GoTo Err_Handler ' Trata erros caso ocorram durante a execução.

    ' Verifica se o nome do objeto foi fornecido corretamente.
    If Len(objectName) = 0 Then
        MsgBox "Nome do objeto não especificado.", vbExclamation, "Erro"
        Exit Sub
    End If

    ' Dependendo do tipo de objeto, chama a função DoCmd.DeleteObject com o tipo e nome especificados.
    Select Case objectType
        Case acTable
            ' Exclui uma tabela do banco de dados.
            DoCmd.DeleteObject acTable, objectName
            MsgBox "Tabela '" & objectName & "' excluída com sucesso!", vbInformation, "Sucesso"

        Case acQuery
            ' Exclui uma consulta (query) do banco de dados.
            DoCmd.DeleteObject acQuery, objectName
            MsgBox "Consulta '" & objectName & "' excluída com sucesso!", vbInformation, "Sucesso"

        Case acForm
            ' Exclui um formulário do banco de dados.
            DoCmd.DeleteObject acForm, objectName
            MsgBox "Formulário '" & objectName & "' excluído com sucesso!", vbInformation, "Sucesso"

        Case acReport
            ' Exclui um relatório do banco de dados.
            DoCmd.DeleteObject acReport, objectName
            MsgBox "Relatório '" & objectName & "' excluído com sucesso!", vbInformation, "Sucesso"

        Case acMacro
            ' Exclui uma macro do banco de dados.
            DoCmd.DeleteObject acMacro, objectName
            MsgBox "Macro '" & objectName & "' excluída com sucesso!", vbInformation, "Sucesso"

        Case acModule
            ' Exclui um módulo VBA do banco de dados.
            DoCmd.DeleteObject acModule, objectName
            MsgBox "Módulo '" & objectName & "' excluído com sucesso!", vbInformation, "Sucesso"

        Case acFunction
            ' Exclui uma função definida pelo usuário do banco de dados.
            DoCmd.DeleteObject acFunction, objectName
            MsgBox "Função '" & objectName & "' excluída com sucesso!", vbInformation, "Sucesso"

        Case acStoredProcedure
            ' Exclui uma Stored Procedure do banco de dados.
            DoCmd.DeleteObject acStoredProcedure, objectName
            MsgBox "Stored Procedure '" & objectName & "' excluída com sucesso!", vbInformation, "Sucesso"

        Case acDataAccessPage
            ' Exclui uma página de acesso de dados (se estiver usando o Access Services).
            DoCmd.DeleteObject acDataAccessPage, objectName
            MsgBox "Página de acesso de dados '" & objectName & "' excluída com sucesso!", vbInformation, "Sucesso"

        Case Else
            ' Caso o tipo de objeto fornecido não seja válido.
            MsgBox "Tipo de objeto inválido ou não suportado.", vbCritical, "Erro"
            Exit Sub
    End Select

Exit_Sub:
    Exit Sub

Err_Handler:
    ' Exibe a mensagem de erro caso algo dê errado durante a execução.
    MsgBox "Erro " & Err.Number & ": " & Err.Description, vbCritical, "Erro"
    Resume Exit_Sub
End Sub