mettre une date d'expiration à la BD en acces Résolu

Question

Bonjour à tous!
besoin besoin d'aide, je veut mettre une date d'expiration à mon application sous VBA en access.
j'ai mis le code suivant sur l'activation de formulaire de demarrage, et je veut donné une date d'avertissement 15 jours avant l'expiration de l'application a l'utilsateur , mai ca marche pas.
si quelqu'un peut m'aidé je lui remercie de tout mon coeur le code est le suivant:

Private Sub Form_Current()
If date - DateSerial(2010, 6, 30) < =15 Then
MsgBox "La Date d'expiration de votre application sera  dépassée dans 15 jours, pensez à renouveler votre abonnement", vbExclamation
Else
If date >= DateSerial(2010, 6, 30) Then
MsgBox " la date d'expiration de l'application est dépassée, contactez son concepteur", vbExclamation
DoCmd.Quit
End If
End If
End Sub

mprog67 · Answer

Salut 
j'ai pour vous un exemple que moi même j'utilise mais avec un compteur d'heures 
j'ai une table "Evaluation" dont les champs sont:
-Secondes
-Minutes
-Heures
puis j'ai créé un formulaire à partir de cette table et dans sa propriété "Visible" j'ai mis "NON" et 1000 à sa propriété "Intervalle minuterie" et je l'ai affecté comme formulaire de démarrage.
voilà le code vba que j'utilise:

Private Sub Form_Load()
If Me!Minutes > 0 Then
MsgBox "Il vous reste " & 135 - Me!Heures & Space(1) & " " & "heures" & _
       " " & " d 'essai.", vbInformation, "GestPharma"
Else
MsgBox "La période d'évaluation de cette" & _
Chr(13) & "application est de 135 heures.", vbInformation, "GestPharma"
End If

End Sub

Private Sub Form_Timer()
      
   Me![Secondes] = Me![Secondes] + 1
   Me![Minutes] = Int(Me![Secondes] / 60)
   Me![Heures] = Int(Me![Minutes] / 60)
   If Me![Heures] >= 135 Then
   MsgBox "La période d'essai est expirée.", & _
            Chr(13) & "Veillez contacter votre fournisseur" & _
            Chr(13) & "Pour une éventuelle mise en marche., vbCritical, "GestPharma"
   
    DoCmd.Quit
   End If
       
End Sub

blux · Answer

Salut,

quand tu dis, ça ne marche pas, quel est le problème ?

kisty1024 · Answer

c'est une bonne idée et j'ai une question :

un jour l'utilisateur ouvre son application (supposons qu'il a oublié de renouveler l'abonnement), alors la tu fait comment pour ouvrir cette application?

arrmo1 · Answer

si tu es administrateur de la base il faut toujours laissé un porte de sortie en cas pepin, tu peut codé ton projet, caché tes tables par code  et tes formulaires peut te servire de la touche Shift pour te basculé en mode bd, mm si ouvre la BD il ne peut rien faire sauf si il est admin chose qu'il ne faut jamais faire.
cordialement!

kisty1024 · Answer

ok, en fait j'ai essayé cet exemple et je ne peu pas accédé  a mon application! et la je veux la récupérer, donc comment je vais faire ?
Merci :)

kisty1024 · Answer

je trouvais la solution avec l'aide de quelqu'un dans un autre forum :

Il suffit de maintenir la touche shift (majuscule) enfoncée pendant l'ouverture. Cette astuce fonctionne avec la plupart des applications Office.

kisty1024 · Answer

salut mprog67, je veux te poser une question 
a quoi sa sert ton formulaire?

kisty1024 · Answer

carrmo1 tu met ton code dans un module,
ensuite, appel cette fonction à l'ouverture du formulaire de démarrage. j'ai essayé et ça marche nikel ;)

kisty1024 · Answer

une petite précision :
tu change :
If date - DateSerial(2010, 6, 30) < =15 Then 
....
If date >= DateSerial(2010, 6, 30) Then 
...

Par :

If Date = DateSerial(2010, 6, 15) Then
...
If Date = DateSerial(2010, 6, 30) Then
...

Mettre une date d'expiration à la BD en acces

9 réponses

Discussions similaires

Newsletters