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

    [Resolvido]Erro na Extensão accdr

    Compartilhe
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Erro na Extensão accdr

    Mensagem  Ronaldo Costa em Qui 10 Set 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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Noobezinho em Ter 15 Set 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Ronaldo Costa em Ter 15 Set 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
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Ronaldo Costa em Ter 15 Set 2015, 11:47

    Grato.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro na Extensão accdr

    Mensagem  Noobezinho em Ter 15 Set 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!


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qua 23 Ago 2017, 01:46