[Resolvido]Fechar access com botão

Boa Tarde amigos!!!!

No meu bd tenho o botão fechar, sendo que fecha o bd mas o access continua aberto. Tem como inserir algum codigo para fechar o bd e o access juntos? Aguardo ajuda.

Att

Oi Lu. Tente colocando assim no evento "Ao fehcar" do formulário:

Application.Quit

Se quiser perguntar primeiro se quer fechar:

If MsgBox("Deseja realmente fechar o programa?", vbYesNo, "Fechar") = vbYes Then
Application.Quit
Else
Exit Sub
End If

Olá amigo!!!! Senti falta sua. Rsrsrsrsrs.

Ficou legal, mas gostaria que quando eu apretasse o "não" o formulário continuasse aberto. Dessa maneira, o aplicativo fica aberto, mas o formulário é fechado, mesmo clicando o não.

Então vamos mudar de evento. Tente no "Ao descarregar" assim:

If MsgBox("Deseja realmente fechar o programa?", vbYesNo, "Fechar") = vbYes Then
Application.Quit
Else
Cancel = True
End If

Você é fera mesmo!!!!!

MUITOOOOOO OBRIGADAAAAAA!

Tópico resolvido!!!!

Imagina
Abração e até o próximo tópico, hehehe.

Coloquei esse codigo em outro formulário e está aparecendo a seguinte tela após eu clicar em não:

"A ação close foi cancelada"

Como faço para essa tela não aparecer?

troque o Cancel=True por

DoCmd.CancelEvent

ou

Exit Sub

Estou com o mesmo problema da Lu...

Coloquei os codigos acima mensionado, mas, nao deu certo, poderia alguem enviar um exemplo para que eu veja se estou fazendo algo errado?


Obrigado;

Poste os códigos que esta utilizando...

Cumprimentos.

Amigo, mais uma vez agradeço a sua ajuda, vc é dez...

Valeu.

Estou enviando o arquivo;

No seu botão sair, exclua a macro e coloque
Ao Clicar: Procedimento do Evento

e o código

Código:


Private Sub sair_Click()
DoCmd.Quit
End Sub

Cumprimentos.

Fiz exatamente o que me disse e agora o botão ficou sem funcionalidade, será que eu marquei alguma coisa errada no meu formulário???

veja nas propriedades do botão... onde havia Macro..
se está preenchido com procedimento do evento..
e se ao clicar ele mostra o código...

Por vezes ele pode estar duplicado no escopo e o botão direcionado ao primeiro código que está em branco... se assim o tiver, exclua o primeiro código.

Private Sub sair_Click()

End Sub

Private Sub sair_Click()
DoCmd.Quit
End Sub

Pior q está correto, estou enviando a imagem para vc ver como estah...

Obrigado amigo;

Observe que há um aviso de segurança no seu bd, desabilitando alguns itens do mesmo...
Veja o que é isto.. o problema pode esta ai...

Va nas opções de segurança e veja como está. E Deixe a opção.. Habilitar Macros..

Cumprimentos.

Cara, vc eh bom... rsrsrs
Um dia chego ao dedin mindin do seus pes... rsrsrsrs
Muito Obrigado, era justamente isso...

Obrigado e que Deus abençoe vc.

O Fórum agradece o Retorno.

Funciona perfeitamente.

Tenho um código vba (docmd.quit),com a funcionalidade de sair do aplicativo, configurado com a mensagem de sair ou não, no entanto, o aplicativo é fechado , mas, demora muito para executar a ação.

ese vodigo está fechando o programa ,mas esta deixando o bd aberto , quando clicar no programa ele não está sendo abre ou seja para eu fechar ele todo tenho que tenho que ir no gerenciador de tarefa fecha ele .
me ajude