Discussion :

[skunkies]

Chez moi elle s'initialise au lancement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Form_Load()
 
 
Dim db As DAO.Database
 
'Déclare une varaible objet DAO.Property
Dim prp As DAO.Property
On Error Resume Next
Set db = CurrentDb
 
Set prp = db.CreateProperty("DateOuverture", dbDate)
 
prp.Value = Now
db.Properties.Append prp
db.Properties("DateOuverture") = Now
 
MsgBox prp.Value
Set prp = Nothing
Set db = Nothing
end sub

je recois now a chaque demarrage

[Faw]

Re,
enlève cette ligne

Code :

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

db.Properties("DateOuverture") = Now

[skunkies]

Et ...... j'ai toujours la meme chose au demarrage ma propriété change au NOW "actuel" si on peut appler ca comme ca.
Moi je veux que ca garde la date de la 1ere install et pouvoir tester dessus!

Je pense que ce qu'il faudrait faire serai plutot ca : le code de FRED+celui de TOFALU

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Public Function PropertyExists(ByRef o As Object, ByVal nomPropriete As String) As Boolean
    On Error Resume Next
    CallByName o, nomPropriete, VbGet
    PropertyExists = (Err.Number = 0)
End Function
 
sub from_load()
Dim db As DAO.Database
Dim prp As DAO.Property
On Error Resume Next
 
Set db = CurrentDb
Set prp = db.CreateProperty("DateOuverture", dbDate)
 
prp.Value = Now
db.Properties.Append prp
 
if (PropertyExists(prp,"DateOuverture"))=true
    tmp = db.Properties("DateOuverture") 
else 
   db.Properties("DateOuverture") =now
end if
 
'ICI LE TEST QUI FAUDRAIT METTRE EN PLACE POUR TESTER TMP+15J 
Set prp = Nothing
Set db = Nothing
 
end sub

Je recois toujours faux en retour de la fonction
PropertyExists(prp,"DateOuverture") PKOI

Est ce que cela vous parait coherent??et surtout est ce que ca (doit)marche(r)!!
MERCI

[FRED.G]

tu lis la propriété là où tu as besoin de la lire en prévoyant un code de gestion d'erreur qui, en cas de non existence de la propriété, la crée automatiquement...

Il faut être plus perspicace mon petit Faw !

J'ai oublié d'ajouter : Il faut être plus perspicace mon petit skunkies !




"tu lis la propriété là où tu as besoin de la lire" >> ça veut dire à l'ouverture (=chaque ouverture) de ta base, tu lis ta propriété, c'est tout ce que tu as à faire (dans un premier temps bien sûr... et la valeur de cette propriété tu la compares avec la date actuelle = la date au moment de l'ouverture... )

Maintenant si tu réfléchis, tu te dis "cool ! Facile ! 8) "

Et puis si tu réfléchis encore un peu (oui oui c'est pas iterdit avant de se pécipiter sur le forum...), ben tu te dis : "Mais pour que je lise cette propriété, il faut quelle soit créée... Sinon ça va provoquer une erreur..."

Et c'est là que tu comprends mon conseil : "en prévoyant un code de gestion d'erreur qui, en cas de non existence de la propriété, la crée automatiquement... "

[Faw]

Ça marche chez moi comme ça: c 1 code de test qui retourne les valeur de l’objet DateOuverture

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Form_Load()
On Error GoTo Err_Form_Load
Dim db As DAO.Database
 
Dim prp As DAO.Property
 
Set db = CurrentDb
Set prp = db.CreateProperty("DateOuverture", dbDate, Now)
 
db.Properties.Append prp
MsgBox (db.Properties("DateOuverture"))
db.Properties("DateOuverture") = Now
 
Set prp = Nothing
Set db = Nothing
 
Exit_Form_Load:
    Exit Sub
 
Err_Form_Load:
 
    MsgBox "Erreur…"
    MsgBox (db.Properties("DateOuverture"))
 
    ' ici toi tu testes ton délai d’essai ;tu quittes ou tu continues
    Resume Exit_Form_Load
 
End Sub

8)

[skunkies]

Comment supprimer cette propriété crée?

[FRED.G]

Bon, je suis désespéré...

8)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Form_Load() 
 
