Discussion :

[Rickhq]

Bonjour à vous,

Je galère depuis des heures sur une simple soustraction de date... J'ai lu sur le forum mais rien de marche...

J'ai un formulaire qui contient un champ date (Texte7) et un autre champ masqué (Texte67) qui contient l'expression "Maintenant()" je veux faire la différence en jrs entre ces deux champs et l'afficher dans un troisième champ (Texte69).

J'ai essayé l'expression "Diffdate" mais sans succès... Peut être ma syntaxe...

Merci à l'avance!

[jimbolion]

Rickhq

Exemple basé sur le clic d'un bouton

Code :

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

1
2
3
Private Sub Commande6_Click()
    Me.Texte69 = DateDiff("d", Me.Texte7, Me.Texte67)
End Sub

Si ton champ 67 correspond toujours à la date du jour, tu peux t’affranchir du contrôle sur ton forms

Code :

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

1
2
3
Private Sub Commande6_Click()
    Me.Texte69 = DateDiff("d", Me.Texte7, Now())
End Sub

Attention les contrôles Texte7 et Texte67 doivent être de type date

Jimbolion

[ClaudeLELOUP]

Bonjour,

Voici un exemple un autre exemple de solution.





Edit : Bonjour Jean-Marie, pas vu que tu étais aussi sur la balle !

[Rickhq]

Désolé pour le décalage horaire... D'abord Bonjour à vous deux et merci pour votre intérêt.

Le fait que mon fichier a été construit avec la version 2003 et ce retrouve maintenant en version 2010 n'aide peut-être pas...

J'ai essayé vos solutions, la version "Bouton vba" fonctionne, cependant la version "expression" ne réagit pas. J'ai joint un petit démo en version 2010.

SousDate.doc

NB changer .doc pour .accdb au nom du fichier joint.

Merci encore.

[ClaudeLELOUP]

Rebonjour,

Pour joindre un fichier, il suffit de le zipper.

Quoi qu'il en soit, j'utilise Access2000 et je ne peux regarder ta db.

Je te joins la version Access2000 avec laquelle j'avais testé ma réponse.

[Rickhq]

Bonjour ClaudeLeloup,

Rien y fait avec 2010... Voici le fichier (zipper cette fois).

Merci encore!

[ClaudeLELOUP]

P.-S.

De ce côté-là de l'Atlantique, tu utilises peut-être une version anglophone qui n'aime sans doute pas :





mets-y un peu de sauce anglaise :

Code :

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

=Int([txtNow]-[txtUnedate])

[ClaudeLELOUP]

Par contre, avec ton fichier, moi, j'ai ceci :




La bonne syntaxe :

Code :

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

=Ent([txtNow]-[txtUnedate])

Code :

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

=Ent([Texte8]-[Texte6])

[Rickhq]

Euréka ! Sauce anglaise il a aimé cela...

Merci et au plaisir!