create table

[pb21]

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

 

[raskew]

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")
    [COLOR=Red]'"Number" is a reserved word[/COLOR]
    Set fld = tdfNew.CreateField("Number[COLOR=Red]1[/COLOR]", dbDouble)
    tdfNew.Fields.Append fld
    [COLOR=Blue]tdfNew.Fields.Refresh
    db.TableDefs.Append tdfNew
    db.TableDefs.Refresh
    Set db = Nothing[/COLOR]

End Sub

HTH - Bob

 

[pb21]

next step with table

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