Discussion :

[Marie_2116]

Salut à tous !

Je souhaite faire la différence entre 2 dates. La date d'une facture et aujourd'hui.

Code :

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

1
2
3
4
Private Sub DAT_DFAC_AfterUpdate()
difference = datediff("m", DAT_DFAC, Now)
Me.difference.Requery
End Sub

Mais je n'arrive pas à faire fonctionner cette saleté de DateDiff !!! j'ai regardé dans la FAQ, dans le FORUM, j'ai trouvé des choses, j'ai essayé de différentes façons... mais je ne vois pas comment l'utiliser... Ca ne fonctionne pas !
(c'est pas très gentil de rigoler )
infos :
difference est le nom du champ où je souhaite que la différence entre les 2 dates apparaisse
DAT_DFAC est le nom du champ dans le formulaire en question (même nom dans la table source)
et je souhaite bien la différence en nombre entier de mois

Est ce que quelqu'un a plus les yeux en face des trous que moi sur ce coup là ?

Merci beaucoup !!

[Domi2]

Bonjour,

Ne serait-ce pas plutôt

Code :

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

difference = DateDiff("m", Now, DAT_DFAC)

Domi2

[Marie_2116]

Je viens d'essayer et.... non ça ne fonctionne pas
Ca aurait été trop beau
Merci quand même !

[Domi2]

Re,

Oui, de toute façon, dans un sens ou dans un autre

Je viens de faire un petit test dans une sub indépendante, cela a l'air de fonctionner.

Essaie peut-être de mettre une Msgbox avant DateDiff et afficher la valeur
de DAT_DFAC pour voir ce que cela donne

Code :

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

1
2
3
4
5
Private Sub DAT_DFAC_AfterUpdate()
    MsgBox DAT_DFAC
    difference = datediff("m", DAT_DFAC, Now)
    Me.difference.Requery
End Sub

Domi2

[Maxi-môme]

Ne faut-il pas faire un

Code :

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

1
2
 
Me.difference.value = datediff("m", DAT_DFAC, Now)

[pgz]

Bonjour.

En tous cas le

Code :

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

Me.difference.Requery

doit être de trop.

Bon courage,

PGZ

[Marie_2116]

re

j'crois que ya un gros n'importe quoi dans mon Access là, il n'ouvre pas de msgbox...
Est il possible de faire la différence entre 2 dates autrement que par cette fonction ?
avec un truc du style :

Code :

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

1
2
3
4
5
Dim date1 As Date, date2 As Date
date1 = Forms.Recherche_fiche_ent.DAT_DFAC
date2 = Now
difference = date2 - date1
Me.refresh

qui ne fonctionne pas non plus d'ailleurs...

J'suis un peu perdue là... ça semble tout bête à faire à la base ! C'est frustrant

[Maxi-môme]

Si difference est un champ de ton formulaire il faut bien a un moment identifier ce formulaire :

me.difference.value = tadate

[Marie_2116]

je crois que j'ai trouvé le pb : je n'ai pas de source contrôle au champ difference.
Est ce que cela peut en être la cause ?
Si oui, comment la rentrer, puisque la source n'est pas ma table, mais le code...?

PGZ : Oui, j'ai viré le Requery
Maxi-môme, j'ai essayé ton code et je n'ai toujours rien qui s'affiche....

[Maxi-môme]

tu es bien sure que ton champ difference est une zone de texte et non une zone de liste ??

[Marie_2116]

oui c bien une zone de texte
mais comme je te dis je n'y ai pas de source définie est ce que cela pourrai etre un pb ?

[Maxi-môme]

Non non la source n'est pas le problème...

Essaye ça :

Code :

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

1
2
3
4
 
Private Sub DAT_DFAC_AfterUpdate()
Me.difference.value = datediff("m", Me.DAT_DFAC, Now)
End Sub

[Janny]

Salut !

DAT_DFAC est de quel format?
si ce n'est pas le meme que NOW (dd/mm/yyyy hh:mm:ss) ça devrait pas marcher

[Marie_2116]

Et bien... ça ne fonctionne toujours pas !
Il doit y avoir un problème ailleurs...
je reprendrai ça demain, parce que là j'ai plus les idées dans le bon ordre...

Merci de ton aide Maxi-môme

[timoth]

j'crois que ya un gros n'importe quoi dans mon Access là, il n'ouvre pas de msgbox...

Es-tu bien sure que le code est executé ?
Si meme une msgbox ne marche pas, je vois pas d'autres raisons.

[Maxence HUBICHE]

tout à fait d'accord timoth !

Deux tests à faire :

1. Jette un oeil dans les propriétés de ton contrôle DAT_DFAC, onglet Evènements. Vérifie que tu as bien un [procédure évènementielle] dans le Après MAJ
2. Autre test : cliques dans ta procédure DAT_DFAC_AfterUpdate et regarde en haut du module. Est-ce que dans la liste de gauche tu as bien DAT_DFAC ou plutôt Général?

[Marie_2116]

Salut,

déjà merci de votre aide à tous !!

Jette un oeil dans les propriétés de ton contrôle DAT_DFAC, onglet Evènements. Vérifie que tu as bien un [procédure évènementielle] dans le Après MAJ

Oui, ça pas de pb c'était comme ça.

Autre test : cliques dans ta procédure DAT_DFAC_AfterUpdate et regarde en haut du module. Est-ce que dans la liste de gauche tu as bien DAT_DFAC ou plutôt Général?

en haut du module j'ai ceci :

Code :

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

Private Sub DAT_DFAC_AfterUpdate()

Et dans la liste de gauche j'ai bien de marqué :"DAT_DFAC Textbox"
Est ce que cela répond à la question ?

Janny : DAT_DFAC est au format Dat abrégé tout comme Difference, mon champ de destination pour DateDiff.

Comment puis-je être sûre que mon code est éxécuté ?
Les autres actions de mon code basées sur d'autres champs fontionnent toutes sans problème...

Merci de votre aide

[Maxi-môme]

ok, rebonjour,

tu dis que "difference" est de type date mais c'est plutot un entier non ?
c'est le nombre de mois qui separe deux dates..?

[Marie_2116]

salut,

dans les propriétés de difference j'ai mis date abrégée, mais je souhaite effectivement que ça soit un nombre entier de mois.
c'était bien vu....
Je viens de modifier ce format en un format standard, mais cela ne fonctionne pas

[Maxi-môme]

Décidement, pas de chance !!

Bon, la méthode bourrin, essaye d'utiliser des date en "dur" sur la methode datediff et vois si ca te renvoie qqch ds le champ de ton form