Discussion :

[amadou299]

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

[User]

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.

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)
...

Si pas de date :
Vous enregistrez dans la table la date du jour (avec la fonction Date()) :

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

Si une date est déjà enregistrée dans la table :
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,