مساعدة كيف اجعل حساب العمر لخانة اليوم والشهر والسنة يتم تحديثها تلقائيا بعد مرور زمن على حسابها

[AboBahaa]

السلام عليكم ورحمة الله وبركاته
ارفقت لكم مثال  لحساب العمر بتاريخ اليوم  وبه الناتج مقسم لخانة اليوم والشهر والسنة ولكني لم استطيع جعل الناتج بعد حساب العمر يتم تحديث كل خانة تلقائيا بعد مرور يوم او شهر او سنة
فأنا اريد من الاخوة الكرام التعديل عليه  بحيث يتم التحديث تلقائيا لليوم والشهر والسنة في كل مرة استرجع فيها البيان  دون حساب التاريخ في كل مرة فقط هي المرة الأولى لحساب العمر يوم وشهر وسنة وبعدها يتم التحديث للخانات الثلاثة تلقائيا .
بمعنى انه اذا كان بعد حساب العمر على تاريخ اليوم فكان ناتج حساب العمر مثلا لكل خانة بالمثال 2يوم 5 شهور 4 سنوات عندما أقوم بفتح او استرجاع النموذج لليوم التالي او غيرت تاريخ اليوم بالكمبيوتر  اجد كل خانة من الخانات الثلاثة قد تم التحديث تلقائيا فأصبح اليوم 3يوم و5شهور و4 سنوات وهكذا اذا مر شهر او مر سنة يتم في كل خانة التحديث  تلقائيا
لعلي اطلت عليكم ولكني انتظر مساعداتكم

حساب العمر.rar

[ابوخليل]

If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub
Me.da.SetFocus
Me.da.Text = CalcAgeD(Me.date_from, Me.date_to)
Me.mo.SetFocus
Me.mo.Text = CalcAgeM(Me.date_from, Me.date_to)
Me.ye.SetFocus
Me.ye.Text = CalcAgeY(Me.date_from, Me.date_to)

هذه الاسطر الموجودة في النموذج والخاصة باستخراج العمر (الفارق بين تاريخين ) ضعها في حدث  الحالي للنموذج فحدث  الحالي يقوم بالتغيير عند التنقل بين السجلات

 

[AboBahaa]

تسلم اخي أبو خليل فقد تم المطلوب شكرا لك وعلى علمك