Bonsoir s'il vous plaît je voudrais que vous m'aidiez à avoir un code source access permettant en trois jours après utilisation de l'application de le stopper
Bonsoir s'il vous plaît je voudrais que vous m'aidiez à avoir un code source access permettant en trois jours après utilisation de l'application de le stopper
Bonjour,
Vous créez une table T_Test avec un champ date (DebutTest: Date) qui va permettre d'enregistrer la date du 1er jour d'essai.
Vous créez un formulaire que vous ouvrez invisible au démarrage.
Sur ouverture du formulaire de démarrage, vous mettez du code pour tester s'il y a une date de début de test, dans la table.
Si pas de date :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim rs as DAO.Recordset set rs=currentdb.Openrecordset("T_Test",dbopendynaset) ...
Vous enregistrez dans la table la date du jour (avec la fonction Date()) :
Si une date est déjà enregistrée dans la table :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 if if rs.eof Then then rs.addnew rs!DebutTest=Date() rs.Update else ... end if
Vous testez le nombre de jours écoulés depuis son enregistrement avec :
if DateDiff("d",rs!DateTest,Date())>=3 then.
Si supérieur ou égal à 3 jours alors quitter l'application avec DoCmd.Quit().
A noter qu'un petit malin pourra toujours ouvrir l'appli sans ouvrir le formulaire de démarrage en appuyant sur la touche shift au démarrage :
Dans ce cas, il faut inhiber la touche shift, voici une discussion qui en parle :
désactiver touche shift/
Cdlt,
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager