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)
هذه الاسطر الموجودة في النموذج والخاصة باستخراج العمر (الفارق بين تاريخين ) ضعها في حدث الحالي للنموذج فحدث الحالي يقوم بالتغيير عند التنقل بين السجلات