احتساب ايام التأخير كيوم غياب للموظفين

[SAROOK]

السلام عليكم ورحمة الله وبركاته

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

فمثلا لنفترض ان الموظف طارق تأخر في أيام هي   يوم 4/2/2024     و يوم 6/2/2024     ويوم 14/2/2024

وهذه طبعا تلات أيام تم فيها التأخير . فيتم احتسابها كيوم غياب  ويتم تحديد تاريخ هذا اليوم كآخر يوم تأخر فيه الموظف طارق وهو يوم 14/2/2024 ويضاف الى باقي أيام الغياب في مدخلات الغياب في نموذج ادخال الغياب اليوم

فاذا كان الموظف طارق غائب  في يومين   هم يوم  11/2/2024      ويوم 13/2/2024

يضاف اليها ماتم احتسابه من تلات أيام التأخير كيوم غياب وهو يوم 14/2/2024   

وبذلك يصبح الموظف غائب في ثلاث أيام

ارجو ان أكون قد احسنت الشرح وبارك الله فيكم   

الغياب والتاخير.accdb

[kkhalifa1960]

تفضل استاذ @SAROOK محاولتي حساب مافهمت بعد اضافة تأخير لموظف فقط اضغط الزر تحديث .

الغياب والتاخير.rar

[SAROOK]

السلام عليكم ورحمة الله وبركاته

نهارك طيب بشمهندس خليفة وجمعة مباركة .جربت المرفق ولقد نجح الشرط في تحويل ايام التاخير التلاته الى يوم غياب تسلم ايدك  . لكن تاريخ هذا اليوم الذي تم اضافته الى ايام الغياب عليه بعض الملاحظات :

1- تاريخ هذا اليوم يجب ان يكون مطابقا لتاريخ اخر يوم تاخر فيه الموظف من الثلات ايام . بمعنى ان الموظف قد تاخر ثلات ايام هي كمثال أيام هي   يوم 4/2/2024     و يوم 6/2/2024     ويوم 14/2/2024  هنا يجب ان يكون تاريخ اليوم الذي تمت اضافته هو 14/2/2024 

2- في نموذج ادخال الغياب نلاحظ انه عند اضافة اليوم يضيفه ويترك تلات فرغات 

3- عند اضافة كمثال 6 ايام تاخير يضيف يومين غياب بنفس التاريخ اي ان مهما زادت عمليات تاخير الموظف لنفرض ان الموظف تاخر في 12 يوم اي ان سيتم اضافة اربعة ايام غياب سيتم اضافتهم بنفس التاريخ ولسوف نجد ان تاريخ الغياب قد تكرر اربع مرات .

4- اذا تم ادخال  تلات ايام تاخير نجد ان عند  كل عملية تحديث في نموذج التاخير يضيف يوم غياب . اذا اجريت كمتال خمس عمليات تحديث يضيف خمس ايام غياب وهكذا  

والله الموفق 

والسلام عليكم 

 

[kkhalifa1960]

الاستاذ الفاضل @SAROOK طبعاً انا راعيت ان في كمبيوتر بيحست عند الادخال اليومي للتأخير  وعمل تحديث يومي قبل اغلاق النموذج فطبعاً اذا وصل لليوم الثالث بيسجله بتاريخ اليوم وعند تسجيله 

اليوم السادس كذالك وهكذا . اما اذا كنت عاوز بأثر رجعي  فما فائدة البرنامج .

[SAROOK]

السلام عليكم 

اهلا بك اخي بشمهندس خليفة 

لوائح الغياب تقتضى ان يتم احتساب كل كل تلات ايام تاخير بيوم غياب وان يكون تاريخ هذا اليوم هو تاريخ اخر يوم تم فيه التاخير  هذا من ناحية ومن ناحية اخرى اذا تم وضع تاريخ اليوم هو تاريخ الغياب ( المحسوب عن تلاته ايام تاخير ) فهناك احتمال ان يكون الموظف اصلا غائبا في هذا اليوم وفي هذه الحالة سوف  ينشاء تعارض  

تحياتي لشخصك الكريم 

بارك الله فيك 

[kkhalifa1960]

تفضل استاذ @SAROOK التعديل حسب طلبك بعد اضافة تأخير لموظف فقط اضغط الزر تحديث .

1-الغياب والتاخير.rar

[SAROOK]

السلام عليكم ورحمة الله وبركاته

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

* لاحظت ان عند ادراج تلاته ايام تاخير لا يشتغل الشرط  ولايضيف يوم غياب كما هو  مبين في صورة الموظف احمد 

*لاحظت ايضا ان الشرط يشتغل فقط عند وجود 6 ايام تاخير هنا طبعا سيتم اضافة يومين غياب . تاريخ اليوم الاول سليم حسب الشرط اما تاريخ اليوم الثاني لايتم حسب الشرط وهذا مبين في صورة الموظف طارق  

