Convertir la virgule en point dans acces.
pweber2
Messages postés
7
Date d'inscription
lundi 2 février 2004
Statut
Membre
Dernière intervention
9 avril 2004
-
18 mars 2004 à 10:04
Streptococcus Messages postés 25 Date d'inscription lundi 18 juin 2007 Statut Membre Dernière intervention 18 juillet 2007 - 18 juil. 2007 à 09:19
Streptococcus Messages postés 25 Date d'inscription lundi 18 juin 2007 Statut Membre Dernière intervention 18 juillet 2007 - 18 juil. 2007 à 09:19
A voir également:
- Convertir la virgule en point dans acces.
- Convertir chiffre en lettre arabe delphi ✓ - Forum Delphi / Pascal
- Csv point virgule ✓ - Forum VBA Office (Excel, Word ...)
- Point d'interrogation ✓ - Forum Java
- Python arrondir 2 chiffres après la virgule ✓ - Forum Visual Basic
- Affichage de deux chiffres après la virgule ✓ - Forum C# / .NET
3 réponses
cs_deubal
Messages postés
198
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
26 août 2009
18 mars 2004 à 11:14
18 mars 2004 à 11:14
tu devrais te servir du code ascii dans le keypress
un truc du style if keyascii=code1 then keyascii=code2
où code1 est la valeur de la virgule en ascii et code2 celle du point en ascii.
A+
Deubal
un truc du style if keyascii=code1 then keyascii=code2
où code1 est la valeur de la virgule en ascii et code2 celle du point en ascii.
A+
Deubal
jeromepol49
Messages postés
51
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
1 juin 2004
18 mars 2004 à 11:35
18 mars 2004 à 11:35
J'ai eu le même pb et j'ai créé une petite fonction comme suit:
Public Function ConversionVirgule(Nombre As String) As String
Dim DecompositionSingle() As String
DecompositionSingle = Split(Nombre, ",")
If UBound(DecompositionSingle) <> 0 Then
Nombre = DecompositionSingle(0) & "." & DecompositionSingle(1)
End If
ConversionVirgule = Nombre
End Function
Si tu veux traduire ta chaine en single tu fais:
Csng(chaine)
Public Function ConversionVirgule(Nombre As String) As String
Dim DecompositionSingle() As String
DecompositionSingle = Split(Nombre, ",")
If UBound(DecompositionSingle) <> 0 Then
Nombre = DecompositionSingle(0) & "." & DecompositionSingle(1)
End If
ConversionVirgule = Nombre
End Function
Si tu veux traduire ta chaine en single tu fais:
Csng(chaine)
Streptococcus
Messages postés
25
Date d'inscription
lundi 18 juin 2007
Statut
Membre
Dernière intervention
18 juillet 2007
18 juil. 2007 à 09:19
18 juil. 2007 à 09:19
Très pratique ce petit bout de code Jérôme...ça m'enlève une bonne épine du pied, donc bravo et merci...
