New tables created in a loop causing error

[shubhamgandhi]

I'm grabbing field row from one table and creating a new table for each row. The new tables will have names equal to the row they correspond to.

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

The problem is that after the first iteration of the code (the first table is created), it gives me an error "Invalid operation" pointing to the line

...
Set tdf = db.CreateTableDef(fld.Value)
...

Why do you think this is? I have a feeling its because I need to re set fld or rst, but I'm not sure.



Can anyone help me out with this?
Thanks!

[rpeare]

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

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



Do While rst.EOF <> True
sTableName = rst.Fields("SKUS")
Set tdf = db.CreateTableDef(sTableName)

With tdf
.Fields.Append .CreateField("FirstName", dbText, 30)
.Fields.Append .CreateField("LastName", dbInteger)
db.TableDefs.Append tdf
End With

rst.MoveNext
Loop

[boblarson]

Why are you creating a table for each SKU? That is definitely NOT normalized.