[Resolvido]Manter o foco no campo ate ser digitado algum código valido

Boa Noite. Tenho um campo 'txtCodLocador' primeiro o meu código verificar se o campo foi preenchido e se foi passa para verificar se o ID do Locador exite na tabela.

O que eu quero:

- Se o campo não houver dados, mantenha o foco no campo;
- Se verificar na tabela e não houver dados, mantenha o foco no campo.

Estou usando o SetFocus mais não funciona de acordo com o que quero. Veja o código:

Código:



Private Sub txtCodLocador_LostFocus()
'Busca os dados do Locador na Tabela
If IsNull(Me.txtCodLocador) Or Me.txtCodLocador = "" Then
        MsgBox "Digite o Código do Locador!", vbCritical, "Aviso"
        Me.txtCodLocador.SetFocus
Else
    If DCount("ID", "tbl_CadLocadores", "ID =" & Me!txtCodLocador & "") > 0 Then
        Me.txtLocador = DLookup("NomeLocador", "tbl_CadLocadores", "ID = " & Me.txtCodLocador & "")
        Me.txtLocadorCPF = DLookup("CPF", "tbl_CadLocadores", "ID = " & Me.txtCodLocador & "")
    Else
        MsgBox "Código do Locador não existe na tabela!", vbCritical, "Aviso"
        Me.txtCodLocador.SetFocus
    End If
End If
End Sub



Nao analisei seu codigo, mas tem uma especie de Bug no access que precisamos as vezes mover o foco para outro campo qualquer e em seguida mover o foco para o campo que queremos, para assim funcionar...



...
Else
MsgBox "Código do Locador não existe na tabela!", vbCritical, "Aviso"
Me.OutroCampoQualquer.Setfocus
Me.txtCodLocador.SetFocus
End If
...

Obrigado FabioPaes, funcionou.

Olá a todos,
Não é bug, o envento que está a usar é "ao perder o foco".
Tem que perder o foco para dar certo.
A solução é como o colega Fabio sugeriu, ou colocar noutro evento.
Fica a minha opinião.
Abraço

Bom dia Alvaro! O mesmo problema acontece também no Evento apos atualizar... As vezes acontece e as vezes nao...