The following code doesnt generate an error but neither does it create the table:
Dim db As DAO.Database
Set db = CurrentDb

Dim tdfNew As DAO.TableDef
Dim fld As DAO.Field
Dim TblDefTemp As DAO.TableDef



Set tdfNew = db.CreateTableDef("TblSample")
Set fld = tdfNew.CreateField("Number", dbDouble)
tdfNew.Fields.Append fld


I am not sure why,

assistance would be much appreciated.

regards

Hi,

You were almost there.

Straight out of the help file:

Sub NewTable()
Dim db As DAO.DATABASE
Dim tdfNew As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tdfNew = db.CreateTableDef("TblSample")
'"Number" is a reserved word
Set fld = tdfNew.CreateField("Number1", dbDouble)
tdfNew.Fields.Append fld
tdfNew.Fields.Refresh
db.TableDefs.Append tdfNew
db.TableDefs.Refresh
Set db = Nothing

End Sub

HTH - Bob

Bob

That worked a treat, one other question can I get it to build the table from the reuslts of a query (or recordset) populating the data and just adding the new field (number1) or am i just as wise to use docmd runsql (with an 'into' in the query)

regards