MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3407
    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!

    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    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.
    avatar
    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.
    avatar
    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."
    avatar
    João Ricardo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 526
    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: Sab 18 Nov 2017, 10:28