1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Formater un champ access

[Résolu]
Signaler
Messages postés
165
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
24 avril 2018
 -
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 -
Bonjour à Tous ...

Voila mon pb ...Je crée, via VB6, une table dans une bdd access. 
Cette table possède plusieurs champs, et pour certains de ces champs (qui sont numériques), je voudrais indiquer (via VB6) le nb de décimales, et formater ces champs à 2 chiffres après la virgule (style "###0.00").

voiçi le bout de mon code, qui crée la table et les champs ...

Set db = OpenDatabase("C:\rfdc\Logémag8\bdd\G.mdb")
    Set tb = db.CreateTableDef("devis1")



        Set f = tb.CreateField("lbl", dbText)
    tb.Fields.Append f
        Set f = tb.CreateField("pvht", dbDouble)
    tb.Fields.Append f
        Set f = tb.CreateField("q", dbDouble)
    tb.Fields.Append f
        Set f = tb.CreateField("totlght", dbDouble)
    tb.Fields.Append f
db.TableDefs.Append tb
db.TableDefs.Refresh
db.Close
 
Ce sont les 3 champs "dbDouble" que je voudrais formater style "###0.00"

Merçi !! 
Je comprends vite mais il faut m'expliquer longtemps et tout en détails !!!

1 réponse

Réponse 1 / 1
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 46
salut,
une tablea access ne va pas faire la différence ni conserver ton double formaté.
tu vas devoir tricher en l'enregistrant comme string [Text(7)]
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Répondre Posez votre question