[AC-2003] Adapation Function DateExpirationApplication() [Résolu]

[lucas-18]

Bonjour,

J'aimerais pouvoir modifier la date d'expiration de ma base tous les 6 mois.
Le problème avec le code suivant, c'est que chaque 6 mois je dois réinstaller une copie sur le pc de chaques utilisateurs.
Y aurait-il un moyen de rechercher la DateSerial dans une table ?

Code :

1
2
3
4
5
6
Public Function DateExpirationApplication()
If Date >= DateSerial(2012, 6, 1) Then
MsgBox "The expiry date of CTX has passed !", vbExclamation, "CTX"
DoCmd.QUIT
End If
End Function

Merci

[marot_r]

Oui il te suffit de crée une table de paramètre dans ta base dorsale et d'y mettre la date que tu veux puis dans ton code.

Code :

1
2
3
4
5
6
7
8
Public Function DateExpirationApplication()
 
   If Date >= DFirst("ChampDate","NomTaTable") Then
       MsgBox "The expiry date of CTX has passed !", vbExclamation, "CTX"
      DoCmd.QUIT
   End If
 
End Function

Évidement avec cette solution simpliste toutes tes bases frontales expirent en même temps et un petit malin pourrait aller changer la date dans la table de paramètre.

Tu pourrais l'améliorer en 'encryptant' la date (qui est en réalité un réel double) et ajouter une notion d'identification (ex : code d'utilisateur, numéro de machine, numéro de clef client) si plusieurs personnes partagent une même dosrale et que tu ne veux pas que toutes expirent en même temps.

A+

[lucas-18]

Envoyé par marot_r

Oui il te suffit de crée une table de paramètre dans ta base dorsale et d'y mettre la date que tu veux puis dans ton code.

Code :

Évidement avec cette solution simpliste toutes tes bases frontales expirent en même temps et un petit malin pourrait aller changer la date dans la table de paramètre.

Tu pourrais l'améliorer en 'encryptant' la date (qui est en réalité un réel double) et ajouter une notion d'identification (ex : code d'utilisateur, numéro de machine, numéro de clef client) si plusieurs personnes partagent une même dosrale et que tu ne veux pas que toutes expirent en même temps.

A+

En fait je veux que toutes expirent en même temps mais c'est vrai que quelqu'un pourrait aller changer les données dans la table.
Je ne comprends pas très bien ta notion d'identification. Comment dois-je m'y prendre concrètement ?

[marot_r]

C'est peut être le DFirst() qui pose un problème. As-tu créer une table pour enregistrer ta date d'expiration ? Y as-tu saisie une date d'expiration ?

Pour l'identification si tu veux que toutes expirent en même temps tu n'en as pas besoin mais il suffirait d'ajouter un champ à ta table de paramêtre (ex : CodeUtilisateur) et de chercher la date associée à l'identifiant choisi.

A+

[lucas-18]

Envoyé par marot_r

C'est peut être le DFirst() qui pose un problème. As-tu créer une table pour enregistrer ta date d'expiration ? Y as-tu saisie une date d'expiration ?

Pour l'identification si tu veux que toutes expirent en même temps tu n'en as pas besoin mais il suffirait d'ajouter un champ à ta table de paramêtre (ex : CodeUtilisateur) et de chercher la date associée à l'identifiant choisi.

A+

Je me suis trompé, ton code marche nickel
Ce qui mé dérange, c'est qu'il y a possibilité de modifier en entrant dans la table ...

[marot_r]

Oui c'est un problème récurent avec Access.

Comme je te l'ai suggéré tu pourrais 'encrypter' la date. Une méthode très simple est d'utiliser une fonction XOR() sur ta date.

Code :

1
2
3
private function EncrypterDecrypter(valeur as string) as string
    EncrypterDecrypter=valeur xor "ABCDEFGHIJ" 'Definir une clef d'encryprtage de 10 caractères pour une sécurité maximum et une simplicté de code.
end function

exemple de code exploitant cela

Code :

1
2
3
4
5
6
7
8
9
10
dim valeurEncryptee as string
valeurEncryptee=EncrypterDecrypter(format(dateExpiration,"yyyy\-mm\-dd"))
dim valeurDecryptee as string
valeurDecryptee=EncrypterDecrypter(valeurEncryptee) 
dateTestPourExpiration as date
dateTestPourExpiration=CDate(valeurDecryptee)
 
if date>=dateTestPourExpiration then
    'Périmée
end if

Donc a lieu de stocker une date en claire tu stockes la valeur encryptée dans un champ texte et tu t'en sert pour contrôler la date d'expiration.

A+