请教各位高手:如何求合计?

附件中有一个表,要求项目小计,具体是:
表中项目为1\1.3\1.4\1.4.3四个发生额要求合计.其中,
项目1是项目1.1+项目1.2+项目1.3+项目1.4的发生额;
项目1.3是项目1.3.1+项目1.3.2+项目1.3.3的发生额;
项目1.4是项目1.4.1+项目1.4.2+项目1.4.3的发生额;
项目1.4.3是项目1.4.3.1+项目1.4.3.2+项目1.4.3.3的发生额.
我写了一个查询:
"SELECT 表1.ID, 表1.项目, 表1.发生额, 表1.上级ID, IIf((select count(*) from 表1 as A where 上级ID=表1.ID)=0,发生额,(select sum(发生额) from 表1 as A where 上级ID=表1.ID)) AS 小计 FROM 表1"
可以正确计算出项目1.4.3和1.3的合计,但无法正确项目1和1.4的合计.
请各位老师在百忙中抽时间帮看一下,应该如何写这个查询.如果用查询做不到的话,如何用VBA代码将计算结果更新到表中.
在这里先谢谢!