basic textbox property

bem2x · August 22nd, 2006, 10:28 PM

What is wrong with my code?

Private Sub Form_Load()
Dim y, y1, y2 As Double

y1 = Val(txtGencharge.Text)
y2 = Val(txtFranchise.Text)
y = y1 + y2
txtGencorev.Text = Str$(y)
End Sub

I want to work is this way. As the form loads, the user will enter values at txtGencharge and at txtFranchise. As the user tabs to another field inside the form, the textbox txtGencorev.Text displays the variable y without clicking any button.

Thank you!

BrianWren · August 23rd, 2006, 11:17 AM

First of all with

Code:

    Dim y, y1, y2 As Double

y and y1 are Variants. Only y2 is a Double.

Your code fills in txtGencorev.Text when the form first opens. Move everything to a different location.

Code:

Private Sub Form_Load()
End Sub
ââââââââââââââââââââââââââââââââââââââââ
Private Sub txtGencharge_LostFocus()

    Dim y As Double, y1 As Double, y2 As Double

    y1 = Val("0" & txtGencharge.Text)  ' Protect against an empty control.
    y2 = Val("0" & txtFranchise.Text)  ' Protect against an empty control.
    y = y1 + y2
    txtGencorev.Text = CStr(y)

End Sub
ââââââââââââââââââââââââââââââââââââââââ
Private Sub txtFranchise_LostFocus()

    Dim y As Double, y1 As Double, y2 As Double

    y1 = Val("0" & txtGencharge.Text)  ' Protect against an empty control.
    y2 = Val("0" & txtFranchise.Text)  ' Protect against an empty control.
    y = y1 + y2
    txtGencorev.Text = CStr(y)

End Sub

But perhaps better:

Code:

Private Sub Form_Load()
End Sub
ââââââââââââââââââââââââââââââââââââââââ
Private Sub txtGencharge_LostFocus()

    txtGencorev.Text = CStr(CDbl("0" & txtGencharge.Text) + _
                            CDbl("0" & txtFranchise.Text))

End Sub
ââââââââââââââââââââââââââââââââââââââââ
Private Sub txtFranchise_LostFocus()

    txtGencorev.Text = CStr(CDbl("0" & txtGencharge.Text) + _
                            CDbl("0" & txtFranchise.Text))

End Sub