[Resolvido]Bloquear Lançamento de produto se já tiver sido lancado

Boa noite!

Tenho um banco de dados, que tem uma formulário onde lanço os meus produtos, nesse formulário tenho um subforms onde recebe os meus produtos.

O que preciso é que toda vez, antes de lança o produto no subforms ele verifique se o produto já está lançado e avise se tá lançado.

Teria como ?

Bom dia..

No evento antes de atualizar da combobox.....insira o seguinte comando.

Código:

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 amigo
Tem um pequeno detalhe que N informei, para lança o meu produto no subforms, eu utilizo um botão.
Ex: tenho uma Combox ele tem todos os meus códigos de barra, ao selecionar o código que desejo lança clico em um botão para assim adicionar o produto em questão, dentro do subforms.
Então eu queria que toda vez ao clica nesse botão ele verificasse se o produto selecionado na Combox já foi lançado.

Desculpa por N ter sido tão explícito na minha dificuldade .

Já experimentou colocar o código no botão ?

Sim! Eu deu um erro.
O mecanismo de banco de dados do Microsoft access não reconhece 'Codprodutocompra'. Como um nome de campo ou expresso válida.

Eu tenho a tela da seguinte forma

FrmCompra dentro tem
Uma caixa de combinação, onde tem os códigos dos produtos.
Um botão que quando clico ele manda esse código para um subforms que está dentro desse frmCompra.

já foi resolvido, muito obrigado pela ajuda.

No seu BD, tem que ter um campo que armazena o IDCOMPRA + IDPRODUTO
Se Repetir,no Evento Error gerenciar com o numero 3022
Simples