Discussion :

[adelion7015]

Bonjour,

Mon but :

Avoir un champ qui me calcul la prochaine date d'exigibilité, c'est a dire:

Champ [Date d'exigibilité] = [Date de publication] + 1 en prenant compte la date systeme pour qu'a chaque année le date d'exigibilité change selon bien sur la [Date de publication]

l'existant :

J'ai un formulaire qui sa source une requêtes, sur cette requête, il y a champ calculé, j'ai essayé deux cas de calcul, mais les deux ne répondent pas a mon besoin.

1er cas :

Code :

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

[Date d'exegibilité] : DateAdd("aaaa"; datediff("aaaa";  [Date de publication]; Date()) +1; [Date de publication])

Pour le 1er cas il me donne automatique la date de la prochaine exigibilité sans prendre en considération a quelle position est la date de publication, c'est a dire :

[Date de publication] = 10/10/2012
[Date systeme] = 20/07/2017
[Date d'exigibilité] = 10/10/2018.

Nous remarquerons ici que finalement, la date d'exigibilté est au 10/10/2018, alors qu'elle devrait etre pous le 10/10/2017.

j'ai essayé l'autre cas:

2eme cas :

Code :

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

Date exibilité: AjDate("aaaa";DiffDate("aaaa";[Date de publication];Date());[Date de publication])+1

Pour ce cas le la date est juste pour les date avenir, mais pour les dates passées, la date reste coincée dans l'ancienne date d'exigibilité.

du coup, je me demande si je ne dois pas faire un test en changeant la date systeme de la machine pour voir, l'effet quelle aura sur mon champ.

j'espere que vous avez compris.

merci.

cordialement.

[marot_r]

Bonjour.

Pourquoi ne pas faire :

Code :

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

DateSerial(year(Date()+1); month([Date de publication]); Day([Date de publication]))

Cela va te calculer la même date en fonction de l'année du lendemain.

A+

[adelion7015]

Bonjour Marot_r

sauf erreur, mais je viens de faire le test et rien ne bouge.

cordialement.

[Jean-Philippe André]

Salut,

autre approche

[Date d'exigibilité] : DateAdd("aaaa"; 1; [Date de publication])+1

[adelion7015]

Bonjour,

Alors pour cette approche, il ne me donne que l'année n +1, sans prendre en considération la date système.

cordialement.

[Jean-Philippe André]

Oulah, OK, j'avais tres mal compris ton histoire de date systeme

Du coup l'idee proposee est la bonne, a ceci pres qu'il te faut tester si la date jour/mois a deja eu lieu cette annee =]

Code :

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

1
2
3
4
5
If DateSerial(year(Date()), month([Date de publication]), Day([Date de publication]))>Date Then
TaDate = DateSerial(1+year(Date()), month([Date de publication]), Day([Date de publication]))
Else
DateSerial(year(Date()), month([Date de publication]), Day([Date de publication]))
End if

[adelion7015]

Il s'agissait d'un champ calculé dans une requête, vous me suggérez du VBA, ou le mettre sur le load du formualire ?

merci.

[adelion7015]

Bonjour,

j'ai mis le code que vous m'avez donner dans l'evenement apres MAJ, tout en gardant le champ calculé sur ma requete qui est le suivant :

Code :

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

DateSerial(year(Date()+1); month([Date de publication]); Day([Date de publication]))

ca ne marche malheurseuement pas.

cordialement.

[Invité]

bonjour,

et avec cette formule :

Code :

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

1
2
 
DateAdd("yyyy", IIF(Year(Now())>Year([Date de Publication]),Year(Now())-Year([Date de Publication]),1), [Date de Publication])

équivalent à :

Code :

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

1
2
 
AjDate("aaaa", IIF(Year(Now())>Year([Date de Publication]),Year(Now())-Year([Date de Publication]),1), [Date de Publication])

[adelion7015]

Bonjour,

Je suis de retour, malheureusement ça ne marche toujours pas, l’incohérence persiste toujours, je suis desolé d'insister, mais j'aimerais avoir votre aide, vu que j'ai atteins mes limites.

merci.

cordialement.

[Invité]

Bonjour,

peut-on avoir un ou des exemples concrets d'incohérence ?
Quelle formule est utilisée ?

merci

[adelion7015]

Bonjour,

Alors, j'ai un champ [date d'exigibilité] au 09/06/2017, elle est calculé sur la base d'un champ [date de publication] qui a sa valeur 08/06/2011.

Vu que le 06/06/2017 est passé, il devrais avoir comme valeur la prochaine exigibilité qui est de 09/06/2018.


cordialement.

[Invité]

Voilà deux solutions qui incrèmentent l'année si la date anniversaire est dépassée avec deux options possibles :

1) si on veut que l'année d'exigibilité soit toujours > l'année de publication :
Dans l'éditeur de requête :

Code :

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

1
2
 
AjDate("aaaa";VraiFaux(Année(Maintenant())>Année([Date de Publication]);Année(Maintenant())-Année([Date de Publication])-(Format(Maintenant();"mmjj")>Format([Date de Publication];"mmjj"));1);[Date de Publication])

ou dans le code SQL :

Code :

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

1
2
 
DateAdd("yyyy", IIf(Year(Now()) > Year([Date de Publication]), Year(Now()) - Year([Date de Publication]) - (Format(Now(), "mmdd") > Format([Date de Publication], "mmdd")), 1), [Date de Publication])

2) si on veut que l'année d'exigibilité peut être la même que l'année de publication si la date courante n'est pas supérieure :
Dans l'éditeur de requête :

Code :

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

1
2
 
AjDate("aaaa";Année(Maintenant())-Année([Date de Publication])-(Format(Maintenant();"mmjj")>Format([Date de Publication];"mmjj"));[Date de Publication])

ou dans le code SQL :

Code :

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

1
2
 
DateAdd("yyyy", Year(Now()) - Year([Date de Publication]) - (Format(Now(), "mmdd") > Format([Date de Publication], "mmdd")), [Date de Publication])

[adelion7015]

Bonsoir galoir,

ça marche, c'est la première solution qui répond a mes besoins, merci beaucoup.

Cordialement.

[Invité]

Super, merci de mettre RESOLU au sujet ça me fait gagner 4,95€ HT

merci