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.