Hello
Meme si la question date, je pense qu'elle peut servir a d'autres personnes, ou a vbaddict s'il n'a toujours pas trouvé de solution.
Imaginons que ta table se nomme Table1
Code :
- 'on ouvre un recordset pour lire les infos de la table
- Set RstTable = CurrentDb.OpenRecordset("Table1" )
- 'pour chaque champs de la table on regarde ses propriétés
- 'je ne les ai pas toutes mises
- For Each Champs In RstTable.Fields
- NomChamps = Champs.Name
- TypeChamps = Champs.Type
- ValeurParDefautChamps = Champs.DefaultValue
- NullInterditChamps = Champs.Required
- ChaineVideAutoriseeChamps = Champs.AllowZeroLength
- ValideSiChamps = Champs.ValidationRule
- MessageErreurChamps = Champs.ValidationText
- TailleChamps = Champs.Size
- Next Champs
|
Donc la on recupere la definition du/des champs.
Pour les definir, il suffit d'utilisez les memes propriétés et d'y affecter une valeur.
Le fait de d'abord regarder ce que contient comme propriétes les champs, c'est que tu verras que le type n'est pas sous forme de "texte" (entier, texte, numéroauto etc.) mais c'est un numérique etc.
Cordialement
Message édité par SuppotDeSaTante le 26-04-2010 à 10:09:01
---------------
Soyez malin, louez entre voisins !