[Resolvido]Aviso ao digitar duplicidade

Olá colegas de forum, por mais uma vez gostaria da ajuda de vocês se possivel.

Utilizo o access 2007,tenho um formulário com um campo peça, gostaria que quando o usuario digitar um numero que ja existe dê um aviso a ele "Peça já existente Continuar?" e uma opção de sim ou de não.

agradeço desde já pela ajuda.

Utilize a busca do fórum, por Duplicidade.

Existem aqui centenas de exemplos.

Obrigado Jpaulo

Tentei este código no BeforeUpdate e no On enter do campo peça no form mas não deu certo.

' Edsalys
If Me!Peça = Me!Peça.OldValue Then Exit Sub
If Not IsNull(DLookup("[Peça]", "Estrutura", "[Peça] ='" & Me!Peça & "'")) Then
Cancel = True
Peça.Undo
MsgBox "Existe uma peça cadastrada com esse número."
End If
End Sub

será que está faltando algo?

obrigado

Bom dia Edsalys
JPaulo tem razão, mas se quer ajuda poste parte do banco que te ajudaremos!
Abraço!

Boa tarde Lupercio,

Este código do Edsalys eu peguei em um dos topicos sobre duplicidade,

Estou anexando o BD, tentei utiliza-lo no form estrutura, no campo Peça, no evento On enter, mas ocorre erro.

obrigado pela ajuda.

Ve se lhe atende!

Na verdade não é do Edsalys o código, quem fez para ele a alteração fui eu, mas os créditos deve ser para o respectivo dono, no qual não sei quem é!

Obrigado Lupercio, neste mesmo codigo tem a possibilidade de inserir um "deseja continuar?" se o usuario quiser inserir mesmo sendo duplicada ele clica "sim" ou "não". Se não houver eu deixo desta forma mesmo.

muito bom este codigo,

e muto obrigado por disponibilizar seu tempo para me ajudar.

Veja e adpte conforme tua nescessidade!

Algumas dicas: não de nome as tabelas com dois nomes: exemplo (tabela cliente) o certo é TabelaCliente emendado, e também evite ter um formulário com o mesmo nome da tabela!

Um abraço qualquer coisa só chamar!
Lembrando o modo de dados do campo peça era numero, alterei para texto!

Um abraço.

Lupercio,

muito obrigado cara, muito obrigado mesmo. Ficou ótimo e valeu pelas dicas, irei alterar os nomes.

fica com Deus

abraço

Que bom que foi resolvido, o forum agradece!
Se precisar estaremos aqui, se não for eu, que seja outro, pois exitem muitas feras neste forum maravilhoso.
Um abraço fica com Deus tambem!

Bom dia,

Sou nova aqui no forum e iniciante no acess 2007.

Tenho uma base de dados onde se introduzem contentores.

Existe um tabela que é actualizada por um formulário..nesta tabela não quero que exista repetição da matricula do contentor e data em simultâneo...caso ocorra ...deverá dar o seguinte aviso " contentor já cadastrado" e voltar ao formulário limpo.

Será que me podem ajudar...sei que existem exemplos com esta situação mas não consigo entender.

Segue a minha base em anexo.

Obrigada.

Ola Patricia seja bem vinda ao fórum.

Anexe em formato .zip, ou seja compacte o banco com winzip e anexe aqui;

Boa dia!

CÁ vai!

Espero que me consigam ajudar!

Onde está ? ...

Se preferir pode enviar para o meu email que eu anexo aqui;

jpaulo65@gmail.com

Como o banco tem dados confidenciais, não será anexado aqui, mas fica aqui registada a solução;

No evento VBA ao pressionar do botão salvar:


Dim RegistoRepetido As Variant
'procura na tabela se já existe esse contentor nessa data
RegistoRepetido = DLookup("[Matricula do Contentor]", "Contentor", "[Matricula do Contentor] ='" & Me.Matricula_do_Contentor & "' And [Data de Carga] =#" & Format(Me.Data_de_Carga, "mm-dd-yyyy") & "#")
If Not IsNull(RegistoRepetido) Then
'se existir devolve mensagem e aborta
MsgBox "O Contentor " & Me.Matricula_do_Contentor & " já existe nessa data...", vbCritical
DoCmd.CancelEvent
Me.Matricula_do_Contentor.SetFocus
Else
'se não existir grava com sucesso
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Registo gravado com sucesso...", vbInformation
End If