[Resolvido]Erro na Extensão accdr

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

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 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

Grato.

É 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!