Início
vitor_ 22/5/2013, 17:58Tem como rodar uma macro assim que fechar o BD ? Tipo o Workbook.close no Excel
3 participantes
[Resolvido]Macro ao fechar Banco de Dados
vitor_- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 16/05/2013
good guy- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010
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
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
vitor_- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 16/05/2013
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 ?
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- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Boa tarde, vitor
Veja se adapta
http://maximoaccess.forumeiros.com/t10661-resolvidoenviar-relatorio-diario-para-email
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- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010
Olá Vitor,
Quais os registros que você deseja excluir precisamente?
Quais os registros que você deseja excluir precisamente?
vitor_- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 16
Registrado : 16/05/2013
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
obrigado.
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
obrigado.
Tópicos semelhantes
