花落，相依　发表于：2011-06-08 12:11:53 　

各位老师好

如何限制每个物料第一首工序在表中没有，就不能打印第二道工序。

点击下载此附件

我相在选工序时判断，这个物料的前一道工序在“计件工资子表”中有没有，如果在就不能打印下一道工序，如果前一道工序有了，才能打印下一道工序。请老师们指点

用订单号作为判断条件，同一物料可能有不能的订单号（订单是唯一）所以用这个条件来判断些订单号的这个物料的前一道工序如果在表中存在了，就可以打印下一道工序，如果没有前一道工序就不能打印下一道工序，（说明，如果是第一道工序可以打印）

Top

liaohk 发表于：2011-06-08 21:42:51

请老师们指点一下我看了竹笛老师这个写得好，但工序写死了，我想灵活一点，也达到他那样的效果，请老师帮助

因为我的不同物料有不同的工序，不像竹笛老师的那个工序是固定的。

----

录入工序时，检查上一个工序是否已录入

来源:www.accessoft.com 点击数:2338 评论数:1　评论 | 加入收藏

时　间:2007-11-4 9:54:08
作　者:竹笛
摘　要:录入工序时，检查上一个工序是否已录入,这样可以减少出错的机会，提示操作员按工序录入。

正　文:

在集装箱管理中，有一个装箱表(表名称为CTRSTATUS)，其中包括有单号(CONTAINER)和状态(STATUS)两个字段和其它一些字段。
我们的装箱顺序是：FV→FU→MA→MS

问题：在录入记录（单号为X，状态为FU）时，要检查单号X的FV是否已录入，如果没有录入，则不允许录入该单号的FU。

意义：这样可以减少出错的机会，提示操作员按工序录入。

解决方案：
在CTRSTATUS的更新后事件中加上检测代码，主要采用了Dlookup函数,如下：

Dim strSTATUS As String
Dim strCONTAINERNO As String
strSTATUS = Me.STATUS'状态
strCONTAINERNO = Me.CONTAINER'单号
If strSTATUS = "MA" Then'如果状态为MA
'如果表CTRSTATUS中不存在该单号的FU状态
If IsNull(DLookup("STATUS", "CTRSTATUS", "[CONTAINER]='" & strCONTAINERNO & "' and [STATUS]='FU'")) Then
'提示
MsgBox "该单号的FU状态未录入，请录入FU"
'退出子程序
Exit Sub
End If
End If
If strSTATUS = "MS" Then
If IsNull(DLookup("STATUS", "CTRSTATUS", "[CONTAINER]='" & strCONTAINERNO & "' and [STATUS]='MA'")) Then
MsgBox "该单号的MA状态未录入，请录入MA"
Exit Sub
End If
End If