Set Text Box to work as a Calculator

[ottograham]

I have a table for Insurance Claims and fields for dollar amounts. I often have to sum many payments to get the total paid before entering.

I want to use the Before Update method to test the input: if it starts with "=", then execute the string and enter the number in the field (e.g "= 2111 + 333+ 4444&quot.

What is the code to execute the string?

Thank you in advance for your help.

 

[smedvid]

Not sure, but u can look at EVAL() to evaluate the contents of a string. htwh Steve Medvid
"IT Consultant & Web Master"

http://users.erols.com/medvid/

 

[ottograham]

Steve:

That works... thanks

I'm getting an error that its an invalid field type

The code follows: What am I doing wrong.

Thanks!

Private Sub Paid_BeforeUpdate(Cancel As Integer)

Dim str As String
Dim ans As Single

str = Me.Paid
If "=" = Left(str, 1) Then
ans = Eval(Mid(str, 2))
Me.Paid = ans
Else
End If
End Sub

 

[smedvid]

Private Sub Command1_Click()
Dim str As String
Dim ans As Single
str = Me.paid
If "=" = Left(str, 1) Then
ans = Eval(Mid(str, 2))
Me.paid = ans
Else
End If
End Sub

seems to work on 4 me. I created a form with a paid text box. Steve Medvid
"IT Consultant & Web Master"

http://users.erols.com/medvid/

 

[ottograham]

Steve:

I simplified it and used an inputbox and double click. It works great. The EVAL() was what I needed. Thanks again