Créer une date d'expiration ACCESS

laabidou Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 mprog67 -
Bonjour,

Salut;
j'ai trouvé une fonction qui permet de Créer une date d'expiration pour une application :
If Date >= DateSerial(2003, 12, 31) Then
MsgBox "La date d\'expiration de l\'application est dépassée", vbExclamation
DoCmd.Quit
End If

mais si je change la date système l'application peut s'exécuter, je demande votre aide pour modifier ce code ainsi même si je change la date après l'execution du code
(la 1ère execution) l'application ne démarre pas, j'ai essayé de faire appel à une variable booléenne mais cela n'a pas marché.

4 réponses

mprog67
 
Permettez moi de vous apporter mon assistance.
Voilà moi par exemple j'ai crée un compteur de temps et j'ai réglé l'expiration de l'application au nombre d'heures écoulées
2
laabidou Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   1
 
Salut;
mon code s'exécute parfaitement, mais si je change la date système le programme s'exécute, et je veux que le programme refuse de s'exécuter une fois la date d'expiration est dépassée même si je change la date système (date <date expiration)
merci et à bientôt;
1
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   217
 
Bonjour
Je pense que l'exemple donné est à partir s de If Date.
Date est la date systeme.
A la place il faut inscrire le nom du champ date d'expiration
Si ton champ s'appelle DateExpir tu devra inscrire If DateExpir.
Fait attention au format date americaine et francaise.
0
Jean_Jacques Messages postés 1040 Date d'inscription   Statut Membre Dernière intervention   112
 
laabidou,

Je n'ai pas creusé le sujet mais je verrais bien la fonction Now() y jouer un rôle.
Elle renvoie la date système et devrait participer à la solution recherchée.


Cordialement
0