A simple one (I Hope)

[baynham]

I am trying to add the number i have got in a textbox to a number in my database. Somone gave me this code but it does not seem to work

Dim mynewnumber As Integer
mynewnumber = myoldnumber + Text1.Text



Private Sub Command1_Click()
Data1.Recordset.Edit
Data1.recordest.score = myoldnumber
Text1.Text = mynewnumber
Data1.Recordset.score.myoldnumber = mynewnumber
Data1.recordest.Update


End Sub

Please can u help.
later mike

[HunterMcCray]

Originally posted by baynham
I am trying to add the number i have got in a textbox to a number in my database. Somone gave me this code but it does not seem to work

Dim mynewnumber As Integer
mynewnumber = myoldnumber + Text1.Text



Private Sub Command1_Click()
Data1.Recordset.Edit
Data1.recordest.score = myoldnumber
Text1.Text = mynewnumber
Data1.Recordset.score.myoldnumber = mynewnumber
Data1.recordest.Update


End Sub

Please can u help.
later mike

You are trying to force types, sometimes it works, sometimes it doesn't to be sure that it works use the formal syntax:

Dim mynewnumber As Integer
Dim myoldnumber as Integer

mynewnumber = myoldnumber + Val(Trim(Text1.Text))


The Val function should trim the text string of leading blanks, but it doesn't take much effort to trim it.

Hunter

[HeSaidJoe]

If you are performing math on textbox data, you have to remember that anything in a textbox is automatically a string.
You cannot do calculations on strings. You can use the Val function as stated above, also, you should check out the cInt, cDbl, cLng functions as well.

These functions convert a string to an integer, double, or long
Ie.

mynewnumber = myoldnumber + cInt(Text1.Text) 'integer
mynewnumber = myoldnumber + cDbl(Text1.Text) 'doubles
mynewnumber = myoldnumber + cLng(Text1.Text) 'long