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

[SAROOK]

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

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

عند ادخال بيانات تاريخ الادخال او الاخراج لتاريخ الاجازة  لمحمد كمثال ( تاريخ بداية الاجازة  5/2/2024 وتاريخ نهاية الاجازة 15/2/2024 ) 

وندخل بيانات اخرى لطارق بنفس التاريخ ( تاريخ بداية الاجازة  5/2/2024 وتاريخ نهاية الاجازة 15/2/2024 )

تظهر رسالة التكرار ان البيانات متكررة 

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

وبارك الله فيكم 

الاجازات.accdb

[سامي الحداد]

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

جرب هذا التعديل  اخي الكريم

Private Sub نص15_AfterUpdate()
    If Me.NewRecord = False Then
        If Not IsNull(DLookup("end_date", "HOL", "end_date = #" & Me.end_date & "# AND ID <> " & Me.id)) Then
            MsgBox "هذا التاريخ متكرر..يرجى اعادة الادخال "
            Me.Undo
        End If
    End If
    
    If [نص15] < [نص21] Then
        MsgBox "تاريخ نهاية الاجازة أصغر من تاريخ البداية ", , "مع تحياتي"
        Me.Undo
    End If
End Sub

Private Sub نص21_AfterUpdate()
    If Me.NewRecord = False Then
        If Not IsNull(DLookup("start_date", "HOL", "start_date = #" & Me.start_date & "# AND ID <> " & Me.id)) Then
            MsgBox "هذا التاريخ متكرر..يرجى اعادة الادخال "
            Me.Undo
        End If
    End If
End Sub

واليك الملف

بالتوفيق

الاجازات.accdb

[SAROOK]

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

اشكرك اخي سامي 

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

فمثلا لو تم ادخال تاريخ بداية الاجازة 5/2/2024  لمحمد وتاريخ 5/3/2024 كنهاية الاجازة

وندخل مرة اخرى لمحمد نفس التاريخ السابق 5/2/2024 اخر لبداية اجازة اخرى  نجد انه يقبل هذا التكرار 

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

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

[kkhalifa1960]

تفضل استاذ @SAROOK محاولتي حسب مافهمت اليك المرفق والشرح . ووافني بالرد .

                                                                                             

الاجازات-1.rar

[SAROOK]

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

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

ولا ننسى  اخي البشمهندس سامي الحداد بارك الله فيه وجزاه الله خير

وفقكم الله 

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

[SAROOK]

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

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

وارفق صورة لتجربة الادخال 

والله الموفق وبارك الله فيكم

[kkhalifa1960]

وهو في أحد يأخذ اجازة بتاريخ قبل أخر أجازة ............ الشرط بالبرنامج يعمل على أخر أجازة وفي مثالنا هنا بين (21/2/2024) و(22/2/2024) فطبعاً وعملياً يمكن تسجيل الأجازات بعدهم وليس اثنائهم.

 

[SAROOK]

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

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

تحياتي

[ابوخليل]

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

الامر يسير من اجل تلافي الاخطاء البشرية

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

الاجازات-2.rar

[SAROOK]

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

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

تحياتي لكم جميعا

[SAROOK]

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

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

تحياتي لكم جميعا

[kkhalifa1960]

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

الاجازات-1-2.rar

[SAROOK]

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

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

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

لاحظت انه لايقبل ذلك 

كمثال لنفرض ان  اخر تاريخ تم ادخاله هو  بداية الاجازة  5/2/2024 وتاريخ نهاية الاجازة هو 18/2/2024

ونريد ان ندخل تاريخ 20/12/2023 لبداية الاجازة  تظهر رسالة تفيد انه لايمكن ذلك 

فهل يمكن تعديل هذا الامر 

وسلامي لكل الاخوة

تم تعديل فبراير 9 بواسطه SAROOK

[SAROOK]

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

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

تحياتي للجميع

 

الاجازات.accdb