Mettre une date d'expiration à la BD en acces
Résolu
carrmo1
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
kisty1024 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
kisty1024 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Mettre une date d'expiration à la BD en acces
- Acces rapide - Guide
- Je n'ai plus acces a ma boite mail gmail - Guide
- Accès refusé - Guide
- Accès presse papier - Guide
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
9 réponses
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
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
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?
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?
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!
cordialement!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 :)
Merci :)
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.
Il suffit de maintenir la touche shift (majuscule) enfoncée pendant l'ouverture. Cette astuce fonctionne avec la plupart des applications Office.
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 ;)
ensuite, appel cette fonction à l'ouverture du formulaire de démarrage. j'ai essayé et ça marche nikel ;)