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

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.

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.

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.

Ó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!