dim dteDateOuverture as date
Dim bteEcoulé as byte
Dim db As DAO.Database 
 
On Error GoTo Err_Form_Load 
 
Set db = CurrentDb 
dteDateOuverture = db.Properties("DateOuverture")
bteEcoulé = DateDiff("d", dteDateOuverture, Now)
 
Select case bteEcoulé 
  case is > 15
     MsgBox "La date limite d'essaie est dépassée."
     Application.Quit
  case else
     MsgBox "Il vous reste " & 15 - bteEcoulé & " jour(s). Profitez-en bien."
End select 
 
Set db = Nothing 
Exit Sub
 
Err_Form_Load: 
  select case err.number
    case 0000 'Merci de montrer que vous êtes capables de trouver le bon numéro d'erreur ;)
      db.Properties.Append db.CreateProperty("DateOuverture", dbDate, Now)
      Resume
    case else
      msgbox "Erreur inconnue : j'aimerais pas être à ta place :/"
      Set db = Nothing 
  end select
 
End Sub

[skunkies]

Desoler......mais je suis novice dans ACCESS alors creer une propriété en 10mn c un peu juste pour moi.
MERCI QD MEME DE TON AIDE!!!

[FRED.G]

Je comprends et j'admets tout à fait qu'il te faille une journée pour commencer à assimiler les concepts du vba / Dao : je suis moi même passé par là...

Là seule chose que je regrette, c'est votre incompréhension formelle du problème.
Vous ne pouvez pas devinez une procédure technique relativement arbitraire, bien que logique, je le conçois.
En revanche, je pense que dans l'approche purement "logique" du problème, vous auriez pu faire (beacoup) mieux.

En effet, il n'est pas nécessaire d'être un pro d'access pour pouvoir raisonnner de la façon suivante :

1) je crée ma propriété 1seule fois (logique)

2) je la met à jour 1 seule fois (a priori logique aussi)

3) pour les autres fois, je n'ai plus besoin de créer et mettre à jour la propriété car je veux juste lire la valeur pour la comparer avec la date du jour. Là je réfléchis à différentes stratégie, la première venant à l'esprit étant :

- Je teste l'existence de la propriété si elle existe, c'est bon, je peux la lire... si elle n'existe pas je la crée...

- Mais il y avait aussi la possibilité que je vous ai donné sans vous demander de la deviner mais plutôt en pensant que vous puissiez la comprendre Ma méthode ne cherche même pas à vérifier l'existence de la propriété et donc la lit directement... Lors de la première ouvertue de la base, la propriété n'étant pas créée, une erreur se produit, etc.

MERCI QD MEME DE TON AIDE!!!

ça reste avec grand plaisir

[Faw]

Err.Number = 3367
moi je le teste ds l'erreur , si oui l'objet existe et on teste la durée d'essai
sinon l'objet a été créé puisqu'il n'existait pas.

8)

[skunkies]

Sans pretention si tu relis mon message ou je donne ma maniere de resoudre le prob je pense que je n'etais pas loin en utilisant la fonction de TOFALU pour tester l'existance de la propriete!!
certes pas aussi clair que toi mais presque.....
Mais je t'assure que j'ai bien compris maintenant et ceci grace à toi!
en tout cas je vous remercie de prendre le temps de repondre a des qustions qui parfois doivent vous paraitre "nulle" ou "idiote" !
Je vous tire mon chapeau!
En esperant pouvoir bientot apporter mon aide dans pas tres longtemps !

[Faw]

ps:
Merci à tous, G encore appris quelque chose...

A+

8)

[FRED.G]

De rien.

Bonne nuit !

j'espère que vous n'oublierez pas le tag résolu...