المساعدة بحدث عند وجود قيمة لمربع تحرير وسرد

تفضل أخي العزيز

لقد تم معالجة قاعدة البيانات بناء لطلبك

Microsoft Access قاعدة بيانات جديد.rar

عزيزي Khodor

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

صورة للتوضيح

اذا كان بالامكان مساعدتي ليكتمل العمل

وجزيت خيرا

حيث كان الكود في حدث بعد تحديث حقل فترة الخدمة

Forms![HOME]![TEX552].RequeryForms![HOME]![TEX553].Requery

سعيد ام عهود لتواجدك

التعديل الذي قمت به جزاك الله خيرا لم يغير المضمون الذي اريدة لابد من الاختيار يدويا بفترة الخدمة

هل هذه الطريقة غير ممكنه الى من خلال الاختيار يدوياً ليتم التحديث ام ان هناك حل اخر

صورة للملف المعدل من قبلك

اخي الفاضل

الذي قمت بتعديله لك في الكود هو انه بعد عملية تحديث حقل فترة التجاوز من المفروض ان يتم تحديد فترة الخدمة برمجيا 

بدون تدخل منك فإن كانت فترة التجاوز اصغر من او تساوي 1800 فسيتم اظهار الخدمة الأولى في فترة الخدمة وعدى ذلك يتم اظهار الخدمة الثانية

هذا ما عملته لك في الكود البرمجي .

ولكن إن لم تتم الإستجابه لهذا الحدث فحاول نقل الكود البرمجي الى موقع آخر من احداث النموذج سواء بعد التحديث او في اي حدث تراه مناسب

لأن الكود البرمجي مبني على فترة التجاوز .

بالتوفيق

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

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

هل من تعديل اخت زهراء لهذا الكود حيث انه في حال عدم وجود تاريخ لايكون الناتج # خطاء

Public Function Days360(StartDate As Date, EndDate As Date, Optional Method As Boolean = False) As Long
  Dim TempMonths As Long
  Dim StartDay As Long
  Dim EndDay As Long
  StartDay = Day(StartDate)
  EndDay = Day(EndDate)
  If Not Method Then
    If StartDay > 30 Then
      StartDate = DateAdd("d", -1, StartDate)
    End If
    If EndDay = 31 And StartDay > 30 Then
      EndDate = DateAdd("d", 1, EndDate)
    Else
      If EndDay = 31 Then
        EndDate = DateAdd("d", -1, EndDate)
      End If
    End If
  Else
    If StartDay > 30 Then
      StartDate = DateAdd("d", -1, StartDate)
    End If
    If EndDay > 30 Then
      EndDate = DateAdd("d", -1, EndDate)
    End If
  End If
  StartDay = Day(StartDate)
  EndDay = Day(EndDate)
  TempMonths = DateDiff("M", StartDate, EndDate)
  Days360 = (TempMonths * 30) + (EndDay - StartDay)
End Function

ولاننسا جزيل معروفك

اخي الفاضل

لا تحتاج الى التعديل في الوحدة النمطية بل اتركها كما هي

ولكن تحتاج الى تعديل بسيط جدا وهو كالتالي :

اجعل تنسيق حقل تاريخ المباشرة هو   Short Date   تاريخ قصير

واجعل القيمة الإفتراضية له هي  ()Now=  

وبهذا اذا لم يكن هناك تاريخ مباشرة ( تاريخ عوده )  سيكون تلقائيا تاريخ المباشرة هو تاريخ اليوم حتى يتم التغلب على اي خطأ

وفي حال مباشرة الموظف وعودته من الإجازة اكتب تاريخ المباشرة يدويا ليتم حفظها في الجدول

بالتوفيق

حل ممتاز ويفي بالغرض لحد كبير

كلمة شكر ماتوفيك اختنا الغالية ام عهود