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]
Bonsoir aussi.
procédure détaillée (à raccourcir un peu, tu verras)
Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Set Db = CurrentDb Set Tbl = Db.TableDefs("Table1") Set Fld = Tbl.Fields("Champ1") Fld.Name = "NouveauNom" Set Fld = Nothing Set Db = Nothing Set Tbl = Nothing
-- @+ 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
"Bernard-VIVIER" a écrit dans le message de news:cb9a07$s4h$
Quelle est la méthode ?
Merci d'avance, Cordialement, BV
Bonsoir aussi.
procédure détaillée (à raccourcir un peu, tu verras)
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Set Db = CurrentDb
Set Tbl = Db.TableDefs("Table1")
Set Fld = Tbl.Fields("Champ1")
Fld.Name = "NouveauNom"
Set Fld = Nothing
Set Db = Nothing
Set Tbl = Nothing
--
@+
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
"Bernard-VIVIER" <bernard.vivier@wanadoo.fr> a écrit dans le message de
news:cb9a07$s4h$1@news-reader4.wanadoo.fr...
procédure détaillée (à raccourcir un peu, tu verras)
Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Set Db = CurrentDb Set Tbl = Db.TableDefs("Table1") Set Fld = Tbl.Fields("Champ1") Fld.Name = "NouveauNom" Set Fld = Nothing Set Db = Nothing Set Tbl = Nothing
-- @+ 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
"Bernard-VIVIER" a écrit dans le message de news:cb9a07$s4h$