حصر اجمالي عدد الاجازات لكل موظف في التقرير (عنوان معدل)

[pingo22]

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

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

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

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

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

يظهر التقرير بهذا الشكل مرفق الصورة رقم1 وكما يظهر في صورة التقرير تكرار الحقول (جهة العمل ، الطلب المقدم ، اجمالي العدد) وان الحقل المختلف هو التاريخ

المطلوب: عدم ظهور الحقول المكررة والاكتفاء فقط بحقل التاريخ على ان يكون التقرير بهذا الشكل مرفق الصورة رقم 2

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

والقاعدة مرفقة وشكرا مقدما لكل السادة الاعضاء وأعتذر عن الاطالة

 

 

برنامج حساب الاجازات 3.rar

[jjafferr]

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

 

سيدي الفاضل ، انا عملت شئ غير طلبك ، فعسى ان تقبله 

 

الاستعلام ، عملت استعلام اجمالي ، وطلبت منه ان يعطيني اول تاريخ للإجازة F ، وآخر تاريخ L :

.

ونتيجته:

.

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

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    'make the date format
    FF = Format(Me.F, "dd-mm-yy")
    LL = Format(Me.L, "dd-mm-yy")
    
    'if both days are the same, write one of them
    If Me.F = Me.L Then
        Me.iDates = FF
    Else
        'if the dates are different, then
        'if months are the same
        If Month(Me.F) = Month(Me.L) Then
            Me.iDates = Day(Me.F) & " - " & LL  'write the day of F, and full date of L
        Else
            Me.iDates = FF & " - " & LL         'otherwise write both dates
        End If
    End If
    
End Sub

.

والنتيجة ، ان تاريخ الاجازة من 1 الى 2/2 ، والسبب اني وسعت حقل التاريخ ، حيث يمكن الاجازة تصير في شهرين مختلفين ، فيسعها حجم الحقل :

.

 

جعفر

286.برنامج حساب الاجازات 3.accdb.zip

[كرار صبري _ أبو جنى]

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

If Month(Me.F) = Month(Me.L) Then

السلام عليكم استاذي العزيز جعفر ...

1- بما ان التقرير شهري فلا حاجة للكود اعلاه .

2- طريقتك تنفع فقط في حالة اخذ الموظف يوم واحد اجازة أو اثنين أو أكثر متتالية , لكن اذا اخذ 3 أو أكثر متفرقة خلال الشهر .

.

.

.

تلميذك كرار ... 

[pingo22]

استاذ جعفر اشكرك بشدة على اهتمامك بالموضوع واشكرك على تعبك ومجهودك

وإسمح لي بأن أضم صوتي لصوت الاخ كرار فهذا الكودممتاز ولكن للاجازات المتتالية , لكن اذا كانت الاجازات في ايام متفرقة من الشهر هنا المشكلة :(

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

مرة اخرى اشكرك من كل قلبي على اهتمامك ووقتك الثمين واتمنى ان نصل جميعاً لحل فأنا اتعلم من استاذ كبير مثلك وباقي الاعضاء الكرام :)

[jjafferr]

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

 

انا غيرت شوي على المثال السابق:

.

ولكن ، اذا عملت التغيير التالي على التقرير وفي المجموعات والفرز:

.

فالنتيجة:

 

جعفر

286.برنامج حساب الاجازات 3.accdb.zip

[pingo22]

الله اكبر عليك يا استاذ جعفر، بارك الله فيك وجعله في ميزان حسناتك

احسنت صنعا وعملا هذا هو بالضبط ما كنت اتمناه

اشكرك جدااااااااااا ولو ان الشكر لن يوفيك حقك

التقرير الان اصبح بالشكل المظبوط والمتقن

الله يحفظك يا رب :)

وايضاً شكري للاخ الفاضل كرار فقد تعب معي كثيرااا

[jjafferr]

هلا والله ، يا حياهم 

[كرار صبري _ أبو جنى]