Automatically update textboxes on userform

[mmix803]

I am new to vba. Is it possible to automatically update textboxes on userform. I have a qtytxt textbox multiplying a ratetxt textbox = amounttxt textbox. If you put in the qtytxt textbox (10) time ratetxt textbox ($10.00) = amounttxt textbox ($100.00) then go back to change either the qty or rate so that the amounttxt shows the correct value after you update it.

 

[DanteAmor]

Try:

Private Sub qtytxt_Change()
  Call updateAmount
End Sub
Private Sub ratetxt_Change()
  Call updateAmount
End Sub

Sub updateAmount()
  Dim q As Double, r As Double
  If qtytxt <> "" And IsNumeric(qtytxt) Then
    q = CDbl(qtytxt)
  End If
  If ratetxt <> "" And IsNumeric(ratetxt) Then
    r = CDbl(ratetxt)
  End If
  amounttxt = q * r
End Sub

 

[pitchoute]

You can update it like this, could you please try and share the result?

Private Sub qtytxt_Change()
    Call UpdateAmount
End Sub

Private Sub ratetxt_Change()
    Call UpdateAmount
End Sub

Private Sub UpdateAmount()
    Dim qty As Double
    Dim rate As Double
    Dim amount As Double

    If IsNumeric(qtytxt.Text) Then
        qty = CDbl(qtytxt.Text)
    Else
        qty = 0
    End If

    If IsNumeric(ratetxt.Text) Then
        rate = CDbl(ratetxt.Text)
    Else
        rate = 0
    End If

    amount = qty * rate

    amounttxt.Text = Format(amount, "Currency")
End Sub

 

[mmix803]

Try:

Private Sub qtytxt_Change()
  Call updateAmount
End Sub
Private Sub ratetxt_Change()
  Call updateAmount
End Sub

Sub updateAmount()
  Dim q As Double, r As Double
  If qtytxt <> "" And IsNumeric(qtytxt) Then
    q = CDbl(qtytxt)
  End If
  If ratetxt <> "" And IsNumeric(ratetxt) Then
    r = CDbl(ratetxt)
  End If
  amounttxt = q * r
End Sub
[/CO
[/QUOTE]

You can update it like this, could you please try and share the result?

Private Sub qtytxt_Change()
    Call UpdateAmount
End Sub

Private Sub ratetxt_Change()
    Call UpdateAmount
End Sub

Private Sub UpdateAmount()
    Dim qty As Double
    Dim rate As Double
    Dim amount As Double

    If IsNumeric(qtytxt.Text) Then
        qty = CDbl(qtytxt.Text)
    Else
        qty = 0
    End If

    If IsNumeric(ratetxt.Text) Then
        rate = CDbl(ratetxt.Text)
    Else
        rate = 0
    End If

    amount = qty * rate

    amounttxt.Text = Format(amount, "Currency")
End Sub

You can update it like this, could you please try and share the result?

Private Sub qtytxt_Change()
    Call UpdateAmount
End Sub

Private Sub ratetxt_Change()
    Call UpdateAmount
End Sub

Private Sub UpdateAmount()
    Dim qty As Double
    Dim rate As Double
    Dim amount As Double

    If IsNumeric(qtytxt.Text) Then
        qty = CDbl(qtytxt.Text)
    Else
        qty = 0
    End If

    If IsNumeric(ratetxt.Text) Then
        rate = CDbl(ratetxt.Text)
    Else
        rate = 0
    End If

    amount = qty * rate

    amounttxt.Text = Format(amount, "Currency")
End Sub

Works awesome. Thank you. I am a access person and learning vba and userforms are a challenge to me. Access to me is easier. Many thanks. I am not as sharp as I used to be. Getting old sucks...LOL

 

[DanteAmor]

Works awesome

Apparently they copied my code from post #2, I only see that they added the format, in which case, here is the format:

amounttxt = format(q * r, "Standard")

Note: rate = 0, It is not necessary, since when declaring the variable, the initial value is 0.