MaximoAccess

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

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 : 227
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em 12/7/2014, 10: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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 12/7/2014, 18: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.

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Jonatan em 14/7/2014, 11: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.
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 14/7/2014, 11: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!

      Data/hora atual: 26/6/2017, 17:37