[Resolvido]Duplicidade de registro

Bom dia colegas

Pesquisei no forum sobre duplicidade de registros e não encontrei o que pretendo.

Seria isso:
Em um subformulário o produto pode ser digitado somente uma vez:

Ex: Mouse - 01
Cpu - 01

Ao tentar digitar novamente um desses produtos o sistema não aceita emitindo mensagem.

Bom dia,

Algo parecido com isso em teu subformulário.

Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
Dim frm As Recordset
Set frm = Me.RecordsetClone
With frm
.FindFirst "CodProdutoOculta='" & Me.CboCodProd & "' And CodSubPed=" & Me.CodSubped & ""
If Not .NoMatch Then
If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
Else
Cancel = True
Me.CboCodProd.Undo
End If
End If
End With
Set frm = Nothing
End Sub

Bom dia Silvio,

Obrigado por responder.

O que seria CodProdutoOculta

.