[Resolvido]Verificação de Data

Boa Tarde!!!

Sou iniciante em Access, quem poderia me ajudar no seguinte!!!

Tenho uma tabela chamada tblAcessos, em um formulário consegui identificar o ultimo acesso.

coloquei no evento ao carregar assim

DoCmd.GoToRecord , , acLast 'vai até o último registro
DoCmd.GoToRecord , , acPrevious 'depois volta um registro

com isto sempre sei quando foi o ultimo acesso.

Quanto a isto ta tudo certo, o que quero agora é o seguinte:

Digamos que meu banco de dados não é aberto por um determinado período de tempo tipo uns 20 dias, até ai tudo bem, quero que quando chegar a 45 dias sem ser aberto o sistema identifique o último acesso que foi á exatos 45 dias atrás utilizando esta tabela de acessos e ao abrir em qualquer data depois de 45 dias do ultimo acesso apresente uma mensagem qualquer e depois q o usuário clicar em ok o sistema seja fechado.

Não quero expirar o uso do BD quero que não inicialize mais após 45 dias sem uso, pois farei com q o usuário entre em contato para q eu habilite novamente a data de acesso como sendo hj por exemplo e se depois de hj o bd ficar outros 45 dias sem uso o sistema identifica e torna a fechar após o clique no botão ok da msg.

Agradeço a quem puder me orientar nesta etapa
Att. Marcelino

Talvez utilizando o DMax:

Código:

If DateDiff("d", DMax("CampoData", "Tabela"), Date) >= 45 Then
    MsgBox "Não pagou o serviço ficou sem acesso. Bem feito, vacilão", vbCritical, "Aviso"
    DoCmd.Quit
Else
End If

Boa Noite!!!

Criquio!!

Seu código funcionou perfeitamente, muito obrigado.
Assim q meu banco de dados ficar pronto vou disponibilizar uma cópia para ser avaliado pelos utilizadores do forum pois todas as funções ou quase todas obtive através de pesquisas efetuadas aqui mesmo no forum, pois sem nenhuma experiencia em Access quando começei, aprendi a utilizar o Access criando vários recursos úteis para um banco de dados amador como o meu.

Assim q estiver pronto disponibilizo ele, pois consegui chegar aonde cheguei com meu bd graças ao Forum, para aqueles q como eu engatinhando no mundo vb, possam ver q é só ir no lugar certo, falar com as pessoas certas, e acima de tudo ter determinação e objetivo, além claro de uma pitada de curiosidade já q são termos em inglês e bastante técnicos também.

Mais uma vez muito o brigado.

Att. Marcelino

Grato pelo retorno e é por aí mesmo. Agora, para melhorar ainda mais, só falta você mudar de time... brincadeirinha, hehehe.

Ah, faltou clicar no botão Resolvido. Dessa vez eu mesmo clico.