Discussion :

[Psikorene]

Bonjour,

Je souhaiterais modifier le format d'un champs d'une table Access depuis VBA.
En fait, je crée de nouveaux champs à l'aide de la méthode 'CreateField', ce qui marche, j'assigne à ces champs un type de donné 'single', ce qui marche, mais impossible de trouver dans les Tutoriel, FAQ, forum et autres, comment assigner ensuite un format pourcentage à ces champs.

Merci d'avance pour votre aide.
Psiko.

[Heureux-oli]

Avec le DAO

[Psikorene]

Désolé, mais encore une fois, je ne touve pas.
Peux tu essayer de clarifier ta réponse s'il te plait.

Merci d'avance.

Psiko.

[Gary_Stoupy]

Bonjour,

Le lien que t'as donné Heureux-oli aurait du répondre à ta demande...
Il faut donc que tu crées un objet DAO afin d'accéder à ta table.
Puis avec la propriété Type de l'objet Fields de ta DAO, tu peux changer le type de ton champ...
Regardes le lien de plus près et si jamais, renseigne toi également sur la facon de créer et de gérer le DAO...

Bon courage...

[Invité]

Bonjour

Avec la méthode DAO il faut crée le type à la création, si tu veux le modifier aprés coup va voir ici

http://access.developpez.com/faq/?pa...s#ModifTypeChp

Starec

[ft035580]

Salut,

Peut-être,

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
Dim Db As DAO.Database
Dim Tb As DAO.TableDef
Dim chp As DAO.Field
Dim Pr As DAO.Property
Set Db = CurrentDb
Set Tb = Db.TableDefs("TaTable")
Set chp = Tb.CreateField("NouveauChamp", dbSingle)
Tb.Fields.Append chp
Tb.Fields.Refresh
Set Tb = Db.TableDefs("A")
Set chp = Tb.Fields("NouveauChamp")
Set Pr = chp.CreateProperty("Format", dbText, "0.00%")
  chp.DefaultValue = 0
  chp.Properties.Append Pr
...

[Psikorene]

Merci, ce qui me manquait était la méthode Createproperty !!!
Ca fonctionne.