Código VBA para fechar o Access

[Thom_delphi 0]

Salve, Salve galera.. mais uma vez to precisando da ajuda de vcs, tow precisando utilizar um código VBA pra fechar o Microf]soft Office Access 2007, através do botão de um formulário.. no Click deste botão quero q o Access seja fechado sem erro.. jah tentei uns aki, mas ele sempre apresenta um Bug (erro).. agradeço a ajuda de vcs! abraço!

[Raficcha 1]

Só uma dúvida: Você está fazendo isso em Delphi ou Visual Basic? Preciso saber pois se for visual basic moverei para a área correta.

[robertosperandio 0]

E ai tudo bom?

faz assim no código do botão você tem que usar um código para fechar as janelas que estào abertas da aplicação e outro para fechar o access:

segue os códigos

 

código que fecha todas as janelas abertas:

docmd.RunCommand acCmdCloseAll

 

código que fecha o access:

DoCmd.RunCommand acCmdExit

 

exemplo o nome do botão é cmdsair com o evento de click, que você pode aproveitar para utilizar está pronto e com os comentários:

 

Private Sub cmdSair_Click()

docmd.RunCommand acCmdSaveRecord 'Salva as alterações de todos os formulários

docmd.RunCommand acCmdCloseAll 'fecha todas as janelas

DoCmd.RunCommand acCmdExit 'fecha formulário do access

End Sub

 

boa sorte.