Alter table properties

[Luis]

Hello.
I have a make table query that is a result of a union query. After that i
need to create a new autonumber field. Is this possible to create a new
autonumber field on the query or via VBA code ?

Thanks

 

[Brendan Reynolds]

Public Sub CreateAutoNumber()

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

Set db = CurrentDb
Set tdf = db.TableDefs("Table3")
Set fld = tdf.CreateField("TestAuto", dbLong)
fld.Attributes = dbAutoIncrField
tdf.Fields.Append fld

End Sub

 

[Luis]

Perfect!

Thank you very much!

Public Sub CreateAutoNumber()

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

Set db = CurrentDb
Set tdf = db.TableDefs("Table3")
Set fld = tdf.CreateField("TestAuto", dbLong)
fld.Attributes = dbAutoIncrField
tdf.Fields.Append fld

End Sub