Créer une date d'expiration ACCESSFermé

Question

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é.

Configuration: Windows XP / Firefox 3.6.23

mprog67 · Accepted Answer

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

castours · Answer

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.

laabidou · Answer

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;

Jean_Jacques · Answer

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

Créer une date d'expiration ACCESS

4 réponses

Discussions similaires

Newsletters