Option Explicit
Private Sub TextBox1_Change()
On Error Resume Next
If Me.textbox2.Text = "" Then
Me.TextBox3.Text = Me.textbox1.Text
Else
Me.TextBox3.Text = CDbl(Me.textbox1.Text) * CDbl(Me.textbox2.Text)
End If
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
If Me.textbox1.Text = "" Then
Me.TextBox3.Text = Me.textbox2.Text
Else
Me.TextBox3.Text = CDbl(Me.textbox1.Text) * CDbl(Me.textbox2.Text)
End If
End Sub
Postado : 29/01/2018 12:20 pm