一个较复杂点的金额计算问题，金额随着长宽高及单位的修改而更改

以下是本人在网站上找的其它人的代码，金额=单价*数量，，现在又想加上长宽高，请各位帮邦忙

Option Compare Database
Option Explicit
'示例作者：Accessoft-红尘如烟
'技术站点：http://www.accessoft.com
'公司站点：http://www.umvps.com
'日期：    2010-11-19
'------------------------------------------------------------------------------------------------------------
'实现功能的主要代码如下--------------------------------------------------------------------------------------
'删除订单明细记录后重新计算




Private Sub Form_AfterDelConfirm(Status As Integer)
    Call 计算订单金额
End Sub




'记录更新后重新记算（因为添加记录也会触发更新后事件，所以添加、修改记录后都能触发重新计算）
Private Sub Form_AfterUpdate()
    Call 计算订单金额
End Sub


'通过子过程来自动计算订单总金额
Sub 计算订单金额()
    Dim rst As Object
    Dim curSum As Currency




    If Me.Dirty Then Me.Dirty = False               '如果当前处理未保存状态，先进行保存
    Set rst = Me.RecordsetClone                     '打开订单明细窗体的记录集副本，这样不对当前记录的显示等造成影响
    If rst.RecordCount <> 0 Then rst.MoveFirst      '如果订单明细记录不为空，先移到第一条记录
    Do Until rst.EOF                                '循环所有记录至到最后一行记录
        curSum = curSum + rst!单价 * rst!数量   '对每一行记录中的金额（售价x销售数量）进行累加
        rst.MoveNext
    Loop


    Me.Parent!订单金额 = curSum                     '将父窗体（即订单窗体）中的“订单金额”的值设为最后累加的值
    Set rst = Nothing
End Sub


'将空值转成0，避免空值造成的计算错误
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If IsNull(Me!单价) Then Me!单价 = 0
    If IsNull(Me!数量) Then Me!数量 = 0
End Sub
Private Sub Form_Load()
    '必须要选中此选项，否则删除确认事件不会发生
    If Not GetOption("Confirm Record Changes") Then
        SetOption "Confirm Record Changes", True
        DoCmd.SetWarnings False
    End If
End Sub
Private Sub 金额_AfterUpdate()
Me.单价 = Round(Me.金额 / Me.数量, 5)
End Sub


Private Sub 单价_AfterUpdate()
Me.金额 = Round(Me.单价 * Me.数量, 2)
End Sub


Private Sub 数量_AfterUpdate()
Me.金额 = Round(Me.单价 * Me.数量, 2)
End Sub