[Resolvido]Validade sistemas access

Olá pessoal, estou com um sistema de corte e dobra de chapas, nele coloquei validade ou seja todo mês na data que coloquei aparece uma menagem.
"Sistema expirou" ai fica aparecendo essa msg até eu mudar a data, como posso fazer para fazer isso automatico ou seja na msg coloco um botão para o cliente poder colocar um codigo e alterar a dta para o mes seguinte.
Tipo: tenho esse codigo no botao Ok do Form Login
quria mudar somente a data para o proximo mes
-----------------------------------------------------------------------------------------
Private Sub btok_Click()
Dim k As Integer
On Error Resume Next
Dim Dtlimite As Date
Dtlimite = "05/11/2019" 'Sistema irá Expirar
If Date < Dtlimite Then
Else
MsgBox "Sistema expirou, Informe ao suporte", vbInformation, "Telecellmds!"
Quit
 End If
-------------------------------------------------------------------------------------------
Tem como fazer isso no access?
Desde já agradeço!

Boa noite, não adianta sobre esse caso, uma pessoa pode alterar o calendário do computador e ficar com o sistema rodando.
vc tem que colocar as datas na tabela (data inicail e final) e fazer com que o vba verifique isso, ou colocar a data na no vba verificando o API da data da internet. estou no celular. depois te passa

Obrigado amigo Crysostomo
pelo retorno vou tentar assim mais ainda tenho pouco conhecimento em VBA, espero seu exemplo

Bom dia amigo , no momento estou um pouco atolado, entra no meu anexos é você vai ver la "sysDemo"
https://www.maximoaccess.com/profile?mode=editprofile&page_profil=attachments&start=20&u=52754
abçs

Olá amigo, nao tem tem o anexo lá

boa tarde. aqui tem 2 forma , o sistema identifica se está no computador certo e valida o tempo

credito: Alexandre Fim

Obrigado amigo pela atenção, mais teria possibilidade de aparecer a mensagem de validade(vencimento do sistema) colocar uma opção para alterar a date em codigo?

Aqui mesmo;

https://www.maximoaccess.com/t118-demo-informar-serial?highlight=Expira+serial

Sim! Você pode fazer um update na tabela ou simplesmente por tras de senha abrir a tabela onde estão as datas

Obrigado!
crysostomo e JPaulo pela atenção e muita ajuda agrdeço de coração, já testei os dois arquivos e deu certo, só vou analizar melhor para colocar no meu projeto ai posto aqui


---------------------------------------------------------
Que Deus Continue Abençoando a Vocês!!

Feche o tópico.

Desculpa mais como fecho o tópico?

Veja neste link
https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

Boa tarde, quero agradecer a todos do fórum que me ajudaram a fazer essa montagem compartilhando projetos e conhecimentos, já tinha um sistema um sistema criado no access 98 e até tenho o access 98 para teste porem agora posso usar no 2010 e 2013 Graças a Deus que tem abençoado a todos aqui para proporcionar e compartilhar conhecimentos aos que estão começando no ramo(Profissão) de programão.
e por isso venho compartilhar esse sistema que é de todos aqui e ser for possível me ajudar mais nessa (não conseguir fazer ou ativa as permissões de usuários, quero que cada usuário tenha sua permissão no sistemas para fazer só o que o administrador autorizar ele já tem essas configurações).Obrigado!!!  cheers  cheers e Feliz 2020

https://drive.google.com/file/d/1KPkyS55rbjYXfnlzmlulnA1CnEcCt6Rm/view


Senhas:
admin/@2019
luiz monteiro/2019