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]Ideia para encerrar BD após tempo de uso.

    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jonatan 12/7/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.

    http://comunidade.itlab.com.br/eve/forums/a/tpc/f/449606231/m/292601431

    Como reproduzir essa ideia?

    Grato a todos.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Dilson 12/7/2014, 22:20

    Olá Jonatan,

    Não sei se já avaliou, mas no UsandoAccess tem isso prontinho com criptografia e tudo, veja:
    http://www.usandoaccess.com.br/tutoriais/tuto26.asp?id=1#inicio

    Estude e implemente no seu projeto da forma que lhe convier.
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jonatan 14/7/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
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Dilson 14/7/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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:01