How do you overwrite a table created in VBA? [DELETE]

[shubhamgandhi]

I'm creating a table in VBA within a loop and when I run the code a table is created. But the next time I run it, an error comes up telling me that the table exists and the remainder of the code is not executed. How can I have it overwrite the existing table (from the previous run)?



Here is my code:

Option Compare Database

Public Function createTables()

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim strSQL As String

    strSQL = "Select SKUS from SKUS"
    Set db = CurrentDb()
    Set rst = db.OpenRecordset(strSQL)
    Set fld = rst.Fields("SKUS")

    'MsgBox fld.Value

    rst.MoveFirst
    Do While Not rst.EOF
        Set tdf = db.CreateTableDef(fld.Value)

        Set fld = tdf.CreateField("SKUS", dbText, 30)
        tdf.Fields.Append fld

        Set fld = tdf.CreateField("Count", dbInteger)
        tdf.Fields.Append fld

        db.TableDefs.Append tdf

        rst.MoveNext
    Loop

End Function

Can anyone help me out please? Thanks!

[rpeare]

you'll have to drop the existing table first if you want to overwrite it, or alternately perform a delete (data) query then repopulate the existing table.

In your code it would be

db.execute ("DROP TABLE <tablename>")

[shubhamgandhi]

Sorry, bad question, this wasn't even what is causing problem in my code. I created a new thread...