[Resolvido]Bloqueio de sistema

Bd em Access 2007.

No formulário Frm_Inicial possui um botão de comando para abrir o Frm_Atividades e outro para o Frm_Bloqueio_Sistema.
No botão para abrir o Frm_Atividades , no evento "ao clicar" tem o seguinte comando para bloquear o acesso ao Frm_Atividades em determinada data:

Private Sub Rótulo2_Click()

If Date >= #6/26/2013# Then
MsgBox "SISTEMA" & Chr(13) & Chr(13) & "Sistema Indisponível - Entre em contato...", vbExclamation, "Lincença do Sistema"
DoCmd.Quit acQuitSaveAll
End If
If Date >= #6/26/2013# - 5 Then
MsgBox "SISTEMA" & Chr(13) & Chr(13) & "O Sistema ficará Indisponível em ??/??/????. - Entre em contato...", vbInformation, " Lincença do Sistema"
End If

DoCmd.OpenForm "Frm_Atividades" 

End Sub

Funciona perfeitamente. Porém gera um certo trabalho para alterar essa data de bloqueio: é preciso abrir o formulário no modo Design, Evento... e alterar dentro do código a nova data.
Para isso criei a Tbl_Bloqueio_Sistema e o Frm_Bloqueio_Sistema onde seria informada a nova data.

Gostaria que esse bloqueio pudesse ser feito apenas informando a nova data no Frm_Bloqueio_Sistema. De forma que o sistema comparasse a data do pc com a data informada na Tbl_Bloqueio_Sistema e também que esta nova data aparecesse onde está: ??/??/???? da MsqBox.

Segue anexo com modelo ilustrativo.

Desde já agradeço!

Boas Amigão... temos no repositório dois exemplos para registro de sistema... Ja deu uma pesquisada?


Cumprimentos.

Se bem entendi

Dim StrDate As Date
StrDate = DLookup("Data_Validade", "Tbl_Bloqueio_Sistema")

If Date >= StrDate Then ' Gostaria que comparace com a data informada na Tbl_Bloqueio_Sistema
MsgBox "SISTEMA" & Chr(13) & Chr(13) & "Sistema Indisponível - Entre em contato...", vbExclamation, "Lincença do Sistema"
DoCmd.Quit acQuitSaveAll
End If
If Date >= StrDate - 5 Then ' Gostaria que comparace com a data informada na Tbl_Bloqueio_Sistema e que esta data aparecesse onde está: ??/??/????
MsgBox "SISTEMA" & Chr(13) & Chr(13) & "O Sistema ficará Indisponível em " & StrDate & ". - Entre em contato...", vbInformation, " Lincença do Sistema"
End If


DoCmd.OpenForm "Frm_Atividades"

Porém esta não e uma boa solucão para o que pretende... Desta forma o teu sistema ficará vulnerável...

No respositório temos exemplos eficazes disso... No site do Avelino se não me engano há um exemplo também.


Cumprimentos.

Piloto, era exatamente isso que eu queria.
Acredito que o sistema não ficará vulnerável, pois colocarei um "filtro" restringindo o acesso ao botão Bloqueio Sistema, apenas ao Administrador.

De qualquer forma vou conferir as suas dicas de pesquisa, afinal, é sempre bom ter novas ideias.

Muito obrigado e sucesso!

Ficará vulnerável porque existe sistemas de desbloqueio da tecla shift.. pode-se acessar a tabela e modificar a data.

Veja o SysBase na sala de repositório

O Fórum agradece o Retorno.