[Resolvido]Expirar aplicação em access por tempo de uso

Distribuo vários frontends para serem utilizados em diversas estações de trabalho e faço atualizações com algumas melhorias, deste modo, toda vez que distribuo o novo frontend não consigo garantir que os usuários substituiram os frontends antigos, deste modo gostaria de criar um código para bloquear o aplicativo após transcorrido um determinado período de dias, sendo assim:

Como configurar para a aplicação em access funcionar por um determinado tempo, por exemplo 30 dias de uso.
O objetivo é garantir que ao distribuir um novo frontend, atualização, que os usuários não continuem utilizando os frontends antigos que estão em suas estações de trabalho.

Coloque um campo número de nome VersãoAtual em uma tabela do Backend e no "Ao carregar" do frontend:

Dim rs As Recordset, MyVersion As Integer

MyVersion = 2

Set rs = DbEngine.OpenDatabase("CaminhoDoBackend", False, False, "MS Access;PWD=SenhaDoBackend").OpenRecordset("SELECT VersãoAtual FROM NomeDaTabela WHERE Código=1")

If rs!VersãoAtual > MyVersion Then
MsgBox "Há uma atualização mais recente do aplicativo", , ""
Application.Quit
Else
End If

rs.Close
Set rs = Nothing

Agora, basta colocar sempre a versão do frontend no MyVersion e colocar a versão atual na tabela do backend.

Caso não queria ter que entrar no backend para mudar isso, pode colocar um arquivo txt por exemplo no servidor e depois verificar se existe o arquivo da versão atual do frontend. Caso exista, continue, caso contrário, é porque mudou a versão e consequentemente mudou o nome do txt:

MyVersion = "Version 2.txt"

If Len(Dir("Caminho do servidor\" & MyVersion)) = 0 Then
MsgBox "Versão nova", , ""
Application.Quit
Else
End If

Esse último modo é útil para quando se usa baixar o txt da Internet por exemplo.

Criquio,

Como ficaria o código se eu colocasse o campo VersãoAtual em uma tabela vinculada no frontend?

A versão atual do frontend ou a versão mais recente desenvolvida? Se for a versão mais recente não faz sentido ela ficar no frontend. Porque aí teria que atualizar cada frontend em todas as vezes.

Aproveite esta excelente contribuíção, sem desfazer as ajudas do Criquio;

http://maximoaccess.forumeiros.com/t836-seguranca-anti-pirataria

Atualmente, não utilizo senha em meu backend e tentei ajustar o código para:

Set rs = DBEngine.OpenDatabase("W:\04 - Diretoria Financeira\Contas-a-pagar\NESA\FINANCEIRO\ANO 2011\SISTEMA GESTAO DE PAGAMENTOS\BANCO DE DADOS", False, False).OpenRecordset("SELECT VersãoAtual FROM Versao WHERE Código=1")


Mas aparece erro que o bd já está aberto e que o usuário não possui permissão para modificar.

Criquio,
Optei em fazer através de uma tabela vinculada, (tenho um mecanismo que revincula automaticamente as tabelas), essa tabela vinculada com nome de Versao no código a seguir, você acha que poderia dar problema? Conforme código abaixo:

Private Sub Form_Load()
Dim rs As Recordset, MyVersion As Integer

MyVersion = 2

Set rs = currentDb.OpenRecordset("SELECT VersãoAtual FROM Versao WHERE Código=1")

If rs!VersãoAtual > MyVersion Then
MsgBox "Há uma atualização mais recente do aplicativo", , ""
Application.Quit
Else
End If

rs.Close
Set rs = Nothing

End Sub

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.