[5分]希望“西出阳关无故人”老师再指点一下

因为原帖http://www.accessoft.com/bbs/showtopic.asp?id=32090不能上传图片附件，我在这里重新再发一个提问帖，希望得到“西出阳关无故人”老师的指导。

R20000 = $5
R10000 =$2.5
R5000 = $1.25
R2000 = $0.5
R1000 =$0.25
R500 = $0.125

R100 = $0.025

我用下面的方法进行计算
DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.U100 = Int(round([应发],1)/100);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.U50 = Int((round([应发],1)-U100*100)/50);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.U20 = int((round([应发],1)-U100*100-U50*50)/20);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.U10 = Int((round([应发],1)-U100*100-U50*50-U20*20)/10);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.R2W = Int((round([应发],1)-U100*100-U50*50-U20*20-U10*10)/5);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.R1W = Int((round([应发],1)-U100*100-U50*50-U20*20-U10*10-R2W*5)/2.5);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.R5K = Int((round([应发],1)-U100*100-U50*50-U20*20-U10*10-R2W*5-R1W*2.5)/1.25)"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.R2K = Int((round([应发],1)-U100*100-U50*50-U20*20-U10*10-R2W*5-R1W*2.5-R5K*1.25)/0.5);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.R1K =Int((round([应发],1)-U100*100-U50*50-U20*20-U10*10-R2W*5-R1W*2.5-R5K*1.25-R2K*0.5)/0.25);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.Hu5 = Int((round([应发],1)-U100*100-U50*50-U20*20-U10*10-R2W*5-R1W*2.5-R5K*1.25-R2K*0.5-R1K*0.25)/0.125);"
    DoCmd.RunSQL "UPDATE Source_FaceValueDistributionPlan SET Source_FaceValueDistributionPlan.Hu1 = 100*int(40*([应发]-U100*100-U50*50-U20*20-U10*10-R2W*5-R1W*2.5-R5K*1.25-R2K*0.5-R1K*0.25-Hu5*0.125)+0.5)/100;"


得到了一些数据为-1的结果。这显然是错误的。
希望得到纠正指导！

再次感谢“西出阳关无故人”老师在原帖的耐心回复！