ARGH!
I want to add Currency together and it is doing the same thing, but instead of $128.21 it is saying $128.00
How frustrating. I changed the type from Currency to Number(data type), Single(field size), Currency(Format), and 2 (decimal places). And its fine, but now i dont get my "$" sign.
BUT
My form adds some costs and displays as $1245.00(should be $1245.21) when i dim the POCost as Integer and dim it as a string it shows 1245.206, no $ sign and decimal set to 2 but shows 3!
heres a snippet of my calc
****
Private Sub Form_Current()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strFirst, strNext As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT POTotal FROM tblPO WHERE POLastStatus < 6"
If (rst.BOF And rst.EOF) Then
Me.Text30 = 0
Exit Sub
Else
rst.MoveFirst
strFirst = rst!POTotal
rst.MoveNext
Do While Not rst.EOF
strNext = strFirst + rst!POTotal
Me.Text30 = strNext
strFirst = strNext
rst.MoveNext
Loop
End If
rst.Close
Set rst = db.OpenRecordset("SELECT POTotal FROM tblPO WHERE POLastStatus = 6"
If (rst.BOF And rst.EOF) Then
Me.Text33 = 0
Exit Sub
Else
rst.MoveFirst
strFirst = rst!POTotal
rst.MoveNext
Do While Not rst.EOF
strNext = strFirst + rst!POTotal
Me.Text33 = strNext
strFirst = strNext
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing
db.Close
End Sub
****
any assistance would be appreciated.