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

3 participantes

    [Resolvido]Macro ao fechar Banco de Dados

    avatar
    vitor_
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/05/2013

    [Resolvido]Macro ao fechar Banco de Dados Empty Macro ao fechar Banco de Dados

    Mensagem  vitor_ 22/5/2013, 13:58

    Tem como rodar uma macro assim que fechar o BD ? Tipo o Workbook.close no Excel
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Macro ao fechar Banco de Dados Empty Macro ao fechar Banco de Dados

    Mensagem  good guy 22/5/2013, 14:59

    Olá Vitor,

    O que você quer dizer? Um código de encerramento pode ser fechá-lo e abrir outro form ou para sair do bd .

    (1)DoCmd.Close acForm, "SeuFormulárioAtual", acSaveYes
    DoCmd.OpenForm "OutroForm", acNormal 'Opcional


    (2)Private Sub cmdFechar_Click()
    'Código de encerramento do Aplicativo
    DisplayMsgBox
    End Sub
    Sub DisplayMsgBox() 'Função de encerramento do Aplicativo
    Dim intButSelected As Integer, intButType As Integer
    Dim strMsgPrompt As String, strMsgTitle As String

    strMsgPrompt = "Tem certeza de que deseja sair do Aplicativo?"
    strMsgTitle = " Confirmação de Saída do Aplicativo"

    intButType = vbYesNo + vbQuestion + vbDefaultButton2 'Cria botões Sim/Não, modo interrogativo com foco em no segundo botão (Não)
    If MsgBox(strMsgPrompt, intButType, strMsgTitle) = vbYes Then
    ' YES button code...

    Beep
    DoCmd.Hourglass True
    Beep
    Call exibe_data_horaS
    DoCmd.Quit acSave

    Else
    ' NO button code...
    End If


    End Sub
    avatar
    vitor_
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/05/2013

    [Resolvido]Macro ao fechar Banco de Dados Empty Re: [Resolvido]Macro ao fechar Banco de Dados

    Mensagem  vitor_ 22/5/2013, 15:12

    obrigado good guy mas não é o que eu busco;
    exemplo, quero que ao fechar o Meu Banco de Dados apareça uma mensagem.
    O que eu quero é ao ocorrer o evento de "Fechamento" do meu BD alguns registros de uma tabela sejam excluídos
    Entendeu ?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8068
    Registrado : 05/11/2009

    [Resolvido]Macro ao fechar Banco de Dados Empty Re: [Resolvido]Macro ao fechar Banco de Dados

    Mensagem  Alexandre Neves 22/5/2013, 16:28

    Boa tarde, vitor
    Veja se adapta
    http://maximoaccess.forumeiros.com/t10661-resolvidoenviar-relatorio-diario-para-email


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Macro ao fechar Banco de Dados Empty Macro ao fechar Banco de Dados

    Mensagem  good guy 22/5/2013, 17:45

    Olá Vitor,

    Quais os registros que você deseja excluir precisamente?
    avatar
    vitor_
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 16/05/2013

    [Resolvido]Macro ao fechar Banco de Dados Empty Re: [Resolvido]Macro ao fechar Banco de Dados

    Mensagem  vitor_ 23/5/2013, 15:11

    Obrigado Alexandre Neves, atendeu sim ;D
    e goodguy, é uma tabela com dados de uma consulta que eu executo sempre que abre meu BD, então para não ter dados repetidos apago Smile
    obrigado.

      Data/hora atual: 26/1/2022, 20:42