لقد عملت هذا الكود ليتم توزيع مبلغ 100 ريال على العملاء الغير مجمدين بناء على مجموع ما تم سداده شهريا لكل عميل :
CurrentDb.Execute "UPDATE Proces SET Proces.Rebh = Proces.Rebh +" & 100 & "* Proces.pamount /" & DSum("pamount", "Proces") & " WHERE (((proces.Mojammad)=" & False & "));"ولكن عند التوزيع يتم توزيع المبلغ ناقص أي أقل من 100 ريال على العملاء الغير مجمدين ، والمطلوب تعديل الكود السابق ليتم توزيع المبلغ كامل وهو 100 ريال على العملاء الغير مجمدين .