SAROOK قام بنشر مارس 1 مشاركة قام بنشر مارس 1 السلام عليكم ورحمة الله وبركاته لدي في المرفقات قاعدة بيانات خاصة بغياب وتأخير الموظفين المطلوب فيها ان يتم احتساب تأخير الموظفين على أساس ان يتم احتساب كل تلات أيام تأخير كيوم غياب ويتم ضم هذا اليوم(يوم الغياب الذي تم احتسابه من خلال أيام التأخير الثلاث)الى أيام الغياب في نموذج ادخال الغياب بحيث يتم تحديد تاريخ اخر يوم (من ايام التأخير الثلاث )تم فيه التأخير كتاريخ للغياب يضم الى باقي أيام الغياب العادية فمثلا لنفترض ان الموظف طارق تأخر في أيام هي يوم 4/2/2024 و يوم 6/2/2024 ويوم 14/2/2024 وهذه طبعا تلات أيام تم فيها التأخير . فيتم احتسابها كيوم غياب ويتم تحديد تاريخ هذا اليوم كآخر يوم تأخر فيه الموظف طارق وهو يوم 14/2/2024 ويضاف الى باقي أيام الغياب في مدخلات الغياب في نموذج ادخال الغياب اليوم فاذا كان الموظف طارق غائب في يومين هم يوم 11/2/2024 ويوم 13/2/2024 يضاف اليها ماتم احتسابه من تلات أيام التأخير كيوم غياب وهو يوم 14/2/2024 وبذلك يصبح الموظف غائب في ثلاث أيام ارجو ان أكون قد احسنت الشرح وبارك الله فيكم الغياب والتاخير.accdb رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 1 مشاركة قام بنشر مارس 1 تفضل استاذ @SAROOK محاولتي حساب مافهمت بعد اضافة تأخير لموظف فقط اضغط الزر تحديث . الغياب والتاخير.rar رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 1 الكاتب مشاركة قام بنشر مارس 1 السلام عليكم ورحمة الله وبركاته نهارك طيب بشمهندس خليفة وجمعة مباركة .جربت المرفق ولقد نجح الشرط في تحويل ايام التاخير التلاته الى يوم غياب تسلم ايدك . لكن تاريخ هذا اليوم الذي تم اضافته الى ايام الغياب عليه بعض الملاحظات : 1- تاريخ هذا اليوم يجب ان يكون مطابقا لتاريخ اخر يوم تاخر فيه الموظف من الثلات ايام . بمعنى ان الموظف قد تاخر ثلات ايام هي كمثال أيام هي يوم 4/2/2024 و يوم 6/2/2024 ويوم 14/2/2024 هنا يجب ان يكون تاريخ اليوم الذي تمت اضافته هو 14/2/2024 2- في نموذج ادخال الغياب نلاحظ انه عند اضافة اليوم يضيفه ويترك تلات فرغات 3- عند اضافة كمثال 6 ايام تاخير يضيف يومين غياب بنفس التاريخ اي ان مهما زادت عمليات تاخير الموظف لنفرض ان الموظف تاخر في 12 يوم اي ان سيتم اضافة اربعة ايام غياب سيتم اضافتهم بنفس التاريخ ولسوف نجد ان تاريخ الغياب قد تكرر اربع مرات . 4- اذا تم ادخال تلات ايام تاخير نجد ان عند كل عملية تحديث في نموذج التاخير يضيف يوم غياب . اذا اجريت كمتال خمس عمليات تحديث يضيف خمس ايام غياب وهكذا والله الموفق والسلام عليكم رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 1 مشاركة قام بنشر مارس 1 الاستاذ الفاضل @SAROOK طبعاً انا راعيت ان في كمبيوتر بيحست عند الادخال اليومي للتأخير وعمل تحديث يومي قبل اغلاق النموذج فطبعاً اذا وصل لليوم الثالث بيسجله بتاريخ اليوم وعند تسجيله اليوم السادس كذالك وهكذا . اما اذا كنت عاوز بأثر رجعي فما فائدة البرنامج . رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 1 الكاتب مشاركة قام بنشر مارس 1 السلام عليكم اهلا بك اخي بشمهندس خليفة لوائح الغياب تقتضى ان يتم احتساب كل كل تلات ايام تاخير بيوم غياب وان يكون تاريخ هذا اليوم هو تاريخ اخر يوم تم فيه التاخير هذا من ناحية ومن ناحية اخرى اذا تم وضع تاريخ اليوم هو تاريخ الغياب ( المحسوب عن تلاته ايام تاخير ) فهناك احتمال ان يكون الموظف اصلا غائبا في هذا اليوم وفي هذه الحالة سوف ينشاء تعارض تحياتي لشخصك الكريم بارك الله فيك رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 1 مشاركة قام بنشر مارس 1 تفضل استاذ @SAROOK التعديل حسب طلبك بعد اضافة تأخير لموظف فقط اضغط الزر تحديث . 1-الغياب والتاخير.rar 1 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 2 الكاتب مشاركة قام بنشر مارس 2 السلام عليكم ورحمة الله وبركاته نهارك مبارك بشمهندس خليفة .في البداية اشكرك كثيرا على وقتك ومجهود احسنت . منذ البارحه وانا اجرب التعديل وقد نجح الشرط في تحويل اخر يوم من التاخير كغياب في بعض الحالات وقد لاحظ عدة ملاحظات ارفقتها في صور * لاحظت ان عند ادراج تلاته ايام تاخير لا يشتغل الشرط ولايضيف يوم غياب كما هو مبين في صورة الموظف احمد *لاحظت ايضا ان الشرط يشتغل فقط عند وجود 6 ايام تاخير هنا طبعا سيتم اضافة يومين غياب . تاريخ اليوم الاول سليم حسب الشرط اما تاريخ اليوم الثاني لايتم حسب الشرط وهذا مبين في صورة الموظف طارق * لاحظت ان عدة سجلات فارغة يتم اضافتها لنموذج ادخال الغياب عند تنفيد الشرط كما هو مبين بالصور تحياتي لشخصك الكريم وسامحني في تعبك معي رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 2 مشاركة قام بنشر مارس 2 تفضل استاذ @SAROOK التعديل حسب طلبك بعد تدارك ملاحظاتك . 2-الغياب والتاخير.rar 1 1 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 2 الكاتب مشاركة قام بنشر مارس 2 السلام عليكم ورحمة الله وبركاته اهلا بشمهندس خليفة .الحمد لله رب العالمين . جربت تعديكم الكريم وهو ممتاز لبى الشروط ملاحظة ارجو ان تكون بسيطة وهي تحدث عندما يتم ادراج تلات ايام تأخير وتنفيد التحديت ويشتغل تمام ويظهر الشرط الغياب بتاريخ اخر يوم تاخير الى هنا الامور تمام . وعندما اضيف تلات ايام تاخير اخرى واقوم بعملية التحديت يظهر يوم الغياب ومعه تكرار ليوم غياب التلات ايام الاولى كتكرار . ارفقت هنا مثال ادرجته في صورتين .الصورة الاولى تمثل ادراج ايام التاخير التلات الاولى والصورة التانية تمثل اضافة تلات ايام تاخير اخرى للموظف نبيل وبارك الله فيك بشمهندس في تعبك معي تسلم رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 2 مشاركة قام بنشر مارس 2 السلام عليكم وجهة نظر خارج الصندوق .. اي خارج البرمجة وانما في النظام المتبع .. وتنقصه الدقة والضبط معظم الادارات والشركات في الدنيا تحسب الغياب بعدد ساعات التأخر هل من تأخر ثلاثة ايام عن الموعد المحدد في حدود دقائق معدودة .. مثل من يتأخر بالساعات ؟ 2 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 2 مشاركة قام بنشر مارس 2 5 دقائق مضت, ابوخليل said: وجهة نظر خارج الصندوق .. اي خارج البرمجة وانما في النظام المتبع .. وتنقصه الدقة والضبط معظم الادارات والشركات في الدنيا تحسب الغياب بعدد ساعات التأخر هل من تأخر ثلاثة ايام عن الموعد المحدد في حدود دقائق معدودة .. مثل من يتأخر بالساعات ؟ وعليكم السلام ورحمة الله وبركاته ... منذ ان شاهدت الموضوع وانا افكر في هذا الاسلوب ... يعني انا لوكنت موظف وعارف اني متأخر .... لن احضر الا في الساعة الاخيرة من الدوام ... 1 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 2 مشاركة قام بنشر مارس 2 6 دقائق مضت, Barna said: يعني انا لوكنت موظف وعارف اني متأخر .... لن احضر الا في الساعة الاخيرة من الدوام ... وجهة نظر قوية 😁 1 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 2 الكاتب مشاركة قام بنشر مارس 2 السلام عليكم ورحمة الله وبركاته اهلابكم جميعا .. من ناحيه طريقة الخصم هنا هي متبعة من فترة طويله وربما تكون متشددة بعض الشئ وماطرح من اراء حول هذا الموضوع منطقي .. وفي هذا الصدد هذا ماتقتضيه اللوائح .. اشكر لكم اثراؤكم للنقاش تحياتي لكم جميعا وبارك الله جهودكم في مساعدة الناس رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 4 الكاتب مشاركة قام بنشر مارس 4 للرفع رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر مارس 4 أفضل إجابة مشاركة قام بنشر مارس 4 في 3/3/2024 at 01:01, SAROOK said: من ناحيه طريقة الخصم هنا هي متبعة من فترة طويله وربما تكون متشددة بعض الشئ وماطرح من اراء حول هذا الموضوع منطقي .. وفي هذا الصدد هذا ماتقتضيه اللوائح .. اشكر لكم اثراؤكم للنقاش تحياتي لكم جميعا وبارك الله جهودكم في مساعدة الناس بارك الله فيك ..... انظر الصورة لهذا الموظف قبل التحديث وبعد التحديث ( هل هذا هو المطلوب ) ؟؟؟؟؟؟ جرب المرفق واعلمنا بالنتيجة ..... الغياب والتاخير.accdb 1 3 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 4 الكاتب مشاركة قام بنشر مارس 4 السلام عليكم ورحمة الله وبركاته اهلا بشمهندس Barna .الحمد لله رب العالمين .بارك الله فيك وجزاك كل خير هذا هو المطلوب تماما ولا انسى هنا بشمهندس خليفة الذي تعب معي جزاه الله كل خير تحياتي 1 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 5 الكاتب مشاركة قام بنشر مارس 5 السلام عليكم ورحمة الله وبركاته اهلا بشمهندس Barna بعد ماارسلت البارحة الرد وجدت ان شرطي منع تكرار التاريخ في نموذج التاخير لم تعد تشتغل حيث ان هذا النموذج ( نموذج التاخير ) به شرطان للتكرار الشرط الاول يمنع تكرار تاريخ التاخير نفسه والشرط التاني يمنع ادخال يوم تاخير في يوم به غياب اصلا وبارك الله فيك بشمهندس رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 5 مشاركة قام بنشر مارس 5 (معدل) 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 3 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 5 الكاتب مشاركة قام بنشر مارس 5 السلام عليكم ورحمة الله وبركاته اهلا بشمهندس 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;") رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 5 مشاركة قام بنشر مارس 5 4 ساعات مضت, SAROOK said: ان يكون هناك شرح لسطور الكود الاولى هذه الاسطر هو في اساسه استعلام ولكن مكتوب بطريقة SQL انظر الصور .................. 1 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 5 مشاركة قام بنشر مارس 5 (معدل) وهذا تعديل بسيط في الكود حتى لا يقع يوم التاخر في ضمن اطار اجازة الموظف ................ 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 2 1 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 6 الكاتب مشاركة قام بنشر مارس 6 السلام عليكم ورحمة الله وبركاته اهلا بشمهندس Barna .الحمد لله رب العالمين .كفيت ووفيت وزيادة كرم . فهمت الان ان الاستعلام التقليدي لاكسس يمكن تحويله الى لغة vb عن بطريقة SQL ومن تم تطويعه الى ماتريد . بارك الله فيك ولي طلب اخر ان امكن لدي تقرير الغياب الشهري والذي يظهر اسماء الموظفين وايام الشهر كلها والذي يظهر اي يوم غياب للموظف بحرف " غ " هل يمكن ان يكتب يوم الغياب المحسوب عن تلاته ايام تاخير بحرف " غ ت" ؟ رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 6 مشاركة قام بنشر مارس 6 (معدل) منذ ساعه, SAROOK said: ولي طلب اخر ان امكن هههه ... اعتقد اننا بهذا انتهكنا قوانين المنتدى .. بارك الله فيك اطرح سؤالك في موضوع جديد .. وارفق التقرير وما يلزم ... تجد الاجابة من اعضاء المنتدى الكرام تم تعديل مارس 6 بواسطه Barna 2 رابط هذا التعليق شارك More sharing options...
SAROOK قام بنشر مارس 6 الكاتب مشاركة قام بنشر مارس 6 السلام عليكم ورحمة الله وبركاته اهلا بشمهندس Barna .الحمد لله رب العالمين .تسلم للرد الكريم سوف افتح موضوع جديد باذن الله تحياتي بشمهندس ☺️ رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مارس 9 مشاركة قام بنشر مارس 9 اخي @SAROOK السلام عليكم ورحمة الله وبركاته انظر التعديلات على الملف ..... - تم التعديل على طريقة احتساب التاخر على اساس سنوي - تم التعديل على طريقة اختيار السنة في نموذج الطباعة التقرير الشهري للغياب.accdb 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان