请问我代码问题出左那？？？

stvent

请问一段代码如何优化 Private Sub 出库数量_AfterUpdate() '====================================================================== '检验库存量 '====================================================================== Dim x%, y%, z% If Not IsNull(Me.出库数量) Then x = DLookup("[现有库存]", "库存", "[物料编号]='" & Me.[物料编号] & "'") y = DLookup("[安全库存]", "库存", "[物料编号]='" & Me.[物料编号] & "'") z = DLookup("[周期消耗量]", "库存", "[物料编号]='" & Me.[物料编号] & "'") If Me.出库数量 > x Then MsgBox "所选择物料[" & Me.[物料编号] & "]库存不足，现库存量为[" & x & "]。建议采购数量[" & y * 2 - x + z & "]或更改低于现有库存量出库!", vbInformation + vbOKOnly, "库存警告" Me.出库数量 = Null End If End If Me.总价 = Me.单价 * Me.出库数量 Me.总价.Requery End Sub 以上这段代码是不知问题出左那里，在计算Me.总价的时候，总会出现有时候不会计算，有时候就有，我自己能力不高，还看不出问题，所以请大家帮忙优化一下！