Discussion :

[Renardo]

Bonjour a tous

J'aimerais savoir si quelqun a une idee pour cree un code du genre
qui a partir d'une date echue demander de rentrer un code d'acces
j'ai un code pour la date que je joint

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 If Not IsNull(Me!DateFin) Then
 If (Date > DateValue(Me!DateFin)) Then
MsgBox "La date d'expiration de l'application est dépassée", vbExclamation
DoCmd.Quit
 End If
End If

merci d'avance

[marot_r]

Je ne suis pas sur de bine comprendre, tu en dis si peu mais voilà un code qui répond strictement à ce que tu as demandé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim monCode as variant
 
If Not IsNull(Me!DateFin) Then
 If (Date > DateValue(Me!DateFin)) Then
   monCode=Inputbox("Entrez votre code","La date d'expiration de l'application est dépassée")
 End If
End If

[Renardo]

se que je demandait:
j' ai un champ date expiration et un champ Serial
si mon champ date est expire je voudrais qu'il me demande le N° de serial
comment faire: si mon serial est bon que sa m'ouvre le programme et si il n'est pas bon que sa le ferme
que code employer pour faire cela
j'espere etre un peut plus claire

[marot_r]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim monCode as variant
 
If Not IsNull(Me!DateFin) Then
 If (Date > DateValue(Me!DateFin)) Then
   monCode=Inputbox("Entrez votre code","La date d'expiration de l'application est dépassée")
 
   if monCode <> monSerial then
      msgbox "Le code entré est invalide, l'application va se fermer.", vbExclamation
       docdm.quit
   end if
 
 End If
End If

A+

[ft035580]

Bonsoir,

Cela me fais penser à la même problématique que lorqu' une date prévue arrive à son terme, on ferme l'application.

Dans ce cas ,on emploie (il me semble "Date serial")

[marot_r]

DateSerial peut servir chaque fois qu'on a besoin de générer une date sans ambiguité due au setting du PC et sans utiliser #date#.

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim maDate as date
maDate=DateSerial(2006,12,31):'Créer un date ayant pour valeur 31 dec 2006.

A+

[ft035580]

Bonsoir Marot_r,

Et dans ce cas cela ne pourrait pas le faire ?

[Renardo]

Merci Marot R pour ton aide
s'est a peut pret se que je cherche faire a part que je voudrais q'une fois le bon serial entre qu'on ne soit pas obliger de le rentrer a chaque fois

[philben]

Bonjour Renardo,

je ne connais ni ton public, ni le mode de diffusion de ton programme, mais la protection que tu envisages me semble très légère et le crackeur de quartier va la faire sauter en moins de temps que d'écrire ce message...

Un lien à lire : http://delphicool.developpez.com/protection/

Amicalement,

Philippe

[Renardo]

Bonjour Philippe
Juste pour te dire que je suis un Debutant passionne donc je cherche juste a m'informer et je me doute bien q'un code comme celui si ne ferrait pas long feu .