MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ideia para encerrar BD após tempo de uso.

    Compartilhe

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    [Resolvido]Ideia para encerrar BD após tempo de uso.

    Mensagem  Jonatan em Sab 12 Jul 2014, 14:31

    Olá amigos, preciso que meu BD encerre após determinado tempo de uso. Achei uma ideia bem interessante de um colega, Wellington Marinheiro, num outro fórum.

    [Você precisa estar registrado e conectado para ver este link.]

    Como reproduzir essa ideia?

    Grato a todos.

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Ideia para encerrar BD após tempo de uso.

    Mensagem  Dilson em Sab 12 Jul 2014, 22:20

    Olá Jonatan,

    Não sei se já avaliou, mas no UsandoAccess tem isso prontinho com criptografia e tudo, veja:
    [Você precisa estar registrado e conectado para ver este link.]

    Estude e implemente no seu projeto da forma que lhe convier.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    Re: [Resolvido]Ideia para encerrar BD após tempo de uso.

    Mensagem  Jonatan em Seg 14 Jul 2014, 15:04

    Olá pessoal, consegui o que queria. Aos interessados segue a que foi feito.

    Criei a seguinte função:

    Function Expirar()
    If DCount("[DataFinal]", "Teste") = 0 Then
      CurrentDb.Execute "INSERT INTO Teste (DataFinal) VALUES (Date()+15)"
    Else
      DoCmd.CancelEvent
    End If
    End Function


    Também a tabela Teste, com o campo DataFinal.

    Depois uma macro no evento Ao carregar para executar a função Expirar.

    E por último, no form. principal, no evento Ao clicar:
    If Not IsNull(DLookup("[DataFinal]", "Teste", "[DataFinal]   MsgBox "Tempo de testes encerrado", vbInformation
      DoCmd.Quit
    End If



    Dilson, obrigado. Vou dar uma olhada depois.

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Ideia para encerrar BD após tempo de uso.

    Mensagem  Dilson em Seg 14 Jul 2014, 15:10

    Ótimo que alcançou a solução.

    Vale a pena estudar o que te passei. O Avelino pensou em tudo quando construiu aquela solução.

    Abraço!


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

      Data/hora atual: Sex 09 Dez 2016, 11:31