changer les noms de champs sous access

Bonjour,

Je souhaite mettre à jour les noms de champs dans une table sous access 2003.

J'importe régulièrement cette table depuis une base DB2 sous os400. Je dois à chaque fois renommer tous les champs.

Je n'ai pas de grandes compétences en développement.

Merci bcp pour votre aide

Bonjour,

ceci est du code DAO 3.6, vérifie que tu as un ref dessus. Copie ce code dans un module.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

private sub ChangerNomChamp() dim db as database:set db=currentdb dim t as tabledef dim i as integer dim nomChamp as variant   nomChamp=Array("nomChamp1", "nomChamp2") : 'Definir autant de champs que nécessaire   set t=db.tabledefs("maTable")   for i=lbound(nomChamp) to ubound(nomChamp) t.fields(i).name=nomChamp(i) next i   set t=nothing db.close:set db=nothing end sub

---

Merci pour ta réponse.

Afin de m'aider à exploiter ce code, peux-tu me dire à quel endroit dois-je mettre les noms de champs (anciens et nouveaux).

Merci

Code:

---

1 2	nomChamp=Array("nomChamp1", "nomChamp2")

---

Dans le Array() tu mets le noms de tes nouveaux champs (lè je n'en ai mis que 2 mais tu peux en mettre autant que nécessaire) dans l'ordre où ils sont dans ta table.

Code:

---

1 2	t.fields(i).name=nomChamp(i)

---

Cette instruction fait une substitution par position : le Ième champ de la table est remplacé par le Ième champ de nomChamp.

A+

Ca marche !

Merci bcp, ça va me faire gagner du temps

Bonne journée