[Resolvido]Impedir valor duplicado e exibir mensagem com o código do que já existe

Salve Srs.

Preciso que o sistema não só impeça valor duplicado, como me informe o código do registro que já possui o valor informado. É possível?

Tenho codigoProduto e descricaoCompleta (nenhum é chave primária).

Achei esse código do saudoso JPaulo e ele funfa perfeitamente, porém como eu faria para adaptá-lo de modo que se a pessoa digitar uma descrição que já existe, ele exiba a mensagem: "Já existe outro produto código XXX com esta descrição." OU seja, ele buscaria na tblProdutos o código referente à descrição que já existe, e exibiria junto na MsgBox.


If (Not IsNull(DLookup("[descricaoCompleta]", "tblProdutos", _
"[descricaoCompleta] ='" & Me!descricaoCompleta & "'"))) Then
MsgBox "Já existe outro produto com esta descrição", vbInformation, "Sispac"
Cancel = True 'cancela o evento.
End If

Código:

dim lngCodigo as long

lngCodigo = nz(dlookup("CampoCodigoDaTabela","tblProdutos","[descricaoCompleta] ='" & Me!descricaoCompleta & "'"),0)

if lngCodigo > 0 then
  MsgBox "Já existe outro produto código " & lngCodigo & " com esta descrição.", vbInformation, "Sispac"
  Cancel = True 'cancela o evento.
end if

Blz Damasceno? Obrigado pela ajuda!

Código funfou, só faltou um detalhe: ele não exibe os zeros à esquerda do código. Meu campo codigoProduto é padrão 5 dígitos e está no formato texto. Então fiz o teste e na mensagem ele diz que já existe o produto com código 11 cadastrado, mas deveria ser 00011. Pode me ajudar com isso por gentileza? rs

Conhece a função format?

Código:

...código " & format(lngCodigo, "00000") & " com e...

Nossa cara, perfeito!!!

Muito obrigado! Saudações...

o fórum agradece o retorno. Sucesso.