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

yzc2011

当Tbl_物品中的物品编号被Tbl_出库_Detail表或Tbl_入库_Detail表所使用后，
Tbl_物品表中的这条物品编号的记录的物品名称、规格型号、材质、种类、类别、
单位这6项不能再更改。其它的可以更改，如最小库存、最大库存、单价等。
如有修改物品名称、规格型号、材质、种类、类别、单位这6项就弹出提示。
此物品编号已被出入库所使用。不能再更改。如更改其它的就不提示。

如附件中的W00001-W00004已被出入库所使用过的，物品名称、规格型号、材质、
种类、类别、单位这6项就不能更改，如更改就弹出提示。其它项可以更改。
而W00005、W00006没被使用过，所有项都可以更改。

admin

加个时间或者字段 来判断是否有使用，再现在是否可以修改的字段

yzc2011

新手，对代码不懂。能帮忙弄一下附件吗。记录被出入库使用后，这条记录中的物品名称、规格型号、材质、种类、类别、单位这6项不能再更改。其它的可以更改

Henry D. Sy

用dcount在相关表中对应的编码有没有记录，
有，即是使用过

yzc2011

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

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

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

yzc2011

If DCount("物品编号", "Tbl_入库_Detail", "物品编号='" & 物品编号 & "' and 物品名称 & 规格型号 & 材质 & 物品种类 & 物品类别 & 单位=  '" & Me.物品名称 & "' & '" & Me.规格型号 & "'&'" & Me.材质 & "'&'" & Me.物品种类 & "'&'" & Me.物品类别 & "'&'" & Me.单位 & "'") = 0 Then
     MsgBox "此记录已被入库单使用，物品名称、规格、材质、种类、类别、单位这6项不能更改！", vbCritical, "提示"
     Exit Sub
     End If
        这个能实现所使用的物品表中的记录。其中物品名称、规格、材质、种类、类别、单位这6项不能更改。其它的可以更改。
        但是没被出入库所使用的记录都变成不能更改。如物品编号W00005和W00006的记录没被入库所使用也不能更改。这是怎么回事。

Henry D. Sy

当前事件中判断

yzc2011

谢谢Henry D. Sy
问题已解决，下面的方法可有什么不妥之处？？
If DCount("*", "Tbl_入库_Detail", "物品编号='" & Me.物品编号 & "'and not 物品名称 & 规格型号 & 材质 & 物品种类 & 物品类别 & 单位=  '" & Me.物品名称 & "' & '" & Me.规格型号 & "'&'" & Me.材质 & "'&'" & Me.物品种类 & "'&'" & Me.物品类别 & "'&'" & Me.单位 & "'") > 0 Then
    MsgBox "此记录已被【入库录入】使用，物品名称、规格、材质、种类、类别、单位这6项不能更改！", vbCritical, "提示"
    Exit Sub
    End If

灰太郎

11111111111111111111111