Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Deleting a Table from a Database

Sub Delete_Table()    Dim cat As ADOX.Catalog    On Error GoTo ErrorHandler    Set cat = New ADOX.Catalog    cat.ActiveConnection = CurrentProject.Connection    cat.Tables.Delete "rntsoftTable"    Set cat = Nothing    Exit Sub ErrorHandler:    MsgBox "Table '" & "tblFilters" & _        "' cannot be deleted " & vbCrLf & _        "because it does not exist."    Resume Next End Sub