Menu

Date de validité [Résolu]

FONGBE 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 2018 Dernière intervention - 2 févr. 2018 à 15:33 - Dernière réponse : FONGBE 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 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 

Votre réponse

6 réponses

yg_be 5603 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 22 mai 2018 Dernière intervention - 3 févr. 2018 à 23:35
0
Utile
bonsoir, c'est quoi la date de validité d'une base de données Access?
FONGBE 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 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 5603 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 22 mai 2018 Dernière intervention > FONGBE 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 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 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 2018 Dernière intervention - 12 févr. 2018 à 18:41
quel serait donc ce code vba, aidez moi
yg_be 5603 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 22 mai 2018 Dernière intervention > FONGBE 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 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 64 Messages postés samedi 5 novembre 2016Date d'inscription 27 avril 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