[请教]窗体保存按钮代码问题

xiazaidj

小弟写了一个保存数据的代码,但是在对保存按钮的代码写完后,有一个IF语句无效,请高手帮忙看一下原因,谢谢
***************************************
......
     strMsg = strMsg & vbCr & "是否保存"
     strMsg = strMsg & vbCr & "点击[是]确定，点击[否]取消"
        If MsgBox(strMsg, vbQuestion + vbOKCancel) = vbOK  AND Nz(Me.QTY) <= Nz(Me.在库残量_查询_子窗体![在库剩余数量]) Then
            MsgBox "保存成功!"
              Else
              If Nz(Me.QTY) > Nz(Me.在库残量_查询_子窗体![在库剩余数量]) Then
                   MsgBox " 在库数量不足不能保存"
              Else
              End If
            MsgBox "请重新输入出库数据!"
            DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
            Me.在库残量_查询_子窗体.Requery
        Exit Sub
        End If
************************************************
我的代码问题是:即使ME.QTY中的数量小于Me.在库残量_查询_子窗体![在库剩余数量]也显示在库数量不足,不能保存.这个是为什么呢?请高手点解!谢谢

404702

strMsg = strMsg & vbCr & "是否保存"
     strMsg = strMsg & vbCr & "点击[是]确定，点击[否]取消"
        If MsgBox(strMsg, vbQuestion + vbOKCancel) = vbOK  AND Nz(Me.QTY) <= Nz(Me.在库残量_查询_子窗体![在库剩余数量]) Then
            MsgBox "保存成功!"
       Else
            If Nz(Me.QTY) > Nz(Me.在库残量_查询_子窗体![在库剩余数量]) Then
                MsgBox " 在库数量不足不能保存"
             Else
                MsgBox "请重新输入出库数据!"
                DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
            Me.在库残量_查询_子窗体.Requery
            End If
    End If
Exit Sub


我也是新手, 不知是不是应该这样?

xiazaidj

回楼上的:还是不行

asklove

你的保存语句在哪里？是在保存成功的条件之外，当然没法保存

If MsgBox(strMsg, vbQuestion + vbOKCancel) = vbOK  AND Nz(Me.QTY) <= Nz(Me.在库残量_查询_子窗体![在库剩余数量]) Then
            MsgBox "保存成功!"
       Else
              If Nz(Me.QTY) > Nz(Me.在库残量_查询_子窗体![在库剩余数量]) Then
                   MsgBox " 在库数量不足不能保存"
              Else
              End If
        MsgBox "请重新输入出库数据!"
        Exit Sub
        End If
'把它放这里试试
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.在库残量_查询_子窗体.Requery

xiazaidj

谢谢以上两为提示,已经查明原因: Nz(Me.在库残量_查询_子窗体![在库剩余数量]) 赋值不是唯一造成的,和上面的保存代码没有关系!