autonumber field?

  • Thread starter Thread starter js
  • Start date Start date
J

js

Hi, how to use DAO to create a table with autonumber field?

tdf.Fields.Append .CreateField(FieldsToAdd(ind).FieldName, dbInteger) //??
how to specify it's autonumber field??

Thanks...

Dim MyWorkspace As Workspace
Dim db As Database
Dim tdf As TableDef

DBEngine.SystemDB = App.Path & "\" & DW
Set MyWorkspace = DBEngine.CreateWorkspace("New", login, pw)

'Open the database
Set db = MyWorkspace.OpenDatabase(App.Path & "\" & DW)

Set tdf = db.TableDefs("tb1")
tdf.Fields.Append .CreateField(FieldsToAdd(ind).FieldName,
dbInteger)
 
You'll have to create it as a field, change its properties, then append it
to the TableDef object:

Dim MyWorkspace As DAO.Workspace
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

DBEngine.SystemDB = App.Path & "\" & DW
Set MyWorkspace = DBEngine.CreateWorkspace("New", login, pw)

'Open the database
Set db = MyWorkspace.OpenDatabase(App.Path & "\" & DW)

Set tdf = db.TableDefs("tb1")
Set fld = tdf.CreateField("ID", dbLong)
fld.Attributes = fld.Attributes + dbAutoIncrField
tdf.Fields.Append fld

This is because you can't change the Attributes property once it's been
appended to the TableDef object.
 
Back
Top