[Resolvido]Data dando erro ao fecha sistema

Código:

Private Sub Form_Open(Cancel As Integer)
Dim MyDate, MyDay
dataDeterminada = #1/7/2019#essa data está dando erro
dataDoPc = #5/7/2019#
Quantidade =  datDoPc - dataDeterminada ''Parecenso que ele troca mês por dia
   If dataDeterminada > dataDoPc Then
     MsgBox "Tempo de acesso esgotado", vbCritical, "Teste"
    DoCmd.Quit
  Else
    MsgBox " voce tem  " & Quantidade & " dias restante"
End If
End Sub

Olá!

o VBA é muito patriota, ou seja, ele trata a data no padrão americano:  (01/07/2017) > sete de janeiro de 2019 /  (05/07/2019) > Sete de Maio de 2019:  isso dá os 120 dias que vc identificou.

Veja neste meu artigo sobre filtragens, como trata data no formato americano:

usandoaccess.com.br/tutoriais/aprenda-filtragens-no-access.asp?id=1#inicio
Copiar link e colar no navegador.

Sucesso!

Silvio, 

restringir por limitação de registro é uma ótima opção.  Fica tudo mais simples.  Quem quiser ter uma boa ideia deste assunto, veja o meu artigo abaixo:

usandoaccess.com.br/Dicas/sistema-shareware-por-limitacao-de-registros.asp?id=1
Copiar e colar o link no seu navegador

Bom estudo!

Código:

Dim dataFechar, dataDoPc
DataFechar = #7/5/2019#
DataDoPc = Date
Quantidade = dataFechar - dataDoPc
--
If dataFechar > dataDoPc Then
     MsgBox " Fala Matheus, você  " & Quantidade & " dias restante"
     DoCmd.OpenForm "Formulário1", , acNormal
Else
    MsgBox "        Seu tempo de acesso acabou." & Chr(13) & "entre em contado com o administrador"
    DoCmd.Quit
End If
End Sub

Código:

Dim Quantidade As Integer
Dim MyDate, MyDay
    MyDate = #7/11/2018#       'mes,dia e ano tem que colocar #.

   MyDay = Day(MyDate)
     Quantidade = MyDate - Date
     MsgBox "Quantidade disponivel de uso é: " & Quantidade & " dias.", vbCritical, "Aviso"
   If Date > MyDate Then
      MsgBox "Seu tempo demostrativo encerrou." & vbCrLf & "Entre em contato  com o administrador", vbCritical, "Aviso"
      DoCmd.Quit
End If
End Sub