[Resolvido]Evitar duplicidade com 2 tipos de critérios: Campo texto e chave estrangeira.

Prezados colegas bom dia.

Já quebrei a cabeça aqui desde domingo.

Vamos aos fatos. Tenho um formulário com sub formulário,ambos funcionando perfeitamente.
No Sub formulário há o campo filho CodSubPed ( chave estrangeira ). Nesse mesmo sub formulário tenho uma combobox ( formato texto devido a mistura de letras e números ) que me traz todas as referências de artigos.

O que acontece, preciso com a ajuda de vocês, que ao escolher uma referência nessa combobox, uma rotina que verifique nesse sub formulário se a mesma já se encontra digitada e uma mensagem caso o usuário queira repetir ela, devido as variações de cores que cada referência possa ter.

Por isso que tem que haver as duas condições : a da referência e da chave estrangeira.

Já tentei o Dlookup....Dcount...Dlast....e nada. O mesmo busca todas as referências já digitadas na tabela Dpedido e não aquela que está sendo digita no momento.

Chave primária formulário principal: CodPed.
Chave secundária ( estrangeira ) no sub formulário: CodSubped
Chave primária do sub formulário: CodDpedido
Tabela onde estão as referências: Dpedido
Nome da combobox ( formato texto ) onde estão as referências : cbocodprod


Se alguém puder me ajudar....fico agradecido.

Olá Silvio, tudo bem?

Veja se este te ajuda, adapte ao seus critérios e coloque no evento antes de atualizar da combo

Código:

Dim frm As Recordset

    Set frm = Me.RecordsetClone
    With frm
    .FindFirst "CondicaoPagto='" & Me.CboCondicaoPagto & "' And CodReceitasDespesas=" & Me.CodReceitasDespesas & ""
        If Not .NoMatch Then
          'MsgBox "Já existe um lançamento Com esta Condição" & Chr(10) & "" & "Altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
          If MsgBox("Deseja repetir esta condição", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
        Else
          Cancel = True
          Me.CboCondicaoPagto.Undo
          'Me.Bookmark = .Bookmark
        End If
        End If
    End With
    Set frm = Nothing

Abraços

Tardessss

Valeu Celso. "matou a pau", obrigado.

Valeu meu amigo....

Abraços