Format decimal Résolu

Question

Bonjour, 
J'ai une autre préoccupation.
J'ai conçu grâce à vous sous access, un petit programme ou logiciel de gestion des évaluations au primaire.
Voici mon soucis
Lorsque j'installe le logiciel dans un autre ordinateur je suis obligé d'aller dans le panneau de configuration puis entrer dans modifier le format de nombre de l'ordinateur pour changer le Symbole décimal ou le séparateur de liste, sinon les champs contenant les moyennes et les rangs affichent Erreur. 
Je fais cet exercice à chaque fois que je change d'ordinateur.
J'ai inséré dans un module ce code que voici :

Function DecimalSep() As String
  DecimalSep = Mid$(1 / 2, 2, 1)
End Function

Function NumberUS(ByVal varValue As Variant) As String
    NumberUS = Replace(Str(varValue), DecimalSep(), ".")
End Function

Mais malgré ce code je suis obligé de faire le même exercice à chaque fois que je change d'ordinateur.
Alors que faire pour éviter à chaque fois de modifier le symbole décimal du nouvel ordinateur dans lequel j'installe le logiciel?
Espérant recevoir une réponse, recevez mes sincères remerciements pour les réponses précédentes qui m'ont beaucoup aidé ainsi que ma très haute considération


Configuration: Windows / Firefox 57.0

castours · Answer

bonjour
tu peux créer le format du champ numerique dans ces propriétés lors de sa creation

yg_be · Answer

bonjour,  quel est le type des champs numériques dans tes tables? (les champs utilisés dans les formules calculant les moyennes et les rangs)

yg_be · Answer

c'était une bonne idée d'ajouter du code dans un module, et il faut l'utiliser.
exemple:
=DCount("*";"[R_EVA1]";"[MOY1]>" & NumberUS([MOY1]))+1

private Function DecimalSep() As String 
DecimalSep = Mid$(1 / 2, 2, 1) 
End Function

Function NumberUS(ByVal varValue As Variant) As String 
NumberUS = Replace(Str(varValue), DecimalSep(), ".") 
End Function

yg_be · Answer

autre possibilité:
=DCount("*";"[R_EVA1]";"round(1000*[MOY1],0)> " & Round(1000*[MOY1];0))+1

Format decimal

4 réponses

Newsletters