Raffraichissement d'une text box

Bonjour,

J'ai deux textbox (dates de livraison prévisonnelle et réelle)
et un textbox qui affiche automatiquement l'écart entre les deux.

Malheureusement, cet ecart ne se calcule pas malgré le code (j'ai aussi essayé avec un afterupdate...)

Code:

---

1 2 3 4 5

Private Sub txt_date_livraison_reelle_Change() Dim delai As Variant delai = DateDiff("d", Me.txt_date_livraison_prevue, Me.txt_date_livraison_reelle) Me.txt_retard = delai End Sub

---

Merci de votre aide!!

J'ai le même problème (je voudrais que l'affichage d'une zone varie dès que le contenu de la zone de saisie change) mais je n'y suis jamais arrivé. :?
Existe-t-il une autre solution que de mettre le code en "after_update" ?

@ decour
Salut,
as tu essayé sur pertefocus ??

Bonjour,

Si ton textbox est un contrôle indépendant, tu peux laisser tomber la procédure sur maj et de donner une source à ton control txt_retard:

Code:

---

=DateDiff("d";Me.txt_date_livraison_prevue; Me.txt_date_livraison_reelle)

---

Il faudra peut-être remplacer "d" par "j".

Bonne chance,
pgz

Malheureusement, le contrôle permet de remplir ma table....

Sur mise à jour de date livraison prévue ET réelle :

Code:

---

If Not IsNull(Me.dateprévue) And Not IsNull(Me.dateréelle) Then Me.délai = dateréelle - dateprévue

---

Avec dans la table correspondant : date prévue et réelle de type DATE/Heure et délai ENTIER.

C'est rudimentaire et ça ne peut pas ne pas fonctionner.

pgz