Discussion :

[mhamedbj]

Bonjour,

J'ai un petit code comme suit pour l'ouverture d'une requête :

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
 
    Set db = CurrentDb
 
 
 
    DoCmd.Close acQuery, "RQAAUTEU", acSaveNo
 
 
 
    db.QueryDefs("RQAAUTEU").sql = "select bla bla bla"
 
 
    DoCmd.OpenQuery "RQAAUTEU", , acEdit

Mon code marche j'ai pas de soucis, mon problème c'est que dans le tableau qui s'ouvre, les chiffres s'affichent avec 20000 chiffres après le virgule.

Ya -t-il un moyen de spécifier la mise en forme du tableau avant qu'il ne s'ouvre ? (dans le code VBA) ???

Merci

[DMboup]

Essaie de donner le format d'affichage à la création.

Dans le code sql tu utilises la fonction format.

[mhamedbj]

Merci,

Ma requête est monstrueuse c'est pas évidant ce que tu dis .......... autre propositions ?

[DMboup]

.......... autre propositions ?

Je ne vois pas.

De toute facon tu est obligé de faire le formatage soit dans la requête soit dans un formulaire ou un état.

[mhamedbj]

Je ne vois pas.

De toute facon tu est obligé de faire le formatage soit dans la requête soit dans un formulaire ou un état.

Ok alors comment on utilise le 'format' dans le code ?

[DMboup]

Un exemple

Code :

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

1
2
 
Select UnChamp, format(UnChamp,"# ##0,00") as ChampDouble, ...

Cherche dans l'aide la syntaxe de la fonction format. La FAQ aussi