Error 13 - Type Mismatch

[tigerdel]

In my UserForm I have a number TextBoxes and ComboBoxes and I am trying to get 2 TextBoxes to sum values

A – [txtQty] Quantity entered by user
B – [cmbMarkUp] Mark Up chosen by User
C – [txtPrice] Unit Price added by code
D – [txtMarkUp] Code below
E – [txtTotal] Code below

For D & E, I added the following code but get the Error 13 - Type mismatch error

Private Sub cmbMarkUp_Change()
txtMarkUp.Value = txtPrice.Value * (1 + cmbMarkUp.Value)
txtTotal.Value = txtPrice.Value * txtQty
End Sub

Any ideas??

Many thanks

 

[dmt32]

Hi,
what you have in your textbox & combobox is Text - try using a type conversion function to coerce your text to the required data type & see if this resolves your issue

Private Sub cmbMarkUp_Change()
    txtMarkUp.Value = Val(txtPrice.Value) * (1 + Val(cmbMarkUp.Value))
    txtTotal.Value = Val(txtPrice.Value) * Val(txtQty)
End Sub

The Val function stops reading the string at the first character that it is not able to recognize as part of a number or if no valid numeric value, it returns Zero.

Dave

 

[mohadin]

Hi
Try some thing like this

TextBox3 = TextBox1 * 1 + TextBox2 * 1

 

[tigerdel]

Hi,
what you have in your textbox & combobox is Text - try using a type conversion function to coerce your text to the required data type & see if this resolves your issue

Private Sub cmbMarkUp_Change()
    txtMarkUp.Value = Val(txtPrice.Value) * (1 + Val(cmbMarkUp.Value))
    txtTotal.Value = Val(txtPrice.Value) * Val(txtQty)
End Sub

The Val function stops reading the string at the first character that it is not able to recognize as part of a number or if no valid numeric value, it returns Zero.

Dave

Thanks Dave
That did kind of work except for some reason it txtMarkUp.Value has the decimal place one to the right

i.e. I added one item at 28.8 and added 10% from cmbMarkup and instead of 31,68 in txtMarkUp it shows 316.8

Any ideas??

 

[dmt32]

I added one item at 28.8 and added 10% from cmbMarkup and instead of 31,68 in txtMarkUp it shows 316.8

Any ideas??

try dividing cmbMarkup by 100 and see if that resolves

txtMarkUp.Value = Val(txtPrice.Value) * (1 + Val(cmbMarkUp.Value) / 100)

Dave

 

[tigerdel]

Perfect thanks