Código da caixa de mensagem não fuciona corretamente

Bom dia a todos.

Sou um usuário intermediário e, Access e estou com um problema em uma caixa de mensagem.

Ao clicar na caixa de mensagem, ela dá continuidade ao código, quando deveria parar. E quando tento repertir o comando no formulário a caixa de mensgem continua a aparecer, e não deveria se inserida a informação correta.

Segue abaixo o código:

Private Sub txt_detector_LostFocus()
Dim Msg, Estilo, Titulo, Resposta As String
Msg = "Detector não encontrado. Por favor digite novamente!"
Estilo = vbOKCancel + vbCritical + vbDefaultButton1
Titulo = "Erro - Detector não encontrado!"

   If txt_detector.Value = Null Then
       GoTo txt_detector_Err
   Else
       btn_clear.Enabled = True
   End If

txt_detector_Err:
Resposta = MsgBox(Msg, Estilo, Titulo)
If Resposta = vbOK Then
   Form_frm_dai_acionamentos.txt_detector.SetFocus
Else
   DoCmd.Close acForm, "frm_dai_acionamentos", acSaveYes
End If
End Sub

O que ocorre, o código não executa o comando de forma correta, no caso vbOk, ele passa para o próximo campo, e não dá o foco ao campo do comando, no caso, quando a informação está correta, a caixa de mensagem continua a aparecer.

O que desejo fazer aqui, quando o campo não localizar o registro, dar uma mensagem de erro para que o usuário coloque a informação correta e não dê sequência para gravar o registro com a informação incompleta.

Agradeço desde já pela ajuda.

Desculpem, me esqueci de mencionar que é o Access 2010, mas utilizo no formato .mdb.

Avelino,

Boa noite.

Antes de mais nada, obrigado pela resposta.

Infelizmente não fuincionou. Alterei de acordo com o que você postou, fiz as duas formas, mas continuou a apresentar o mesmo erro.

Certamente fiz algo errado na construção do código.

Minha única intenção é "travar" o formulário quando o registro não for encontrado na consulta, para que não seja gravado o registro em branco ou com erro. Se você puder me ajudar com algum código com que eu possa trabaljhar e executar esta ação que desejo.


Grato pela ajuda,

Atenciosamente.

Bom dia...
Seria interessante postar parte do projeto onde esta a duvida, para que possamos ter melhor compreensão da mesma.  E com riqueza de detalhes do que tem que ser feito.
Abraços

Silvio,

Boa noite.

Seguem algumas informações sobre o projeto, espero que possa ajudar a esclarecer minha dúvida.

Trata-se de um projeto onde no formulário cnsultamos e ao mesmo tempo registramos o acionamento de algum alarme de incêncio.

O formulário está conectado a uma consulta formada por três tabelas:

tbl_dai_detectores - Onde estão armazenadas as seguintes informações:
-detector_id - código personalizado no formato "999-99", que representa a seção e o número do detector em questão. Foi necessário este formato pois da maneira com que foram nomeados os detectores, foi a única forma que encontrei para criar índices exclusivos para cada detector.
-detector_setor - nome do setor onde o detector está localizado.
-detector_localização - local dentro do setor onde o detector está localizado.
-detector_nome - nome do detector.
-detector_camera - número da câmera de monitoramento mais próxima ao detector. (campo não utilizado no formulário)

tbl_operadores - Onde estão armazenadas as seguintes informações:
-operador_id - Código personalizado no formato "99.999-99", correspondente ao formato da matrícula do funcionário.
-operador_alias - Nome usual do operador.
-operador_nome - Nome completo do operador.(campo não utilizado no formulário).

tbl_dai_acionamentos - Onde ficarão armazenadas todas as ocorrências de acionamento, possui os seguintes campos:
-registro_id - Numeração automática do registro de ocorrências - padrão do access.
-alarme_tipo - Caixa de combinação com os valores AVARIA e FOGO.
-detector_id - Campo que se conecta à tabela tbl_dai_detectores, com a função de trazer os dados do detector para esta tabela.
-operador_id - Campo que se conecta à tabela tbl_operadores, com a função de trazer o nome do operador.
-registro_data - Campo com preenchimento automático da data do acionamento.
-registro_hora - Campo com preenchimento automático da hora do acionamento.
-funcionario_acionado - Caixa de combinação com os nomes dos funcionários responsáveis pelo sistema de alarmes.
-observações - Campo estilo memorando para observações que se façam necessárias.

Na verdade, preciso que quando os campos operador_id e o campo detector_id não encontrem correspondências em suas tabelas, gerem uma mensagem de erro informando que o resgistro em questão não foi localizado. Criando uma caixa de mensagem, onde eu tenha as opções Ok e Cancelar. Quando eu clicar em OK, o campo (operador_id ou detector_id) tenha seus dados apagados e receba o foco para que a informação seja digitada novamente. Quando clicar em cancelar, excluir todos os dados do registro em questão e fechar o formulário.

Espero que estas informações ajudem a solucionar minha dúvida.

Grato,

Atenciosamente.

ok...mas onde está o banco...?

Silvio, desculpe, realmente não entendi o que você precisa.

Por favor, me explique pois não tenho experiência em fóruns, e tenho certa dificuldade em explicar as coisas.

Agradeço sua atenção,

Atenciosamente.

pefrn_cgh,

Na mensagem que você manda no tópico, anexe uma cópia do seu BD em formato ZIP para analisarmos.
Quando perguntamos: "Onde está o banco?", é isso que queremos dizer, pois ele não foi anexado na mensagem, às vezes precisamos compreender o processo como um todo para buscarmos solução.

Paulo,

Se já tiver solucionado, por favor marque o tópico como [Resolvido], se não, diga-nos como está a situação.

Olá, tente usar a o código na propriedade Ao Sair do campo.

Estive com um problema semelhante e foi resolvido dessa forma.