MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    pefrn_cgh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 03/04/2014

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

    Mensagem  pefrn_cgh em Seg 07 Abr 2014, 05:09

    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.

    pefrn_cgh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 03/04/2014

    Complemento à solicitação acima

    Mensagem  pefrn_cgh em Seg 07 Abr 2014, 05:17

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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Seg 07 Abr 2014, 06:39

    Olá!

    O problema é que a constante vbOk é um número e não uma string. Observe que a variável "Resposta" é do tipo String. A conclusão é que vc está comparando uma string com um número.

    Altere a variável para o tipo número

    Dim Resposta as Byte

    Ou elimine a variável

    If MsgBox(Msg, Estilo, Titulo) = vbOK Then
    ...

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    pefrn_cgh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 03/04/2014

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

    Mensagem  pefrn_cgh em Ter 08 Abr 2014, 02:47

    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.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 08 Abr 2014, 12:29

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    pefrn_cgh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 03/04/2014

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

    Mensagem  pefrn_cgh em Qua 09 Abr 2014, 04:13

    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.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 09 Abr 2014, 04:24

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    pefrn_cgh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 03/04/2014

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

    Mensagem  pefrn_cgh em Sab 12 Abr 2014, 02:56

    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.

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

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

    Mensagem  clynton em Sab 12 Abr 2014, 07:47

    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.

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

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

    Mensagem  clynton em Qua 28 Maio 2014, 16:47

    Paulo,

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


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

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

    Mensagem  João Ricardo em Qua 28 Maio 2014, 16:53


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

    Estive com um problema semelhante e foi resolvido dessa forma.


      Data/hora atual: Qua 07 Dez 2016, 20:11