Adding vs Concatenate

[Maxi]

Private Sub CmbBxOpening_Change()
TxtBxWTOpening = Format(CmbBxOpening.Value / 3 * 5, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub

Private Sub CmbBxPolicy_Change()
TxtBxWTPolicy = Format(CmbBxPolicy.Value / 1 * 8, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub


In the Tscore1 textbox, I am getting a concatenation of what is
entered in TxtBxWTOpening and TxtBxWTPolicy.

When I select 1 in the CmbBxOpening combo box, I get 1.67 in
TxtBxWTOpening
When I select 1 in the CmbBxPolicy combo box, I get 8.00 in
TxtBxWTPolicy

when I add them, instead of getting 9.67, i am getting 1.678.00 which
is a concatenation. Can anyone help?

 

[Guest]

The combobox store the number as text instead of numbers. If you are reading
the values from the combo box you must convert the text to numbers before you
add them. Simply do what you have already done in tthe code posted. Use the
Val function. total = val(Combobox1.text) + val(Combobox2.text)

 

[Maxi]

thank you so much for your help

The combobox store the number as text instead of numbers. If you are reading
the values from the combo box you must convert the text to numbers before you
add them. Simply do what you have already done in tthe code posted. Use the
Val function. total = val(Combobox1.text) + val(Combobox2.text)









- Show quoted text -