champ monétaire dans base access, les virgules

Question

Bonjour,
j'ai un petit probleme de compatibilit&#233; ou je ne sais trop quoi !!

j'utilise un serveur local pour test&#233;
mes codes sur une base Access, sur ma machine j'ai pas de probleme, mais si je met mon code en ligne et bien on dirais qu.il ne prend pas le montant que je lui donne ..........il ne met pas les point(.) ou les virgiule a la bonne place.
si j'entre 9,99 et bien sur le code en ligne il va me donner 999
ou 10,99 il va me donner 1099

je fais un replace(var,".",",")
de tout bord tout cot&#233;......mais rien ne change.

j'ai aussi essay&#233; les session.LCID = 3084
sans succes aussi

avez-vous une id&#233;e ??

nirega

PCPT · Answer

salut,


ton probl&#232;me ressemble plus &#224; un type de champ non-ad&#233;quat plut&#244;t qu'&#224; une mauvaise interpr&#233;tation du s&#233;parateur mon&#233;taire.....





PCPT    [AFCK]

cs_nirega · Answer

tu veux dire quoi par la ?? un champ non-ad&#233;quat ?

nirega

PCPT · Answer

un "type". dans ta base elle-m&#234;me.

cs_pluplu · Answer

Chose importante, Access se base sur les s&#233;parateurs correspondants au code pays de la machine sur laquelle il est, pour cela si on utilise des formats fixe de date et de s&#233;parateur dans une application, et que le code pays de la machine sur laquelle la base se trouve est diff&#233;rent on rencontre des probl&#232;me de ce genre. Le mieux dans une application c'est de r&#233;cup&#233;rer directement ces &#233;l&#233;ments au d&#233;marrage et de format&#233; ces champs de date et de nombre en fonction.


'-------------------------------------------------------------------------
' Fonction qui retourne une valeur de type string depuis la registry
'-------------------------------------------------------------------------
Public Function mRegistry_QueryValueKeyString(Key As Long, SubKey As String, _
                                              Name As String) As String


Dim lRetVal As Long
Dim hKey    As Long
Dim sRetTxt As String
Dim lRetTxt As Long


    If Trim(Right(SubKey, 1)) <> "" Then
        SubKey = SubKey & ""
    End If
    lRetVal = RegOpenKeyEx(Key, SubKey, 0&, KEY_READ, hKey)
    sRetTxt = String(4096, 32)
    lRetTxt = Len(sRetTxt)
    lRetVal = RegQueryValueExString(hKey, Name, 0&, REG_SZ, sRetTxt, lRetTxt)
    lRetVal = RegCloseKey(hKey)
    mRegistry_QueryValueKeyString = Trim(Left(sRetTxt, lRetTxt - 1))
    
End Function

'Retrouve le s&#233;parateur Decimal utilis&#233;
SepDec = mRegistry_QueryValueKeyString(&H80000001, "Control Panel\International", "sMonDecimalSep")

'Retrouve le s&#233;parateur de date utilis&#233;
SepDate = mRegistry_QueryValueKeyString(&H80000001, "Control Panel\International", "sDate")

'Retrouve le s&#233;parateur de milier utilis&#233;
SepMil = mRegistry_QueryValueKeyString(&H80000001, "Control Panel\International", "sMonThousandSep")

'Retrouve le format de date (court)
ShortDate = mRegistry_QueryValueKeyString(&H80000001, "Control Panel\International", "sShortDate")

Pascal Lauren&#231;on

Champ monétaire dans base access, les virgules

4 réponses

Discussions similaires