MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Erro na Extensão accdr

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Erro na Extensão accdr Empty [Resolvido]Erro na Extensão accdr

    Mensagem  Ronaldo Costa 10/9/2015, 14:39

    Olá pessoal!

    Estou no "ponto final" de um projeto. Estou enfrentando um problema que não estou conseguindo resoulver...

    Enquanto meu arquivo está com a extensão accdb ou accde, ao clicar no botão para sair do sistema, o evento ocorre normalmente. Sem problemas.

    Porém, ao converte-lo para accdr, ao clicar para sair, aparece a mensagem conforme abaixo.


    A expressão Ao carregar que você inseriu como definição da propriedade de evento gerou o seguinte erro: Uso de "Null" invalido.


    O código que uso para sair do sistema é o seguinte:

    res = MsgBox("Tem Certeza Que Deseja Fechar o Programa?", vbYesNo, "ATENÇÃO!")
    If res = vbNo Then
    Exit Sub
    Else
    If res = vbYes Then

    fncAuditoriaFechar
    DoCmd.Quit
    End If

    Como posso solucionar isso?

    Anexos
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Erro na Extensão accdr Empty Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Noobezinho 15/9/2015, 10:40

    Olá Ronaldo

    Pelo que vi no código , apenas está faltando um End if


    res = MsgBox("Tem Certeza Que Deseja Fechar o Programa?", vbYesNo, "ATENÇÃO!")
    If res = vbNo Then
       Exit Sub
    Else
       If res = vbYes Then

          fncAuditoriaFechar
          DoCmd.Quit
       End If
    Endif


    Economizando código:

    If MsgBox("Tem Certeza Que Deseja Fechar o Programa?", vbQuestion+vbYesNo, "ATENÇÃO!") = vbYes then
      fncAuditoriaFechar
      DoCmd.Quit
    Endif


    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Erro na Extensão accdr Empty Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Ronaldo Costa 15/9/2015, 11:46

    A falta do 'end if' foi falha minha na hora da postagem. Estive fazendo uma varredura e constatei que alguns módulos que não eram necessários no meu projeto, apesar de não apresentarem erros quando depuro o código, estava causando perto. Fica a lição: Mantenha no seu projeto apenas o que é. Necessário para para o bom desempenho do mesmo.

    Obrigado
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Erro na Extensão accdr Empty Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Ronaldo Costa 15/9/2015, 11:47

    Grato.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Erro na Extensão accdr Empty Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Noobezinho 15/9/2015, 12:06

    É verdade Ronaldo


    E tem vezes que o Access nos prega peça, exemplo:
    sub x
    With rs  (um recordset)
          if x then
             bla bla
          else
            nonono
          End If
    end Sub  

    Aviso de erro do Access: If sem  End If
    Como o exemplo acima é pequeno, é fácil perceber qual é o erro
    Mas imagine num código muito maior.
    Acredito que foi erro de digitação dos programadores ou tradutores.

    Mas que ótimo que resolveu.
    Só falta colocar o resolvido no tópico.

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 28/11/2022, 00:52