* لاحظت ان عدة سجلات فارغة يتم اضافتها لنموذج ادخال الغياب عند تنفيد الشرط كما هو مبين بالصور 

تحياتي لشخصك الكريم وسامحني في تعبك معي 

 

 

[kkhalifa1960]

تفضل استاذ @SAROOK التعديل حسب طلبك بعد تدارك ملاحظاتك .

2-الغياب والتاخير.rar

[SAROOK]

السلام عليكم ورحمة الله وبركاته

اهلا  بشمهندس خليفة  .الحمد لله رب العالمين  . جربت تعديكم الكريم وهو ممتاز لبى الشروط ملاحظة ارجو ان تكون بسيطة وهي تحدث عندما يتم ادراج تلات ايام تأخير وتنفيد التحديت ويشتغل تمام ويظهر الشرط  الغياب بتاريخ اخر يوم تاخير الى هنا  الامور تمام . وعندما اضيف تلات ايام تاخير اخرى  واقوم بعملية التحديت يظهر يوم الغياب ومعه تكرار ليوم غياب التلات ايام الاولى كتكرار  . ارفقت هنا مثال ادرجته في صورتين .الصورة الاولى تمثل ادراج ايام التاخير التلات الاولى والصورة التانية تمثل اضافة تلات ايام تاخير اخرى  للموظف نبيل 

وبارك الله فيك بشمهندس في تعبك معي تسلم 

[ابوخليل]

السلام عليكم

وجهة نظر خارج الصندوق .. اي خارج البرمجة

وانما في النظام المتبع .. وتنقصه الدقة والضبط

معظم الادارات والشركات في الدنيا تحسب الغياب بعدد ساعات التأخر

هل من تأخر ثلاثة ايام عن الموعد المحدد في حدود دقائق معدودة .. مثل من يتأخر بالساعات ؟

[Barna]

5 دقائق مضت, ابوخليل said:

وجهة نظر خارج الصندوق .. اي خارج البرمجة

وانما في النظام المتبع .. وتنقصه الدقة والضبط

معظم الادارات والشركات في الدنيا تحسب الغياب بعدد ساعات التأخر

هل من تأخر ثلاثة ايام عن الموعد المحدد في حدود دقائق معدودة .. مثل من يتأخر بالساعات ؟

وعليكم السلام ورحمة الله وبركاته ...

منذ ان شاهدت الموضوع وانا افكر في هذا الاسلوب ...

يعني انا لوكنت موظف وعارف اني متأخر .... لن احضر الا في الساعة الاخيرة من الدوام ... 

 

[Foksh]

6 دقائق مضت, Barna said:

يعني انا لوكنت موظف وعارف اني متأخر .... لن احضر الا في الساعة الاخيرة من الدوام ...

وجهة نظر قوية 😁

[SAROOK]

السلام عليكم ورحمة الله وبركاته

اهلابكم جميعا .. من ناحيه طريقة الخصم هنا هي متبعة من فترة طويله وربما تكون متشددة بعض الشئ وماطرح من اراء حول هذا الموضوع منطقي .. وفي هذا الصدد هذا ماتقتضيه اللوائح .. اشكر لكم اثراؤكم للنقاش 

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

[SAROOK]

للرفع

[Barna]

في 3‏/3‏/2024 at 01:01, SAROOK said:

من ناحيه طريقة الخصم هنا هي متبعة من فترة طويله وربما تكون متشددة بعض الشئ وماطرح من اراء حول هذا الموضوع منطقي .. وفي هذا الصدد هذا ماتقتضيه اللوائح .. اشكر لكم اثراؤكم للنقاش 

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

بارك الله فيك .....

انظر الصورة لهذا الموظف قبل التحديث وبعد التحديث ( هل هذا هو المطلوب ) ؟؟؟؟؟؟

جرب المرفق واعلمنا بالنتيجة .....

الغياب والتاخير.accdb

[SAROOK]

السلام عليكم ورحمة الله وبركاته

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

تحياتي

[SAROOK]

السلام عليكم ورحمة الله وبركاته

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

وبارك الله فيك بشمهندس 

[Barna]

3 ساعات مضت, SAROOK said:

شرطان للتكرار الشرط الاول يمنع تكرار تاريخ التاخير نفسه والشرط التاني يمنع ادخال يوم تاخير في يوم به غياب اصلا 

استبدل الكود لديك بهذا ..........................

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT hol.lateday, hol.ck, hol.Rea, hol.[no], hol.ck, hol.Rea, hol.absdate, hol.start_date, hol.end_date " & _
                                    " FROM hol " & _
                                    " WHERE (((hol.[no])=" & [Forms]![late-enter]![no] & ")) " & _
                                    "ORDER BY hol.lateday;")
