Date de validité [Résolu]

FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention - 2 févr. 2018 à 15:33 - Dernière réponse : FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention
- 13 févr. 2018 à 19:38
bonjour, j'ai une base de données Access. je souhaite programmer la date de validité de la base de données Access. Merci
Afficher la suite 

6 réponses

Répondre au sujet
yg_be 4599 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 13 février 2018 Dernière intervention - 3 févr. 2018 à 23:35
0
Utile
5
bonsoir, c'est quoi la date de validité d'une base de données Access?
FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention - 12 févr. 2018 à 10:07
Bonjour, la date de validité, c'est une date d'expiration, une date à partir de laquelle la base ne fonctionne plus. tout comme les version démo des logiciels. il y a des moments le client dit qu'il va essayer la base pendant 2 semaines alors je souhaite que après les 2 semaines la base se plante.
yg_be 4599 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 13 février 2018 Dernière intervention > FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention - 12 févr. 2018 à 14:55
si tu as du code VBA dans cette base, tu peux bricoler quelque chose pour que le code refuse de fonctionner, ou même nettoie la base, après une date déterminée.
FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention - 12 févr. 2018 à 18:41
quel serait donc ce code vba, aidez moi
yg_be 4599 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 13 février 2018 Dernière intervention > FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention - 12 févr. 2018 à 19:19
exemple de code, qui ferme la base dès le 12 février 2018:
Public Function autostop()
If Now() > DateSerial(2018, 2, 12) Then
    Application.CloseCurrentDatabase
End If
End Function

Tu peux créer une macro appelée AutoExec qui va appeler cette fonction.
Sache toutefois qu'un utilisateur averti peut facilement contourner cette protection.
Ceci terminera Access, ce qui est un peu plus agressif:
Public Function autostop()
If Now() > DateSerial(2018, 2, 12) Then
    Application.Quit
End If
End Function

Sois prudent avant de tester cela, tu risques de rendre ta base inutilisable, :-)
FONGBE 56 Messages postés samedi 5 novembre 2016Date d'inscription 13 février 2018 Dernière intervention - 13 févr. 2018 à 19:38
Merci je vais tester. mais le test je copie la base. merci beaucoup
Commenter la réponse de yg_be