[Resolvido]Não repetir ítem em formulário contínuo 2

Amigos, por favor, preciso um ajuste no código no tópico já encerrado no ano 2014: Não repetir ítem em formulário contínuo, link https://www.maximoaccess.com/t18404-resolvidonao-repetir-item-em-formulario-continuo    
Angelo Sampaio anexou banco de dados   Walter.zip   nele quando lanço um exame este exame após lançado sai da lista, então não haverá
como lançar novamente o mesmo exame. Mas quando for fazer novos lançamentos, os exames lançados continuam fora da lista, mas
preciso vender 1 exame (mesmo exame) para vários clientes, então para funcionar no for eu lanço cliente + orçamento e no sub eu lanço
vários exames para 1 orçamento. A relação será entre campo do for   CampoNrOrçamento    e campo do sub   CampoNrOrçamentoExame  
ou seja 1 no for para muitos do sub   sem deixar repetir o mesmo exame para mesmo orçamento do sub.
Abaixo as tabelas, formulário e sub que acredito que serão necessários:
................................
TabelaCadastroExames / CampoExame: Campo onde será cadastrado os exames disponíveis para vendas.
TabelaCadastroClientes / CampoNomecliente: Campo onde será cadastrado os clientes.
TabelaOrçamentosClientes / CampoNomeCliente / CampoNrOrçamento: Campos onde será lançado via formulário cliente e nr orçamento.
TabelaOrçamentosExames / CampoExame / CampoNrOrçamentoExame: Campos onde será lançado via subformulário exame e nr orçamento.
Deverá existir uma relação entre campo orçamento do for com campo nr orçamento do sub
................................
Formulário / CampoCliente / CampoNrOrçamento
Subformulário / CampoExame / CampoNrOrçamentoExame
Terá uma relação entre campos   CampoNrOrçamento   CampoNrOrçamentoExame
................................

Boa tarde,
Respeite as regras. Escrever em maiúsculas significa gritar. Corrija o título

Funcionou perfeitamente com este código: no evento antes de atualizar da caixa de combinação ProdutoTblProdutoPedido


CÓDIGO:
Private Sub ProdutoTblProdutoPedido_BeforeUpdate(Cancel As Integer)
Dim frm As Recordset

   Set frm = Me.RecordsetClone
   With frm
   .FindFirst "ProdutoTblProdutoPedido='" & Me.ProdutoTblProdutoPedido & "' And PedidoTblProdutoPedido=" & Me.PedidoTblProdutoPedido & ""
       If Not .NoMatch Then
          MsgBox "Já existe um lançamento Com este Produto" & Chr(10) & "" & " Por favor,altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
          Cancel = True
          Me.ProdutoTblProdutoPedido.Undo
          'Me.Bookmark = .Bookmark
       End If
       
   End With
   Set frm = Nothing
End Sub

Faça os teste e retorne


Se tudo estiver ok, não esqueça de encerrar ele ou de continuidade por ele

Abraços