استعلام للغياب بتاريخ متتالي ومنقطع

[ام ناصر]

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

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

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

هذا ولكم كل الشكر والتقدير .

مثال 5.rar

[jjafferr]

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

 

لوسمحتي تعطينا معلومات اكثر عن طلبك:

1. هل سوف تطلبين البيانات بين تاريخين؟

2. اذا كان جوابك نعم ، واذا طلبتي البيانات لفترة شهر مثلا ، وكان هناك 3 ايام غياب متتايه ولكن لأكثر من مرة ، فماذا تريدين شكل رسالة التنبيه؟

3. كم عدد الموظفين جميعا تقريبا؟

 

جعفر

[jjafferr]

تفضلي

 

1. عملنا نموذج فيه التاريخ من/الى ،

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

.

تقوم الوحدة النمطية بمقارنة اليوم rst!Date ، باليوم السابق + يوم (DateAdd("d", 1, Prev_Date)، 

واذا كانت النتيجة متساوية ، يقوم العداد Seq بجمع الايام ،

Function Check_Abs(EN)

    'EN = Employee Name
    
    Dim rst As DAO.Recordset
    
    fD = [Forms]![frm_Days]![Date_From]
    eD = [Forms]![frm_Days]![Date_To]
    
    myCriteria = "[Emp_Name]='" & EN & "'"
    myCriteria = myCriteria & " And [Leave_Type]='غياب'"
    myCriteria = myCriteria & " And [Date] Between " & DateFormat(fD) & " And " & DateFormat(eD)
    
    'Set rst = CurrentDb.OpenRecordset("Select * From Enterans_Absent Where [Emp_Name]='" & EN & "' And [Leave_Type]='غياب' And [Date] Between '" & DateFormat(fD) & "' And '" & DateFormat(eD) & "'")
    Set rst = CurrentDb.OpenRecordset("Select * From Enterans_Absent Where " & myCriteria & " Order by [Date]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    Seq = 1
    Prev_Date = rst![Date]
    
    For i = 1 To RC
        
        If rst![Date] = DateAdd("d", 1, Prev_Date) Then
            Seq = Seq + 1
        End If
        
        Prev_Date = rst![Date]
        
        rst.MoveNext
    Next i
    
    If Seq >= 3 Then
        Check_Abs = Seq & " ايام متتالية"
    Else
        Check_Abs = RC & " ايام غير متتالية"
    End If
    
    rst.Close: Set rst = Nothing
    
End Function

.

والنتيجة:

.

جعفر

527.مثال 5.accdb.zip

[ام ناصر]

11 ساعات مضت, jjafferr said:

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

 

لوسمحتي تعطينا معلومات اكثر عن طلبك:

1. هل سوف تطلبين البيانات بين تاريخين؟

2. اذا كان جوابك نعم ، واذا طلبتي البيانات لفترة شهر مثلا ، وكان هناك 3 ايام غياب متتايه ولكن لأكثر من مرة ، فماذا تريدين شكل رسالة التنبيه؟

3. كم عدد الموظفين جميعا تقريبا؟

 

جعفر

استاذنا الفاضل ..الصراحة الفترة الزمنية بين تاريخين جدا تسهل آلية الفلترة لكن خلال استخدامي لها بأستعلامات التقارير وكذلك كتابتها ككود تظهر بعض التوايخ التي لم تدخل ضمن الفترة ولا اعرف السبب (استخدمت دالة الـ Between مرة والعلامات المنطقية <= التاريخ الاول و >= الثاني  بمحاولة اخرى) .

اما جوابي على ماتفضلت بأستخدامها نعم

الفترة للبيانات ياحبذا يظهر الغيابات لآخر 3 اشهر على الاقل  اكون ممنونة .

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

عدد الموظفين  200

[jjafferr]

جربي المرفق واخبرينا عن النتائج

 

جعفر

[ام ناصر]

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

 

تم تعديل يناير 12, 2017 بواسطه ام ناصر

[jjafferr]

عفوا ما فهمت

 

اعملي التغيير على المرفق ، واعطيني مثال من البرنامج

 

جعفر

[ام ناصر]

40 دقائق مضت, jjafferr said:

عفوا ما فهمت

 

اعملي التغيير على المرفق ، واعطيني مثال من البرنامج

 

جعفر

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

مثال تنبيه الغياب.zip

[jjafferr]

السلام عليكم

 

اذا فهمت قصدك صح ، فأنتي تريدين اضافة زر ليحدد الثلاثة اشهر على تاريخ البدء !!

 

طريقة العمل:

1. اذا اخترتي زر 3 اشهر ، فتلقائيا يضيف 3 اشهر على "من تاريخ" ويضع النتيجة في "الى تاريخ" ،
2. اذا كانت خانت 3 اشهر فيها صح ، وتم تغيير "من تاريخ" ، فتلقائيا سيتغير "الى تاريخ" بثلاثة اشهر ،
3. اذا غيرتي في "الى تاريخ" ، فسيزيل على الصح من زر 3 اشهر:

.

هذه اكواد 1 و 2 و 3 اعلاه:

Private Sub chk_3_months_Click()
'1
    If Me.chk_3_months = -1 And Len(Me.Date_From & "") <> 0 Then
        Me.Date_To = DateAdd("m", 3, Me.Date_From)
    End If
    
End Sub

Private Sub Date_From_AfterUpdate()
'2
    If Me.chk_3_months = -1 And Len(Me.Date_From & "") <> 0 Then
        Me.Date_To = DateAdd("m", 3, Me.Date_From)
    End If
    
End Sub

Private Sub Date_To_AfterUpdate()
'3
    If Len(Me.Date_To & "") <> 0 Then
        Me.chk_3_months = 0
    End If
    
End Sub

والنموذج يعمل كما كان سابقا

 

جعفر

527.1.مثال 5.accdb.zip

[ام ناصر]

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

صراحة عملت تغيير بسيط على المثال حيث وقف لدي تنفيذ نتيجة الـ(ِAbs_Type)

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

مثال تحذير الغياب.zip

[jjafferr]

السلام عليكم

 

رجاء تعطيني مثال واضح من قاعدة بياناتك ، وبالتفصيل

 

جعفر

[ام ناصر]

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

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

[jjafferr]

السلام عليكم

 

اختي ،

1. طلبت منك:

اقتباس

رجاء تعطيني مثال واضح من قاعدة بياناتك ، وبالتفصيل

ولم احصل عليه

2. كل اسم له رقم مختلف ، فهذا معناه انه لا يمكن ان يكون لأي شخص اكثر من غياب واحد فقط ، هذا لأن جدول الغياب به رقم الموظف فقط ، والرابط بينه وبين جدول الاسماء هو الرقم !!

 

رجاء تعديل الجدول/الجداول واضافة بيانات زيادة حتى نستطيع عمل اللازم ، ثم اعطيني مثال منه

 

جعفر

[ام ناصر]

السلام عليكم استاذ جعفر ..ارفقت المثال بعد التعديل  وفق الملاحظات التي ذكرتها بارك الله فيك.

مثال.rar

[jjafferr]

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

 

تفضلي

 

جعفر

527.6.مثال.accdb.zip

[ام ناصر]

لعل الشكر لايوفي حقكم استاذنا الفاضل 

اشكرك جزيل الشكر على تعاونك وسعة صدرك أسأل الله ان يجعل مساعدتك في ميزان حسناتك ويزيدك علم وتوفيق .

[jjafferr]

[jjafferr]

السلام عليكم

 

أختي ، الظاهر ان الكود فيه مشكلة ، وتم اكتشافها وتعديلها هنا:

 

جعفر

[ام ناصر]

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

شكراً جزيلاً لتفقدنا وتنبيهنا على  الحل الصحيح ربي يجزيك خير الدنيا والاخرة