[Resolvido]Liberação de acesso sistema periodicamente.

Senhores Boa noite.

Tenho um pequeno sistema em Access e quero disponibilizar para um cliente, porém por um tempo limitado, podendo ser liberado novamente.

Exemplo:

Libero por 30 dias e dependendo por mais 30 e assim sucessivamente.

Gostaria que ao abrir o Formulário Inicio após a data estipulada para uso, ele escrevesse uma mensagem de "Sistema Bloquado, ligue para (11) 1111-1111.".

Sou novo em access e ainda estou aprendendo a desenvolver...existe esta possibilidade?

Resolvi man.

Mesmo assim Obrigado.

Segue meu código.

Código:

Private Sub btn_logar_Click()

On Error GoTo deu_erro

If DateValue("13/7/2017") >= Now() Then
DoCmd.OpenForm "BARRA DE PROGRESSO"
Else
MsgBox "A data de validade expirou!"
DoCmd.Close
End If

Set wshell = CreateObject("Wscript.Shell")
  wshell.PopUp "Acessando dados no Servidor...Aguarde...", 4, "Conectando com Servidor", 5

Dim Status As Long
Dim max As Long
max = 10000

SysCmd acSysCmdInitMeter, "Consultando Banco de Dados...", max

For Status = 0 To max
SysCmd acSysCmdUpdateMeter, Status

If Status Mod 1 = 0 Then
       DoEvents
   End If
Next Status




Dim NOMEUSU As String
Dim SENUSU As String

NOMEUSU = UCase(Nz(Me.txt_usuario.Value, ""))
SENUSU = UCase(Nz(Me.txt_senha.Value, ""))

If IsEmpty(NOMEUSU) Or IsEmpty(SENUSU) Then
MsgBox "Preencha os Campos..", vbOKOnly + vbCritical, "Impossível Acessar!!"

Else
   If ExisteUsuario(NOMEUSU, SENUSU) Then
   
   DoCmd.Close
   DoCmd.OpenForm "INICIO"
   MsgBox "Bem Vindo Ao SisLojasMM", vbOKOnly, "Bem Vindo"
   
   
   

   Else
   NumInteiro = NumInteiro + 1
       If NumInteiro <= 2 Then
       MsgBox "Usuário e Senhas Incorretos..", vbOKOnly + vbCritical, "Tente Novamente!!"
       Me.txt_usuario.Value = ""
       Me.txt_senha.Value = ""
       Me.txt_usuario.SetFocus
       Else
       MsgBox "Você excedeu o numero de tentativas..", vbOKOnly + vbCritical, "Sair do Sistema!!"
       DoCmd.Quit
       
       End If
   End If
           
End If
Exit Sub
deu_erro:
MsgBox Err.Description

End Sub