[VBA-A]modifier la description des champs d'une table

Bonjour,

Est-il possible de modifier les description des champs d'une table lors de sa création ?
J'essaye avec le code si dessous mais j'ai une erreur : 3270 Property not found.

Code:

---

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

Sub Create_Test()   Dim db As DAO.Database Dim tbl As DAO.TableDef Dim fld As DAO.Field   Set db = CurrentDb Set tbl = db.CreateTableDef("TableTest") Set fld = tbl.CreateField("Field1", dbText, 2) fld.Properties("Description").Value = "Champ 1" tbl.Fields.Append fld db.TableDefs.Append tbl Set db = Nothing   End Sub

---

Merci.

Damien.

Bonjour et bienvenue sur le forum.
As-tu effectué une recherche dans le forum VB ? Avec "Access and champs", j'ai trouvé 45 réponses
Une adresse parmi d'autres :
http://www.developpez.net/forums/vie...=access+champs

Regarde déjà là et tu dis

A+

Bonjour,

Oui, j'ai déjà chercher un peu partout. Tous ce que j'ai trouvé c'était comment LIRE la valeur, mais je n'arrive pas à la modifier lors de la création de la table.

Enfin, je devrais plutot dire que je n'y arrivais pas... je viens juste de trouver. Il faut que la table existe pour avoir accès aux propriétés.
Ca parit peut-être évident mais j'ai chercher pendant 1 journée...
Faut dire que le VBA est nouveau pour moi, je l'apprend depuis 2 jours.

Pour info, voici mon code...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Create_Test()   Dim db As DAO.Database Dim tbl As DAO.TableDef Dim fld As DAO.Field Dim prop As Property   Set db = CurrentDb Set tbl = db.CreateTableDef("TableTest") Set fld = tbl.CreateField("Field1", dbText, 2) tbl.Fields.Append fld db.TableDefs.Append tbl Set tbl = Nothing Set fld = Nothing Set tbl = db.TableDefs("TableTest") Set fld = tbl.Fields("Field1") Set prop = fld.CreateProperty("Description", dbText, "Champs 1") fld.Properties.Append prop tbl.Fields.Refresh Set db = Nothing   End Sub

---

Damien.

"2 jours ", dis-tu ? La semaine prochaine, viens sur le forum pour répondre aux questions... :lol:

Bravo

A+