i have a sql below what i need runsum figure with 2 decimal places.
Private Sub Form_Close()
Dim StrSql As String
StrSql = "UPDATE (SELECT Purchase.Product, Purchase.PQty, Purchase.PRunTot "
StrSql = StrSql & "FROM Purchase ORDER BY Purchase.Product, Purchase.PDate, "
StrSql = StrSql &...