Discussion :

[jazzybluesy]

Bonjour,

Je viens de creer une macro qui exporte une table excel vers une table access et je voudrais maintenant
1 ) pouvoir changer tous les champs de cette nouvelle table en champs de type "currency", de format "nombre standard" et avec "2 chiffres apres la virgule".
2 ) pouvoir changer leur format sans avoir a les lister. Etant donne que j ai plus de 50 champs, si je fais quelque chose comme

Code :

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

1
2
 
ALTER TABLE MaTable (Champs1(Currency), Champs2(Currency) ... jusqu'a 50

Je ne vais pas en finir. Est ce qu il n y aurait pas un objet "champs" dans ACcess qui me permette de parcourir tous mes champs avec une boucle ?


Merci beaucoup a ceux qui pourront m aider

[Shanur]

Un début de piste :

Charger TableDef de la table
Une boucle sur Fields
Pour chaque Field modifier property

[jazzybluesy]

CA y est j ai trouvé, tout réside dans le modèle DAO que je ne connaissais pas. C est genial ce truc. J ai access a tous les objets que je veux maintenant, y compris a toutes les proprietes de tous les champs

Voici une partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set db = dbEngine.Worspaces(0).Databases(0)
 
'Et maintenant on a ce qu on veut :
 
FieldNb = db.TableDefs(1).Fields.Count
 
For i =0 To FieldNb - 1
de.TableDefs(1).Fields(i).Properties("Format").Value = "#,##0.00"
Next i

Donc
TableDefs(Index) c est une table
Fields(Index) c est un champs
Properties(Index) c est une propriete
...

Voila