Hey Everyone, I solved the problem by using a filtered Dsum on the query that fills the form to fill the Amount variable and it worked.
Amount = Nz(DSum("Amount", "MyQuery", "TransactionDetails.ID = " & Me!ID & ""), 0)
Thanks for your help. This was a puzzler...