同学们在做到变速箱作业三时,新增子窗体里面增加了零件名称功能时,会出现零件名称重复现象,造成重复零件名称也可以保存的情况
此时可以通过对"零件名称"窗体设置的代码方法解决

方法如下:(销售订单与采购订单方法一样)

进入红色提示1窗体属性→"出错"事件→选择[事件过程]→点击3…→在鼠标光标处输入以下整个部分代码:

    Const conDuplicateKey = 3022
    Dim strMsg As String

    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = "零件不允许重复，" _
               & "请重新选择零件！"
               Me.ljID.SetFocus
        MsgBox strMsg, vbCritical, "提示"
    End If

 

最后保存并运行试试效果.