Discussion :

[decour]

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 :

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

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!!

[Aurèl90]

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" ?

[Lou Pitchoun]

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

[pgz]

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 :

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

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

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

Bonne chance,
pgz

[decour]

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

[pgz]

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

Code :

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

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