اذهب الي المحتوي
أوفيسنا

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


اشرف

الردود الموصى بها

السلام عليكم 

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

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

6666.rar

رابط هذا التعليق
شارك

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

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information