# Thread: Calculations between Textbox values on Form

1. ## Calculations between Textbox values on Form

Hi

I have a form where users input various values and the data is written to a hidden sheet.

One of the checks carried out is to 2 textboxes on the form. The user inputs numeric values to each textbox. The code then checks that the customer deposit is not more than the asset cost. However, no matter what value is input as the deposit, the code always thinks it is greater than the asset cost. I can't see why this should happen.
```Private Sub txbDeposit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'checks the value of the deposit against the asset cost
If txbDeposit.Value > txbAssCost.Value Then 'if the deposit is more than the cost...
MsgBox "The deposit is greater than the cost - please check.", 48, "Invalid Input - Deposit Amount"
Cancel = True
With txbDeposit
.Value = ""
.SetFocus 'reset the focus back to the empty field
End With
Else
If txbAssCost.Value = "" Or txbAssCost.Value = 0 Then 'if the Asset Cost textbox is empty then...
MsgBox "An Asset Cost amount must be entered.", 48, "Calculation Error - Asset Cost Field"
Cancel = True
txbAssCost.SetFocus 'reset the focus back to the empty field
End If
'if the input is OK, update some sheet values...
txbFinance.Value = txbAssCost - txbDeposit 'works out the value to be financed
txbDeposit.Value = Format(txbDeposit.Value, "#,##0") 'formats the deposit field
lbPercentage.Caption = Format((frmMain.txbDeposit.Value / _
frmMain.txbAssCost.Value) * 100, "#,##0.00") & "%" 'calculates the deposit %age
lbPercentage.Visible = True 'shows the %age box
Sheets("Form").Range("B10").Value = txbDeposit.Value
End If
End Sub```
I'd be grateful if anyone could point out my latest explosion of stupidity.

2. Try converting the textbox values to numbers. Like
[VBA]If CSng(txbDeposit.Value) > CSng(txbAssCost.Value) Then[/VBA]

Jimmy

3. Jimmy

Thank you. Obviously too simple an idea for my brain to cope with!

Cheers!

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•