MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Como fazer para fechar o banco de dados via VBA

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Como fazer para fechar o banco de dados via VBA Empty Como fazer para fechar o banco de dados via VBA

    Mensagem  Silvio 5/7/2011, 16:47

    Prezados boa tarde !

    Criei uma página inicial em um form, com vários ícones remetendo os mesmos aos seus devidos formulários e um ícone SAIR.

    Criei a seguinte rotina nesse ícone ( designer / ao clicar ):
    *******************************************************************************************************************************
    Private Sub sairdosistema_Click()
    MsgBox ("Você está saindo do Gerenciador de Certificados, tem certeza disso ?"), vbYesNo + vbDefaultButton1 + vbInformation, (" BIOMAX MANEJO ECOLÓGICO DE PRAGAS")
    If vbYes Then
    DoCmd.Quit
    Else
    If vbNo Then
    DoCmd.OpenForm "página inicial"
    End If
    *******************************************************************************************************************************
    Só que tanto faz eu clicar em sim ou não que o sistema fecha sozinho.

    Alguém pode me dar um dica de onde eu estou errando ?

    Desde já sou grato a todos.
    End If
    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como fazer para fechar o banco de dados via VBA Empty Re: [Resolvido]Como fazer para fechar o banco de dados via VBA

    Mensagem  criquio 5/7/2011, 16:53

    Tente assim:

    If MsgBox("Você está saindo do Gerenciador de Certificados, tem certeza disso ?", vbYesNo + vbDefaultButton1 + vbInformation, " BIOMAX MANEJO ECOLÓGICO DE PRAGAS") = vbYes Then
    DoCmd.Quit
    Else
    DoCmd.OpenForm "página inicial"
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Como fazer para fechar o banco de dados via VBA Empty Re: [Resolvido]Como fazer para fechar o banco de dados via VBA

    Mensagem  Silvio 5/7/2011, 17:58

    Criquio, boa tarde.

    Desculpe a demora, estava almoçando.

    Você matou a pau, faltou o if mesmo.

    Muito grato !

    Silvio.

    Dou por encerrado essa duvida de iniciante minha.

    Conteúdo patrocinado


    [Resolvido]Como fazer para fechar o banco de dados via VBA Empty Re: [Resolvido]Como fazer para fechar o banco de dados via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:04