You are going about this wrong. The balance remaining shouldn't be stored. it should be calculated:
=DSum("[charges]","table","[PatientID] = " & Me.Patient & " AND [FeeDate] > #" & DateSerial("Year(Date()),1,1 & "#")-500
This will give you a negative figure until the total charges for the year...