[Resolvido]Limitar o tempo de uso do banco de dados

Boa noite,
Estou usando este forum pela premeira vez, e estou aprendendo a utilizar o access,ou seja, sei criar tabelas e formulario.
Utilizo o office 2007.
Criei um banco de dados para cadastro para um posto fiscal municipal, onde tem uma tabela e formulario para cadastro de entrada e saida de mercadoria do municpio, uma tabela e formulario para cadastro de movimentação interna de mercadoria.
A ajuda que solicito deste forum e:
Teria como limtar o tempo de uso deste banco de dados até o final deste ano?
Este limite seria até 31/12/2012, a partir do dia 01/01/2013 ao tentar utilizar o banco de dados não seria permitido, abrindo com mensagem tipo, limte do banco de dados expirou.

Olá, seja bem vindo ao fórum. Tente, no evento "Ao cerregar" do formulário inicial:

Código:

If Date > #31/12/2012# Then
    MsgBox "Tempo de uso do programa expirou", vbCritical, "Atenção"
    DoCmd.Quit
End If

Recomendo criar um accde logo após, para que o código fonte seja destruído e ninguem com maiores conhecimentos possa entrar na estrutura e reverter isso. Tambem para se evitar que abram outro formulário pela estrutura do programa, pode colocar no evento "Ao carregar" dos outros formulários algo que os impeça de ser aberto caso o formulário principal esteja fechado:

Código:

If CurrentProject.AllForms("NomeDoFormulárioPrincipal").IsLoaded = False Then
    MsgBox "Esse formulário não pode ser aberto diretamente, mas apenas à partir do formulário principal", vbCritical, "Atenção"
    DoCmd.Quit
End If

Dessa forma, caso alguem tente abrir o aplicativo pela estrutura para ter acesso aos outros formulários, não conseguirá.

Lembrando: tudo isso deve ser feito antes de converter o banco para accde. Depois da conversão, não será possível alterar a estrutura. Você deve guardar uma cópia do accdb original para o caso de precisar alterar algo.

Bom dia criquio,
Coloquei o código como foi indicado em evento "Ao carregar" coloquei a data 16/06/2012 para fazer um teste, abri o formulario,primeiro veio a mensagem com o tempo expirado,ha também uma mensagem "DoCmd for uma nova macro ou um grupo de macros, verifique se você o salvou com o nome correto", consegui adicionar um novo registro.
Com este código o formulário não devaria ficar travado?
Nome da tabela= Tabela_entrada_saida.
Formulário= Cadastro de entrada e saída.
A outra tabela = Tabela_n_f_municipal.
Formulário = Cadastro de nota fiscal municipal.
existe também tabelas e respectivos formularios para cadastro de contriobuintes, cadastro de cidades e cadastro de servidor municipal, pois criei nos formulario de entrada e saida e nota fiscal municipal uma caixa de combinação para estas tabelas.

Tem alguma macro associada ao evento "Ao carregar" ou a outro evento do formulário? Isso deve funcionar bem, a menos que tenha algo mais nos eventos que esteja interferindo.

Desculpe eu meter a colher, mas se tivesse perfeito não abriria o formulário!

Olá CarlosMT,
Eu particularmente uso este exemplo que estou te enviando, eu limito não pela data, eu limito pelo numero de registros. Neste exemplo eu limitei pelo número de registros da TabelaGeração! E se você analizar eu bloqueei a tecla shift, não há como entrar no banco de dados, somente o administrador, espero que goste!

Abraços!

Estou anexando o meu banco de dados para que anilem onde esta o erro.

Senhores desculpa me intrometer,
eu uso esse no evento ao abrir do form principal

Private Sub Form_Open(Cancel As Integer)
If Date >= #5/31/2012# Then
MsgBox "Cópia demonstrativa" & Chr(13) & Chr(13) & "Entre em contato com desenvolvedor e adquira uma nova cópia."
DoCmd.Quit acQuitSaveAll
End If
End Sub

Abraço

Procurar não deveria custar nada...

http://maximoaccess.forumeiros.com/t119-demo-por-dias

utilizei este

Código:

Private Sub Form_Open(Cancel As Integer)
If Date >= #5/31/2012# Then
MsgBox "Cópia demonstrativa" & Chr(13) & Chr(13) & "Entre em contato com desenvolvedor e adquira uma nova cópia."
DoCmd.Quit acQuitSaveAll
End If
End Sub


Porém agora não tem como tirar esta msg e nem mecher no BD oque devo fazer '-----------'