Discussion :

[pra3t0r]

Bonjour,

Alors voila, j'ai une base de donnée Access 97 avec des prix etc et dans ma form je fais une requête pour afficher un prix dans un label. A coté de ce label, j'ai une textbox dans laquelle je définis combien de fois je veux le prix (c'est un logiciel de réservation de place).
La logique voudrais que je déclare une variable "place1" de type double où je stockerai le calcul Place1 =val(label) * val(textbox)
Le problème c'est que quand j'ai un prix sous forme décimal ( 7,5 par exemple), je fais => Place1 = 7,5 * 2
Au lieu de m'afficher 15 il m'affiche 14 comme si c’était 7 * 2

Dois-je faire un réglage spécial? Sachant que dans ma bdd, le type de mes champs sont numérique et de type réel double

Merci pour votre aide,

J’espère qu'un sujet similaire n'as pas déjà été traité, j'avoue que je n'ai pas eu le temps de rechercher dans le forum

[ProgElecT]

Salut
Tu as un problème de séparateur décimal.
Essais

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
16
17
18
19
20
21
22
Private Sub Form_Load()
Dim Don1 As String, Don2 As String
Dim Msg As String
 
Don1 = "7.5": Don2 = "2"
Msg = "L'operation: " & CStr(Don1) & " * " & CStr(Don2) & vbCrLf _
        & "Val(Don1) * Val(Don2)  =" & Val(Don1) * Val(Don2) _
        & vbCrLf & "Bon"
MsgBox Msg, vbInformation
 
Don1 = "7,5"
Msg = "L'operation: " & CStr(Don1) & " * " & CStr(Don2) & vbCrLf _
        & "Val(Don1) * Val(Don2)  =" & Val(Don1) * Val(Don2) & vbCrLf _
        & "Pas bon"
MsgBox Msg, vbInformation
 
Msg = "L'operation: " & CStr(Don1) & " * " & CStr(Don2) & vbCrLf _
        & "Csng(Don1) * Val(Don2)  =" & CSng(Don1) * Val(Don2) & vbCrLf _
        & "Bon"
MsgBox Msg, vbInformation
 
End Sub

Les variables ont été déclarées en String car tes calculs sont basés sur un Label et un TextBox qui renvoient un littéral, non un numérique.

le calcul Place1 =val(label) * val(textbox) modifies le en

Code :

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

Place1 = CSng(Label.Caption) * CSng(TextBox.Text)

[pra3t0r]

donc si je comprend bien, il suffit juste de remplacer mon exemple par :
Place1 = CSng(Label.Caption) * CSng(TextBox.Text)
pour que mon calcul (place1) soit juste?

[ProgElecT]

Oui, mais si tu dois déployer sur différents ordinateur, il faudra peut être vérifier (par code) le séparateur utilisé sur chacun et agir en conséquence.

[pra3t0r]

Donc une fois que mon projet sera fini, si je le déploie avec le setup, ça marchera pas partout? Enfin cette partie avec le calcul?

[ProgElecT]

Il me semblait bien
Regardes ce Post Addition de textbox, c'est la solution pour un déploiement sur des ordinateurs avec séparateur décimaux différent.

[pra3t0r]

Salut,

Donc le code du post je dois le mettre dans ma form et quand je déploierai mon projet, je pourrai l'installer sur tous types de pc?

[iclic]

Bonjour,

L'instruction VAL ne reconnaît comme séparateur décimal que le point.La virgule étant considéré comme caractère alphanumérique,la lecture du nombre s'arrête à la virgule.

Une autre solution qui convient pour tout consiste à utiliser l'instruction Replace pour remplacer la virgule par un point.

Code :

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

1
2
3
4
 
label = replace(label,",",".")
textbox=replace(textbox,",",".")
Place1 =val(label) * val(textbox)

ce qui donne la réponse correcte.

[pra3t0r]

D'accord, je vais plutôt faire comme ça

Merci beaucoup