Duplicata com dois critérios

Pessoal, boa noite!

Estou tentando evitar o cadastro em um sub-formulário do mesmo fornecedor para um mesmo produto.
Estou tentando adaptar o código abaixo de forma que seja verificado dois critérios, ou seja: o Código Chave do Produto e o Código Chave do Fornecedor.
Porém tem dado o seguinte erro: "Erro em tempo de execução '13'" "Tipos incompatíveis"

Código:

Private Sub CodChaveFornecedor_LostFocus()
'On Error Resume Next
   

   If (Not IsNull(DLookup("[CodChaveProduto]" And "[CodChaveFornecedor]", "tblFornProduto", _
           "[CodChaveProduto] =" & Me!CodChaveProduto & "" And "[CodChaveFornecedor] =" & Me!CodChaveFornecedor & ""))) Then
       MsgBox "Este fornecedor já escontra-se cadastrado!!!!", vbOKOnly + vbInformation, "Ops! Fornecedor já Cadastrado"
       Cancel = True
       Me!CodChaveFornecedor.Undo
   End If
       
End Sub

Desde já agradeço!

Olá Julio,

Estou no cellular, mas se os campos forem do tipo texto deve colocar plica simples, para numero não.

Veja com plica para ambos os campos:

Código:

Private Sub CodChaveFornecedor_LostFocus()
'On Error Resume Next
 

  If (Not IsNull(DLookup("[CodChaveProduto]" And "[CodChaveFornecedor]", "tblFornProduto", _
          "[CodChaveProduto] ='" & Me!CodChaveProduto & "'" And "[CodChaveFornecedor] ='" & Me!CodChaveFornecedor & "'"))) Then
      MsgBox "Este fornecedor já escontra-se cadastrado!!!!", vbOKOnly + vbInformation, "Ops! Fornecedor já Cadastrado"
      Cancel = True
      Me!CodChaveFornecedor.Undo
  End If
     
End Sub

Abraço

Pessoal, boa noite!

Os campos são numéricos, pois armazenam na tabela tão somente o código do produto e o código do fornecedor.
Desse modo o erro deve ter origem por outro motivo.
Mas valeu como sempre!!

Pretor

Olá Julio Cesar,

Vi agora que está a fazer o Dlookup a dois campos, mas só permite a um.
Teste assim (está a fazer dois Dlookup):

Código:

  If Not IsNull(DLookup("[CodChaveProduto]", "tblFornProduto", "[CodChaveProduto] =" _
        & Me!CodChaveProduto & "")) And Not IsNull(DLookup("[CodChaveFornecedor]", _
        "tblFornProduto", "[CodChaveFornecedor] =" & Me!CodChaveFornecedor & "")) Then
           
        MsgBox "Este fornecedor já escontra-se cadastrado!!!!", vbOKOnly + vbInformation, "Ops! Fornecedor já Cadastrado"
        Cancel = True
        Me!CodChaveFornecedor.Undo
  End If


Abraço

ahteixeira, boa noite!

Desculpe-me pela demora em dar um retorno no fórum. Mas deixo registrado que deu certo! Valeu!!

Pretor

Olá Julio Cesar,

Fico feliz por ter dado certo.
Obrigado pelo retorno, o fórum agradece.

Abraço

ahTeixeira, boa tarde!

Anteriormente respondi informando que o código havia funcionado. Contudo, hoje fui cadastrar um registro onde não havia duplica, porém, esta surgiu a mensagem indicando a existência de duplicata.
Inicialmente achei que seria um erro meu de lançamento, porém, o erro persiste. O que estaria acontecendo?

Olá Julio Cesar,

Explique melhor a última mensagem, não compreendi
Se possível monte um pequeno exemplo a simular o mesmo erro e partilhe a base de dados.

Abraço