OVH Cloud OVH Cloud

incrémentation

1 réponse
Avatar
léa
bonjour, est-il possible de cr=E9er dans une table d=E9ja=20
existante, un champs X qui aurais un num=E9ro automatique=20
qui s'incr=E9menterais tout seul. Je veux le programmer=20
dans access 97 pour que par la suite je me cr=E9er un=20
bouton et cela mettrait a jour ma table avec ces num=E9ro=20
automatique. =20

merci

1 réponse

Avatar
Raymond [mvp]
Bonsoir .

je n'ai pas tout compris mais peur-être que cette procédure te conviendra:
Dim MaBase As DAO.Database
Dim Matable As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.Index

Set MaBase = CurrentDb()
Set Matable = MaBase.TableDefs("unetable")

Set fld = Matable.CreateField("Numéro", dbLong)
fld.OrdinalPosition = 1
fld.Attributes = dbAutoIncrField
Matable.Fields.Append fld

' si clé primaire
Set idx = Matable.CreateIndex("Numéro")
idx.Primary = True
idx.Required = True
idx.Unique = True
Set fld = idx.CreateField("Numéro")
idx.Fields.Append fld
Matable.Indexes.Append idx

MaBase.TableDefs.Refresh


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"léa" a écrit dans le message de
news:43b301c3e44f$96112080$
bonjour, est-il possible de créer dans une table déja
existante, un champs X qui aurais un numéro automatique
qui s'incrémenterais tout seul. Je veux le programmer
dans access 97 pour que par la suite je me créer un
bouton et cela mettrait a jour ma table avec ces numéro
automatique.

merci