请帮我看一下micro2

有一个宏micro2(已转化为模块)，由窗体的关闭事件引发：

    If DCount("quantity=0", "shippingmelt") > 2 Then
       
        MsgBox "胶合件发货数量不能为零,请马上修改!", vbOKOnly, "呵呵,弄错了吧?"
   
    DoCmd.OpenQuery "shippingmelt0", acViewNormal, acEdit
End If
____________
       我的意思是，窗体关闭时，检查表shippingmelt,是否有超过两个以上工号（part no)的quantity为零，如果有，就跳出文字，同时把为零的打开供其修改；如果没有两个以上为零，就直接关闭窗体。
       现在我不能达到这个效果，因为没有为零的，或只有一个零的，还是会跳出文字，和修改窗口。
注：表shippingmelt里的数据是定时地追加查询进来的，无法避免零值