Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
les champs numauto sont de type Long.
Dim Db As DAO.Database Dim Td As DAO.TableDef Dim fld As DAO.Field Set Db = CurrentDb() Set Td = Db .TableDefs("panne_G_qte") Set fld = Td.CreateField("compteur", dbLong) fld.Attributes = dbAutoIncrField Td.Fields.Append fld + tous les Nothing
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" a écrit dans le message de news:
bonjour,
Je voudrais par VB créer un champ de type Numéro auto.
Dim db As Database, td As TableDef Set td = db("panne_G_qte") td.Fields.Append td.CreateField(compteur, xxxx)
Que dois-je mettre à la place des xxxx ?
Merci
Bonjour.
les champs numauto sont de type Long.
Dim Db As DAO.Database
Dim Td As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb()
Set Td = Db .TableDefs("panne_G_qte")
Set fld = Td.CreateField("compteur", dbLong)
fld.Attributes = dbAutoIncrField
Td.Fields.Append fld
+ tous les Nothing
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" <Patrice@discussions.microsoft.com> a écrit dans le message de
news: C165930D-E871-409E-B118-73D6657C59E0@microsoft.com...
bonjour,
Je voudrais par VB créer un champ de type Numéro auto.
Dim db As Database, td As TableDef
Set td = db("panne_G_qte")
td.Fields.Append td.CreateField(compteur, xxxx)
Dim Db As DAO.Database Dim Td As DAO.TableDef Dim fld As DAO.Field Set Db = CurrentDb() Set Td = Db .TableDefs("panne_G_qte") Set fld = Td.CreateField("compteur", dbLong) fld.Attributes = dbAutoIncrField Td.Fields.Append fld + tous les Nothing
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" a écrit dans le message de news:
bonjour,
Je voudrais par VB créer un champ de type Numéro auto.
Dim db As Database, td As TableDef Set td = db("panne_G_qte") td.Fields.Append td.CreateField(compteur, xxxx)
