Office中国论坛/Access中国论坛

标题: 请教如何让“工序”可以重复 [打印本页]

作者: goto2008 时间: 2007-12-26 09:18
标题: 请教如何让“工序”可以重复
我有段代码，，，以前是弄成“工序”不允许重复，
现在想实现“工序”都可以重复，请教，要如何修改下面这段代码？


Private Sub 保存工序工价_Click()
On Error GoTo Err_保存工序工价_Click

If Nz([工序编号]) = "" Then
MsgBox "工序编号不能为空！", 64, "信息提示"
Else
DoCmd.SetWarnings False
If IsNull(帮面工序ID) = True Then
      If DCount("帮面工序ID", "工价", "工序='" & Me.工序 & "' and 帮面ID='" & Me.帮面ID & "'") > 0 Then
         MsgBox "工序有重复，请重新选择……"
         Me.工序.SetFocus
      Else
         DoCmd.RunSQL "insert into 工价(工序编号,工序,工价,帮面ID) select [Forms]![帮面指令录入窗]![工序编号],[Forms]![帮面指令录入窗]![工序],[Forms]![帮面指令录入窗]![工价],[Forms]![帮面指令录入窗]![帮面ID];"
         Me.帮面工序子窗体.Requery
         '  MsgBox "添加成功"
         Me.工序 = Null
         Me.工价 = Null
         Me.工序编号 = Null
         Me.帮面工序ID = Null
         'Me.帮面ID = Null
      End If
Else
      DoCmd.RunSQL "UPDATE 工价 SET 工价.工序编号 = [Forms]![帮面指令录入窗]![工序编号], 工价.工序 = [Forms]![帮面指令录入窗]![工序], 工价.工价 = [Forms]![帮面指令录入窗]![工价] WHERE (((工价.帮面工序ID)=[Forms]![帮面指令录入窗]![帮面工序ID]));"
      Me.帮面工序子窗体.Requery
' MsgBox "修改成功"
End If
DoCmd.SetWarnings True

End If
Exit_保存工序工价_Click:
Exit Sub
Err_保存工序工价_Click:
MsgBox Err.Description
Resume Exit_保存工序工价_Click

End Sub

[ 本帖最后由 goto2008 于 2007-12-26 09:24 编辑 ]

作者: goto2008 时间: 2007-12-26 09:29
郁闷，光删除这句，还不成。。。。。。好像还要再多删一些

作者: goto2008 时间: 2007-12-26 09:49
改了，还是有点不对劲，，，，，右上角的保存按扭。。。保存不了了

[ 本帖最后由 goto2008 于 2007-12-26 23:03 编辑 ]

作者: goto2008 时间: 2007-12-26 10:37
工序编号工序    工价
1                单针    0.4
1                   双针    0.32 --------意思指第一块鞋部件，有用到单针和双针

2                   单针    0.25
2                   双针    1.2       --------意思指第二块鞋部件，也有用到单针和双针

作者: goto2008 时间: 2007-12-26 10:41
这个问题很重要,,请大家帮忙想想,要怎么修改.....

在修改的同时还要注意一个问题,
在工厂里,都是先生产,,,,等全生产完了,再把工价定出来...............

作者: hi-wzj 时间: 2007-12-26 11:35
照大肚鸭的改过后，再在“工价”表中取消掉那两个联合主键就可以了。

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