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

    [Resolvido]Erro na Extensão accdr

    Compartilhe

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro na Extensão accdr

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

    Grato.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2484
    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: Sab 03 Dez 2016, 15:32