rst.MoveFirst
Do Until rst.EOF
    If rst!lateday = Me![نص15] Then
        MsgBox " تاريخ التأخر مكرر ", , " تنبيه"
        Me.Undo
        DoCmd.CancelEvent
        Exit Do
    ElseIf rst!absdate = Me![نص15] Then
        MsgBox " الموظف غائب اليوم ", , " تنبيه"
        Me.Undo
        DoCmd.CancelEvent
        Exit Do
    End If
    rst.MoveNext
Loop
rst.Close
End Sub

 

تم تعديل مارس 5 بواسطه Barna

[SAROOK]

السلام عليكم ورحمة الله وبركاته

اهلا  بشمهندس Barna  .الحمد لله رب العالمين  . وضعت الكود واشتغل بنجاح بارك الله فيك يعجز اللسان عن الشكر لشخصك الكريم وفقك الله في مساعدة الناس . ولي طمع بسيط لو امكن ان يكون هناك شرح لسطور الكود الاولى  وبارك الله فيك

 

 

 

Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT hol.lateday, hol.ck, hol.Rea, hol.[no], hol.ck, hol.Rea, hol.absdate, hol.start_date, hol.end_date " & _
                                    " FROM hol " & _
                                    " WHERE (((hol.[no])=" & [Forms]![late-enter]![no] & ")) " & _
                                    "ORDER BY hol.lateday;")
 

[Barna]

4 ساعات مضت, SAROOK said:

ان يكون هناك شرح لسطور الكود الاولى

هذه الاسطر هو في اساسه استعلام ولكن مكتوب بطريقة SQL

انظر الصور ..................

 

[Barna]

وهذا تعديل بسيط في الكود حتى لا يقع يوم التاخر في ضمن اطار اجازة الموظف ................

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT hol.lateday, hol.ck, hol.Rea, hol.[no], hol.ck, hol.Rea, hol.absdate, hol.start_date, hol.end_date " & _
                                    " FROM hol " & _
                                    " WHERE (((hol.[no])=" & [Forms]![late-enter]![no] & ")) " & _
                                    "ORDER BY hol.lateday;")
rst.MoveFirst
Do Until rst.EOF
    If rst!lateday = Me![نص15] Then
        MsgBox " تاريخ التاخر هذا مسجل سابقا لهذا الموظف ", , " تنبيه"
        Me.Undo
        DoCmd.CancelEvent
        Exit Do
    ElseIf rst!absdate = Me![نص15] Then
        MsgBox " الموظف غائب اليوم ", , " تنبيه"
        Me.Undo
        DoCmd.CancelEvent
        Exit Do
    ElseIf Me![نص15] >= rst!start_date And Me![نص15] <= rst!end_date Then
        MsgBox " التاريخ موجود ضمن فترة إجازة الموظف ", , " تنبيه"
        Me.Undo
        DoCmd.CancelEvent
        Exit Do
  End If
    rst.MoveNext
Loop
rst.Close
End Sub

 

تم تعديل مارس 5 بواسطه Barna

[SAROOK]

السلام عليكم ورحمة الله وبركاته

اهلا  بشمهندس Barna  .الحمد لله رب العالمين  .كفيت ووفيت وزيادة كرم . فهمت الان ان الاستعلام  التقليدي لاكسس يمكن تحويله الى لغة vb عن  بطريقة SQL ومن تم  تطويعه الى ماتريد . بارك الله فيك

ولي طلب اخر ان امكن 

لدي تقرير الغياب الشهري والذي يظهر اسماء الموظفين وايام الشهر كلها والذي يظهر اي يوم غياب للموظف بحرف " غ " 

هل يمكن ان يكتب يوم الغياب المحسوب عن تلاته ايام تاخير بحرف " غ ت" ؟ 

[Barna]

منذ ساعه, SAROOK said:

ولي طلب اخر ان امكن 

هههه ... اعتقد اننا بهذا انتهكنا قوانين المنتدى .. بارك الله فيك اطرح سؤالك في موضوع جديد .. وارفق التقرير وما يلزم ... تجد الاجابة من اعضاء المنتدى الكرام

 

تم تعديل مارس 6 بواسطه Barna

[SAROOK]

السلام عليكم ورحمة الله وبركاته

اهلا  بشمهندس Barna  .الحمد لله رب العالمين  .تسلم للرد الكريم سوف افتح موضوع جديد باذن الله 

تحياتي بشمهندس ☺️

[Barna]

اخي @SAROOK السلام عليكم ورحمة الله وبركاته

انظر التعديلات على الملف .....

- تم التعديل على طريقة احتساب التاخر على اساس سنوي

- تم التعديل على طريقة اختيار السنة في نموذج الطباعة

 

التقرير الشهري للغياب.accdb