[Resolvido]Verificar dados duplicado ao sair do campo

Prezados, bom dia.

Alguém saberia informar se existe uma maneira de quando sair do campo fazer a verificação se os dados inseridos são duplicados?

Utilizo a propriedade Indexado, Duplicação não autorizada. Mas está propriedade somente faz a verificação ao salvar o registro, o que causa perda de tempo.
Caso alguém saiba uma solução diferente, estou no aguardo e agradecendo.

Tente usando DLookup ou DCount.

Prezado Críquio,
obrigado pela atenção.
O problema está aí. Não sou muito familiarizado com VBA. Vc teria um exemplo?
Obrigado

Pode ser feito assim tbm:


Private Sub SuaTxtbox_AfterUpdate()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM SuaTabela WHERE SeuCampo LIKE '" & SuaTextbox & "'")

If rs.RecordCount > 0 Then
MsgBox "Já existe um usuário com esses dados!", vbExclamation, "Atenção"
SuaTxtbox = ""
End If

End Sub

bem lembrado quanto ao recordset norberto. Mas após a msgbox coloquei uma linha que retirar o valor do campo, embora afterupdate não seja indicado ainda sim funciona muito bem!

Ok Feras!

Funfou a contento. Ambas as soluções.

Obrigado aos senhores, Norberto Rost e Dadokeys90, e também ao Críquio pela sugestão inicial.
Agradecido

Ok, Norberto.
Estou usando o seu código.
A título didático, o que motivou a correção ou que poderia ocorrer sem ela?
Obrigado

Ah! Ok.
Obrigado, Norberto.
Até!

OLDRIVG

Boa tarde!

Use Este Ao Sair
Para não deixar o campo Nulo, so Fazer a Correção dos campos

If Nz(Nome, "") = "" Then
If IsNull(Nome) Or Me.Nome = True Then
MsgBox "O Nome do Cliente é de preenchimento obrigatório!", vbInformation, " Atenção Digitador"
Cancel = True
Nome.SetFocus
End If
End If

Olá, spp. Boa tarde!

Agrdeço a sua colaboração e já implementei o código no campo. Está funcionando.

Só tem um pequeno pormenor: se o digitador entrar no campo e não digitar nada, beleza. Ele não consegue sair do campo. Mas se ele digitar algum dado, sair do campo e retornar ao mesmo campo e apagar os dados, ele consegue sair do campo sem digitar e continuar preenchendo o registro.
Há alguma maneira de evitar isto?
Desde já agradeço.

Se voçê digitar simplismente uma letra e digitar enter vai para o proximo campo

Acho que você não entendeu.

A intenção do código é evitar que o digitador entre com o cursor no campo e sai sem digitar qualquer dado. Correto?

No entanto com o código sugerido por você isto acontece se o digitador colocar o cursor no campo não digitar nada. Se ele, o digitador, digitar qualquer caracter ele sai normalmente. Até aí legal.

Mas se o digitador voltar ao mesmo campo e apagar o dado que ele, o digitador, digitou ali anteriormente e não digitar mais nada (deixar o campo em branco), ele consegue sair do campo normalmente, como se não houvesse nenhum código. É como se os dados ficassem invisiveis. Ou seja, o digitador ou o usuário estão vendo o campo vazio, mas o sistema não. Para o sistema existe dados no campo por isso ele não impede que o cursor sai.
Isto que deve ser impedido de acontecer, situação para a qual lhe perguntei se você teria alguma sugestão.

Não tenho nenhuma sugestão no momento

Ok. Obrigado

Olá Norberto, boa noite.
Obrigado pela a atenção.

O que ocorre é o seguinte:

eu já estou usando o código abaixo, sugerido por você no post 4, no evento antes de atualizar do campo "Masp", que está funcionando beleza. Ou seja, não está permitindo cadastrar número de masp já cadastrado.

If Me.Masp = Me.Masp.OldValue Then Exit Sub
If Not IsNull(DLookup("[Masp]", "Tbl_Geral", "[Masp] ='" & Me!Masp & "'")) Then
Cancel = True
Me.Masp.Undo
MsgBox "ESTE MASP JÁ ESTA CADASTRADO. VERIFIQUE. SE NECESSÁRIO FAÇA A ATUALIZAÇÃO DOS DADOS."
End If

O que estou querendo é evitar que o usuário passe pelo campo "Masp" sem digitar dados. Esrive tentando o código

If IsNull(Me.Masp) Then
MsgBox "O NÚMERO DO MASP É OBRIGATÓRIO!", vbInformation, " ATENÇÃO DIGITADOR"
Me.Undo
DoCmd.CancelEvent
End If

e também o código sugerido pelo colega ssp no post 15, mas não funcionou a contento pois só funciona se nunca tiver sido digitado dados no campo "Masp". Se tiver sido digitado dados no campo e depois apagado não funciona. Como já citado no post 16, é como se os dados ficasse invisiveis.
Agradeço

Eu já tentei este código só que usando os comandos Me.Undo e DoCmd.CancelEvent no evento ao sair do campo "Masp", mas funciona da forma ja citada. Se o campo é "virgem", funciona legal. Mas se não é, não funciona.

Teria que ser um código do tipo "null". Mas não estou sabendo fazê-lo.

E o que você sugeriu por último, também não funcionou e após o campo "Masp" no formulário o próximo campo é um grupo de opções.

Experimente assim:

Private Sub Masp_Exit(Cancel As Integer)
If IsNull(Me.Masp) or Me.Masp = "" Then
Cancel = True
MsgBox "O campo deve ser preenchido."
End If
End Sub

Abraços

Olá, Balem. Boa noite.

Deu erro Em tempo de execução "13": Tipos incompatíveis

Balem, me desculpe aí.

Deu certo sim. Eu havia esquecido de colocar as aspas duplas. Funcionou beleza.
Obrigado.
Mais uma vez me desculpa.
Agradecido

Valeu pelo retorno !!


Boa sorte!!