请教如何让“工序”可以重复

goto2008

我有段代码，，，以前是弄成“工序”不允许重复，
现在想实现“工序”都可以重复，请教，要如何修改下面这段代码？
         


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

郁闷，光删除这句，还不成。。。。。。好像还要再多删一些

goto2008

改了，还是有点不对劲，，，，，右上角的保存按扭。。。保存不了了

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

goto2008

工序编号   工序      工价
1                   单针      0.4
1                    双针      0.32   --------意思指第一块鞋部件，有用到单针和双针

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

goto2008

这个问题很重要,,请大家帮忙想想,要怎么修改.....

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

hi-wzj

照大肚鸭的改过后，再在“工价”表中取消掉那两个联合主键就可以了。