calculate vba userform type mismatch when decimal is entered

  • Thread starter Thread starter Pam
  • Start date Start date
P

Pam

I have a vba userform that I want to calculate fields.
I have a quantity, unit price, and want the calculation to be in the
extended price field.
I'm using the following code, and it works great, as long as you use a
number not starting with a decimal. ie.. I can input 1 x 1.50 and it works,
or I can enter 1 x 0.50 and it works, but if I enter 1 x .5 it errors out as
a type mismatch.
What am I doing wrong?
Thank you

Private Sub Txtitemunit1_Change()
If Me.TxtItemQty1.Value <> "" Then
Me.TxtItemExt1.Value = Me.TxtItemUnit1.Value * Me.TxtItemQty1.Value
End If
End Sub
 
The problem lies with the empty box which is text, text * value = Error !!

so try the following to force values ....

Me.TxtItemExt1.Value = Val(Me.TxtItemUnit1.Value) *
Val(Me.TxtItemQty1.Value)
 
Back
Top