物品表中的物品编号被出库表或入库表使用后，此物品编号记录中某些字段不能再更改

落灯花棋未收　发表于：2018-03-18 01:41:33 　

If DCount("物品编号", "Tbl_入库_Detail", "物品编号='" & 物品编号 & "' and 物品名称 & 规格型号 & 材质 & 物品种类 & 物品类别 & 单位= '" & Me.物品名称 & "' & '" & Me.规格型号 & "'&'" & Me.材质 & "'&'" & Me.物品种类 & "'&'" & Me.物品类别 & "'&'" & Me.单位 & "'") = 0 Then
    MsgBox "此记录已被入库单使用，物品名称、规格、材质、种类、类别、单位这6项不能更改！", vbCritical, "提示"
    Exit Sub
    End If

这个能实现所使用的物品表中的记录。其中物品名称、规格、材质、种类、类别、单位这6项不能更改。其它的可以更改。

但是没被出入库所使用的记录都变成不能更改。如物品编号W00005和W00006的记录没被入库所使用也不能更改。这是怎么回事。

111

Top

123木头人发表于：2018-03-19 15:56:43

程序逻辑不对：

    If DCount("物品编号", "Tbl_入库_Detail", "物品编号='" & 物品编号 & "' and 物品名称 & 规格型号 & 材质 & 物品种类 & 物品类别 & 单位=  '" & Me.物品名称 & "' & '" & Me.规格型号 & "'&'" & Me.材质 & "'&'" & Me.物品种类 & "'&'" & Me.物品类别 & "'&'" & Me.单位 & "'") = 0 Then  '这里应该要大于0
    MsgBox "此记录已被入库单使用，物品名称、规格、材质、种类、类别、单位这6项不能更改！", vbCritical, "提示"
    Exit Sub
    End If

数据改动的情况下用DCount基本上是等于0，所以报错。

话说回来，设计思路是对的，但是做法不对，改成大于0了，因为你用来做对比的数据是修改后的数据所以也不能实现你预期的效果，要实现你的设计思路：

1、应该在窗体加载事件中把原有的数据存放在变量中，在保存时用你现的方法做对比。

2、在窗体加载事件中先用DCount判断是否已经使用，如果已经使用直接就禁止修改了。====>我个人习惯用这个方法

Top

落灯花棋未收发表于：2018-03-21 10:57:48

谢谢123木头人。

问题已解决。这样的解决方式是否有不妥之处？？

If DCount("*", "Tbl_入库_Detail", "物品编号='" & Me.物品编号 & "'and not 物品名称 & 规格型号 & 材质 & 物品种类 & 物品类别 & 单位= '" & Me.物品名称 & "' & '" & Me.规格型号 & "'&'" & Me.材质 & "'&'" & Me.物品种类 & "'&'" & Me.物品类别 & "'&'" & Me.单位 & "'") > 0 Then
    MsgBox "此记录已被【入库录入】使用，物品名称、规格、材质、种类、类别、单位这6项不能更改！", vbCritical, "提示"
    Exit Sub
    End If

Top

123木头人发表于：2018-03-21 11:38:04

要看放在那里，放在修改按钮单击事件中效果可能会比较好。

Top

落灯花棋未收发表于：2018-03-21 22:17:43

谢谢123木头人。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

物品表中的物品编号被出库表或入库表使用后，此物品编号记录中某些字段不能再更改