Delete table Question 2

[jcarneir]

Hi,

I want to know if I can delete a table in an external database

I can delete a table in the current database by:
docmd.DeleteObject actable,"MyTable"

Thanks

 

[ByteMyzer]

Paste the following code into a new Code Module:

Public Sub TableDelete(dbsName As String, tblName As String)
    Dim dbs As Database
    Set dbs = OpenDatabase(dbsName)
    dbs.TableDefs.DELETE tblName
    dbs.Close
End Sub

For example, calling this sub with:
[tt]Call TableDelete("C:\MyDbs.mdb", "MyTable")[/tt]

...will delete the table MyTable from the database file C:\MyDbs.mdb.

 

[PHV]

You may also consider the DROP TABLE sql instruction.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244