Discussion :

[damiensimon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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+

[damiensimon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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

Bravo

A+