VBA/Excel/Access/Word/Access/Table Delete
Deleting a Table from a Database
<source lang="vb">
Sub Delete_Table()
Dim cat As ADOX.Catalog On Error GoTo ErrorHandler Set cat = New ADOX.Catalog cat.ActiveConnection = CurrentProject.Connection cat.Tables.Delete "vbexTable" Set cat = Nothing Exit Sub
ErrorHandler:
MsgBox "Table "" & "tblFilters" & _ "" cannot be deleted " & vbCrLf & _ "because it does not exist." Resume Next
End Sub
</source>
Deleting a Table with SQL command
<source lang="vb">
Sub DeleteTable()
Dim conn As ADODB.Connection On Error GoTo ErrorHandler Set conn = CurrentProject.Connection conn.Execute "DROP TABLE myTable" Application.RefreshDatabaseWindow
ExitHere:
conn.Close Set conn = Nothing Exit Sub
ErrorHandler:
If Err.Number = -2147217900 Then DoCmd.Close acTable, "myTable", acSavePrompt Resume 0 Else Debug.Print Err.Number & ":" & Err.Description Resume ExitHere End If
End Sub
</source>