Discussion :

[Platon93]

Bonjour à tous,

j'ai une table T1 qui comporte les champs "DateDébut", "DateFin " et "Durée".
On saisit à la main la "DateDebut" et la "DateFin" et on veut que le calcul de la "Durée " se fasse automatiquement quand on remplit "dateDébut" et "DateFin"

J'ai créé le code suivant dans l'objet "Durée", "DateFin" et "DateDébut" , j'ai dans "créer un événement" à partir de mon formulaire.
cependant, ça ne marche pas. Rien ne s'affiche dans le champ "Durée " situé sur le formulaire.

Auriez vous des suggestions? Ou dois-je mettre ce code ? dans l'objet "durée", "dateFin" ou "dateDébut"?
Et des suggestions pour le code?

Code vba :

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

1
2
3
4
5
6
 
Private Sub DateDébut_AfterUpdate()
If Len(Nz(me.DateDébut.Value,""))>0 AND Len(Nz(me.DateFin.Value,""))>0 then
me.Durée.value = Me.DateFin - Me.DateDébut
EndIf
End Sub

merci d'avance pour vos suggestions.

[LedZeppII]

Bonsoir,

je dirai qu'il faut le mettre dans l'évènement "Après MAJ" du contrôle "DateFin".
Car si on saisit la date de début avant la date de fin, quand l'évènement DateDébut_AfterUpdate se déclenche
"DateFin" est vide et le code ne rentre pas dans le If.

A+

[Platon93]

Bonsoir LedZeppII
Merci beaucoup, tu m'as aidé à résoudre mon problème.
Bonne soirée et bon week end.