Convert combo box selection to numeric data type

[instructorTek]

Hi all I have a combo box that is updating text boxes on a form and after the user makes their selections a button is clicked and the sum of the numbers in the text boxes are found. My problem is that although the information selected from the combo box is a number (this comes from a table), when it updates the text boxs it seems to do so as text, because when I click the button to find the sum of the numbers, I am just getting a concatenation of values rather than an addition. E.g. 2 + 2 = 22
What can I do to get the sum being performed?

Option Compare Database
Dim Cost, PriceCam, PriceCase as Single

‘The user makes a selection
Private Sub cboSelect_AfterUpdate()
txtPriceCase.SetFocus
Me![txtPriceCase].Value = Me![cboSelect].Column(3)
PriceCase = txtPriceCase.Value
Me![txtPriceCam].Value = Me![cboSelect].Column(4)
PriceCam = txtPriceCam.Value
Me.Refresh
End Sub

‘The user clicks here to find the sum
Private Sub cmdCost_Click()
txtCost.SetFocus
Cost = PriceCam + PriceCase
txtCost.Value = Cost
End Sub

 

[instructorTek]

Is there some way? I really, really need to be able to perform the addition.

 

[JoeAtWork]

Use one of the conversion functions:

Private Sub cmdCost_Click()
  If IsNumeric(PriceCam) And IsNumeric(PriceCase) Then
    txtCost.SetFocus
    Cost = CLng(PriceCam) + CLng(PriceCase)
    txtCost.Value = Cost
  End If
End Sub

If there are decimal places you might use CCur() or CDbl() instead of CLng.

 

[JoeAtWork]

Me again.

Just noticed your Cost variable is a Single, so you might want to use CSng().

 

[PHV]

I'd use this:
Cost = Val(PriceCam) + Val(PriceCase)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886