Delete a table using Query

If you would like to delete the table from the database

Here is the code-


Sub delete_table_using_query()
DoCmd.SetWarnings (False)
On Error Resume Next
'close the table table1 if open
DoCmd.Close acTable, "Table1", acSaveYes
' delete table table1 if exists
On Error Resume Next
DoCmd.RunSQL "drop TABLE table1 "
DoCmd.SetWarnings (True)
End Sub


Download Access Database