Office中国论坛/Access中国论坛

标题: [请教]窗体保存按钮代码问题 [打印本页]

作者: xiazaidj 时间: 2009-10-25 13:23
标题: [请教]窗体保存按钮代码问题
小弟写了一个保存数据的代码,但是在对保存按钮的代码写完后,有一个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 时间: 2009-10-25 14:51
本帖最后由 404702 于 2009-10-25 14:53 编辑

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 时间: 2009-10-25 16:09
回楼上的:还是不行

作者: asklove 时间: 2009-10-25 20:13
你的保存语句在哪里？是在保存成功的条件之外，当然没法保存

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 时间: 2009-10-25 22:30
谢谢以上两为提示,已经查明原因: Nz(Me.在库残量_查询_子窗体![在库剩余数量]) 赋值不是唯一造成的,和上面的保存代码没有关系!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)