Mettre une date d'expiration à la BD en acces
Résolu
carrmo1
Messages postés
29
Statut
Membre
-
kisty1024 Messages postés 16 Statut Membre -
kisty1024 Messages postés 16 Statut Membre -
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
- Accès refusé - Guide
- Je n'ai plus acces a ma boite mail gmail - Guide
- Accès presse papier - Guide
- Whatsapp la date est incorrecte ✓ - Forum Mobile
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.
