تاريخ اليوم افتراضي في خانة بالجدول او بالنموذج

[اشرف]

السلام عليكم 

اخواني الاعزاء

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

6666.rar

[اشرف]

عمل تاريخ اليوم كافتراضي توصلت اليه يبقي اتمام العمليه الحسابية بدون التركيز علي خانات اليوم والشهر والسنة

 

[Shivan Rekany]

3 hours ago, اشرف said:

السلام عليكم 

اخواني الاعزاء

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

6666.rar

جرب هذا الكود

Private Sub Form_Current()
If Not NewRecord Then
    Me.date_to = Date
    If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub
        Me.da = CalcAgeD(Me.date_from, Me.date_to)
        Me.mo = CalcAgeM(Me.date_from, Me.date_to)
        Me.ye = CalcAgeY(Me.date_from, Me.date_to)
End If
End Sub

 

6666.rar

[اشرف]

تمام 

لك كل التقدير استاذنا شفان ريكاني

الكود ممتاز

تم الحل