Discussion :

[AGR26]

Bonjour,
Alors voilà, j'ai déjà regardé sur le forum mais je n'ai pas trouvé de réponse qui pourrait me permettre de résoudre mon soucis...

Le soucis c'est que j'ai crée un module me permettant d'avoir 3 chiffres après la virgule car je n'arrivais pas avec les outils de base d'ACCESS à les faire apparaî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
Function Decimale3(A) As String
If A = 0 Then
Decimale3 = ""
Exit Function
End If
Dim B$
B$ = Trim$(Str$(Int(A * 1000 + 0.5)))
While Len(B$) < 4
B$ = "0" + B$
Wend
 
Decimale3 = Left$(B$, Len(B$) - 3) + "," + Right$(B$, 3)
 
End Function

Mais voilà... depuis que j'ai ce module...
Mes kilomètres, lorsque je demande un tri ne sont pas rangés dans le bon ordre... J'ai par exemple

1.650
10.500
11.000
15.368
2.325
5.375
6.369
65.690
7.214
...

Quelqu'un aurait-il une idée à me proposer pour que je réussisse à faire un tri "normal"?

Merci d'avance

Anne-Gaëlle

[vlksoft]

Quel est le type de données defini pour ce champ?

[AGR26]

Les données qui sont reprises par ce module sont en réel double.
Je suppose qu'après ce module, ils sont encore en réels double.

Je dois le mettre dans le module? (je suis débutante sur les modules, j'ai peut etre oublié quelque chose... )

[Invité]

Bonjour

Quand tu utilises des fonctions avec le signe $, cela te les convertis en chaine de caractères (String).

Il faut ensuite que tu fasses une conversions CDbl pour pouvoir les trier dans un ordre numérique.

De plus, ta fonction renvoie une donnée de type String

Code :

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

Function Decimale3(A) As String

Il faut que tu renvoies une donnée de type Double.


Philippe

[AGR26]

si j'ai bien compris, il faut que je crée un autre module me permettant de réaliser cette conversion Cdbl.

J'ai rentré ce code à la suite du module noté en haut mais ça ne marche pas...

Code :

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

1
2
3
4
Function Decimale3(A)
Decimale3 = CDbl(A)
 
End Function

je ne dois pas bien m'y prendre car lorsque je lance ma requête, j'ai un problème avec Decimale3...

Dois je complètement réécrire le premier module sans "string"? car j'ai essayé mais je ne vois pas comment changer les symboles "$"...

[pied9]

peut etre en utilisant Val("resultat") tu obtient le resultat en chiffre

[Invité]

Bonjour

Pour avoir trois chiffres, regardes du coté de la fonction Format, ce sera plus simple, et ensuite la conversion avec CDbl, et le tout dans la même procédure, plus ce que j'ai dit plus haut.

Philippe

[AGR26]

Bonjour,

Merci de m'avoir aidé...

J'ai trouvé une solution pour le tri en utilisant dans ma requête sql:

Code :

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

Format([1/2 OUVRAGE].[Kmf ots], "#0.000") AS Kmf3

Ca marche sans problème...

Merci beaucoup!

Anne-Gaëlle