Creating table from Word VBA

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Bo Hansson - 12 Feb 2006 21:52 GMT

Using CreateField Method(DAO) I want to create new Acess tables from Word
VBA code, see following example

Set dbsDB = OpenDatabase(myDataBase)
Set tdf = dbsDB.CreateTableDef(myTable)
With tdf
tdf.Fields.Append .CreateField("Name", dbText, 50)
...and so on

This works fine, but how do I create a field containing a counter ?

/BosseH

Reply to this Message

Douglas J. Steele - 12 Feb 2006 22:29 GMT

You mean you want an Autonumber field?

Dim dbsDB As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set dbsDB = OpenDatabase(myDataBase)
Set tdf = dbsDB.CreateTableDef(myTable)
With tdf
tdf.Fields.Append .CreateField("Name", dbText, 50)
Set fld = .CreateField("Id", dbLong)
fld.Attributes = fld.Attributes + dbAutoIncrField
.Fields.Append fld
...and so on

Signature

Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)

> Using CreateField Method(DAO) I want to create new Acess tables from Word
> VBA code, see following example
[quoted text clipped - 8 lines]
>
> /BosseH

Reply to this Message

Bo Hansson - 13 Feb 2006 01:36 GMT

Thanks a lot!

/BosseH

> You mean you want an Autonumber field?
>
[quoted text clipped - 23 lines]
>>
>> /BosseH

Reply to this Message