VBA Clear textboxes problem...

[paroduso]

Hi everyone...im facing a problem when triyng to clear all the textboxes with a click event...
i triyed a loto of codes and none of them worked...with this exemple im facing a overflow error...

Private Sub TextBox1_Change()

TextBox3 = TextBox1

TextBox7 = Val(TextBox6) / Val(TextBox3) * Val(TextBox4) * Val(TextBox5)
TextBox7 = Replace(Format(Val(TextBox6) / Val(TextBox3) * Val(TextBox4) * Val(TextBox5), "0.0000"), ",", ".")

End Sub

Private Sub TextBox2_AfterUpdate()

TextBox3 = CDbl(TextBox1) + CDbl(TextBox2)

TextBox7 = Val(TextBox6) / Val(TextBox3) * Val(TextBox4) * Val(TextBox5)
TextBox7 = Replace(Format(Val(TextBox6) / Val(TextBox3) * Val(TextBox4) * Val(TextBox5), "0.0000"), ",", ".")

End Sub

Private Sub TextBox3_Change()

TextBox3 = Abs(Val(TextBox1) - Val(TextBox2))

End Sub

Private Sub TextBox6_Change()

TextBox7 = Val(TextBox6) / Val(TextBox3) * Val(TextBox4) * Val(TextBox5)
TextBox7 = Replace(Format(Val(TextBox6) / Val(TextBox3) * Val(TextBox4) * Val(TextBox5), "0.0000"), ",", ".")

End Sub

Private Sub CommandButton1_Click()

Dim x As Integer
For x = 1 To 19
   Select Case x
     Case 8, 9
         ' do nothing
     Case Else
         Me.Controls("textbox" & x).Value = ""
   End Select
Next x

End Sub

in textox4 the value must be 1.008 and textbox5 1000

can you help me?

thank you.

 

[GWteB]

You make calculations that change the content of the various text boxes. The moment you delete the content of one of those text boxes, it directly affects the calculations to be made in those other text boxes. You might as well have gotten a division by zero message. Advice: make the desired calculations in separate procedures and place just the result in the text box. This applies to all text boxes.

 

[paroduso]

You make calculations that change the content of the various text boxes. The moment you delete the content of one of those text boxes, it directly affects the calculations to be made in those other text boxes. You might as well have gotten a division by zero message. Advice: make the desired calculations in separate procedures and place just the result in the text box. This applies to all text boxes.

thank you for the reply...i was just thinking about that...thank you very mutch

 

[GWteB]

You are welcome and thanks for the feedback.