Office中国论坛/Access中国论坛

标题: 物品表中的物品编号被出库表或入库表使用后，此物品编号记录中某些字段不能再更改 [打印本页]

作者: yzc2011 时间: 2018-3-17 08:36
标题: 物品表中的物品编号被出库表或入库表使用后，此物品编号记录中某些字段不能再更改
当Tbl_物品中的物品编号被Tbl_出库_Detail表或Tbl_入库_Detail表所使用后，
Tbl_物品表中的这条物品编号的记录的物品名称、规格型号、材质、种类、类别、
单位这6项不能再更改。其它的可以更改，如最小库存、最大库存、单价等。
如有修改物品名称、规格型号、材质、种类、类别、单位这6项就弹出提示。
此物品编号已被出入库所使用。不能再更改。如更改其它的就不提示。

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

作者: admin 时间: 2018-3-17 08:41
加个时间或者字段来判断是否有使用，再现在是否可以修改的字段

作者: yzc2011 时间: 2018-3-17 09:25
本帖最后由 yzc2011 于 2018-3-17 12:26 编辑

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

作者: Henry D. Sy 时间: 2018-3-18 02:47
用dcount在相关表中对应的编码有没有记录，
有，即是使用过

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

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

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

作者: yzc2011 时间: 2018-3-18 05:04
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 时间: 2018-3-19 09:31
当前事件中判断

作者: yzc2011 时间: 2018-3-21 03:00
谢谢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

作者: 灰太郎 时间: 2021-7-25 20:31
11111111111111111111111

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