save new Access table

[ELPorter]

Looking to create new MSAccess db table , set fields, and save table.

 

[TonyJollans]

Hi ELPorter,

To just create an empty table you can do it with SQL

DoCmd.RunSQL "CREATE TABLE NewTableName (F1 Double, F2 Text)"

Or some more long-winded VBA (which I think is correct) ..

Dim OldDatabase As DAO.DataBase
Dim NewTable As DAO.TableDef
Set OldDatabase = CurrentDb
Set NewTable = OldDatabase.CreateTableDef("NewTableName")
With NewTable
  .Fields.Append .CreateField("F1", dbDouble)
  .Fields.Append .CreateField("F2", dbText, 255)
End With
OldDatabase.TableDEFS.Append NewTable

Enjoy,
Tony