[Resolvido]Identificar o Código do registro duplicado.

Boa tarde senhoras e senhores,

Alguém poderia me ajudar com uma instrução que identificasse o Código de registro duplicado?

Exemplo:

Numa tabela de cadastro de frutas.

| Código | Fruta |
1................Banana
2................Maçã
3................Pera
4................Pêssego
5................Manga

Se eu tentar cadastrar Maçã novamente, o sistema emite uma mensagem dizendo que Maçã já está cadastrada no registro 2.

Grato.

Boas tenho um evento que utilizo para algo similar, tente adaptar para ocasião. O único infortúnio será que a pontuação devera ser igual a procurada:

Function LocalizaProduto() As String

LocalizaProduto = Nz(DLookup("NComercial", "tblProduto", _
"NComercial='" & Me.txtLocalizaProduto & "'"), "")

End Function


Private Sub btnLocalizar_Click()
If Me.txtLocalizaProduto <> "" Then
If LocalizaProduto = Me.txtLocalizaProduto Then
If MsgBox("este produto já esta cadastrado deseja visualiza-lo?", vbQuestion + vbYesNo, "Nova Ordem") = vbYes Then
DoCmd.OpenForm "frmProduto", , , "IdProduto = " & LocalizaIdProduto
End If
Me.txtLocalizaProduto.value = ""
ElseIf LocalizaProduto = "" Then
If MsgBox("este produto não esta cadastrado, deseja cadastra-lo?", vbQuestion + vbYesNo, "Nova Ordem") = vbYes Then
DoCmd.OpenForm "frmProduto", , , , , , 1
End If
End If
Else: MsgBox "Digite o nome do Produto"
End If

Tu teria como disponibilizar algum BD que tenha essa rotina para eu ver como está funcionando?
Como disse na primeira mensagem, só preciso extrair o número do registro.
No meu caso, não posso permitir que alguma ação seja tomada senão a de alterar as informações do registro que geraria duplicidade.

Boas,

Segue: Exemplo

Olá a todos, um pitaco, vejam esta dica do Mestre Avelino:
http://www.usandoaccess.com.br/dicas/como-saber-se-cliente-ja-cadastrado.asp?id=1
Abraço

Hehehe grato pela contribuição Teixeira,
Ao que parece é exatamente o que é necessitado na ocasião.

As vezes você conhece a função mas não sabe como aplicá-la direito lol, também vou modificar alguns formularios do meu BD XD.

Olá Antonio Felipe, vi agora o seu exemplo, muito bom.
O que acha adicionar a técnica da dica 68 do mestre Avelino, veja:
http://www.usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-7.asp
Abraço

Agradeço imensamente a ajuda de vocês, mas o meu problema não é saber se tal informação está cadastrada ou não e sim identificar o número do registro em que a informação está cadastrada, bem como coloquei na primeira mensagem.
Se o DCount for > 0, então certamente o sistema emitirá uma mensagem, no entanto, como tenho um mecanismo que não permite duplicidade, então preciso saber qual o número do primeiro registro da informação.

Clynton, se puder verificar se esta é a solução agradeceria, caso não, acho que seria mais fácil postar o BD.
Incremente a dica dica 68 do mestre Avelino como instruído pelo Teixeira caso ache necessário.

Segue: Exemplo

Antonio Felipe, com o MaximoAccess, estamos sempre aprender
Rogério Clynton, veja se atende, tem dois exemplos.
Abraço

Sim Alvaro, era exatamente o que eu pretendia!
O resultado do primeiro form me atenderá perfeitamente.
Agradeço a vocês, Alvaro Teixeira e Antonio Felipe, por terem disponibilizado tempo e atenção para me ajudar resolver esta questão.
Estudarei os dois forms para compreendê-los e adaptá-los a minha rotina.
Forte abraço aos dois.

Olá, obrigado pelo retorno.
No segundo exemplo é aplicada a técnica da dica 68 do mestre Avelino, pesquisa independente das acentuações.
Abraço