Removing a Table Using Code : Recordset Delete « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Delete

Removing a Table Using Code

 
Sub DeleteTable()
    On Error Resume Next
    Dim cat As ADOX.Catalog
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection
    cat.Tables.Delete "Foods"
End Sub

 

Related examples in the same category