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.
par macro j'avoue que je ne suis pas tenté, mais tu peux le faire en vba (tu es allergique ? non): Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim fld As DAO.Field Dim Idx As DAO.Index Set Db = CurrentDb() Set Tbl = Db.TableDefs("Table2") Set Idx = Tbl.CreateIndex("Primaire") Idx.Primary = True Idx.Required = True Idx.Unique = True Set fld = Idx.CreateField("Numéro") Idx.Fields.Append fld Tbl.Indexes.Append Idx
(ça peut se raccourcir dans les dim et les set)
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ph Genton" a écrit dans le message de news:234fc01c45e89$2e501ff0$ Bonjour,
Je voudrais par le biais d'une macro définir un champ comme étant une clef primaire.
Comment faire ? * merci d'avance
Ph
Bonjour.
par macro j'avoue que je ne suis pas tenté, mais tu peux le faire en vba (tu
es allergique ? non):
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim fld As DAO.Field
Dim Idx As DAO.Index
Set Db = CurrentDb()
Set Tbl = Db.TableDefs("Table2")
Set Idx = Tbl.CreateIndex("Primaire")
Idx.Primary = True
Idx.Required = True
Idx.Unique = True
Set fld = Idx.CreateField("Numéro")
Idx.Fields.Append fld
Tbl.Indexes.Append Idx
(ça peut se raccourcir dans les dim et les set)
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ph Genton" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:234fc01c45e89$2e501ff0$a301280a@phx.gbl...
Bonjour,
Je voudrais par le biais d'une macro définir un champ
comme étant une clef primaire.
par macro j'avoue que je ne suis pas tenté, mais tu peux le faire en vba (tu es allergique ? non): Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim fld As DAO.Field Dim Idx As DAO.Index Set Db = CurrentDb() Set Tbl = Db.TableDefs("Table2") Set Idx = Tbl.CreateIndex("Primaire") Idx.Primary = True Idx.Required = True Idx.Unique = True Set fld = Idx.CreateField("Numéro") Idx.Fields.Append fld Tbl.Indexes.Append Idx
(ça peut se raccourcir dans les dim et les set)
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ph Genton" a écrit dans le message de news:234fc01c45e89$2e501ff0$ Bonjour,
Je voudrais par le biais d'une macro définir un champ comme étant une clef primaire.
