Published in: Visual Basic
Sub createAutoIncrField() Dim Fld As DAO.Field Set Fld = CurrentDb.TableDefs("deineTabelle"). _ CreateField("deinFeldname", dbLong) Fld.Attributes = dbAutoIncrField CurrentDb.TableDefs("deineTabelle").Fields.Append Fld End Sub
You need to login to post a comment.
