Código para apagar tabelas no Access

A fim de evitar mensagens de erro, é conveniente sempre verificar se a tabela existe antes de comandar um DROP.

Segue abaixo um exemplo.

Obs.: marcar a referência no VBA – ActiveX Data Objects

Sub ApagaTabela()

On Error GoTo Erro

    Dim rst As New ADODB.Recordset

   

    rst.Open "SELECT name FROM MSysObjects where type = 1 AND name = 'Tabela3'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    'type 6 = tabela vinculada

    If rst.RecordCount > 0 Then

        CurrentProject.Connection.Execute "DROP TABLE Tabela3"

    End If

Saida:

    rst.Close

    Set rst = Nothing

    Exit Sub

Erro:

    MsgBox Err.Description, vbOKOnly

    Resume Saida

End Sub