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

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

أخي الكريم أرجو ان يكون هذا المرفق يلبي مرادك

وبالتوفيق

koao_NNNN.zip

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

اشكرك اخي الكريم على تجابك وسرعة ردك

لكن بعد تجربة التعديل قمت بحذف اربعة سجلات من الجدول nnnn اي اني جعلت عدد العمال لهذا الشهر 116 عامل

عنده بقي تذييل التقرير في صفحة منفردة

اشكرك اخي الفاظل

عل من فرج قريب

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

أخي الكريم .. كلامك صحيح .. وأظن أني تمكنت من حل المشكلة ... في المرفق التالي

وبالتوفيق

تم تعديل المشاركة في تاريخه ... لتغيير المرفق بعد تعديل كوده ... من c>25 إلى c>24

koao_NN.zip

نعم اخي koao بيض الله وجهك هذا هو المطلوب

لكن اريد ان يبقى عدد السجلات لكل صفحة ثلاثين كما كان في الكود الاول

اتمنى ان يكون لديك الحل

تقبل خالص مودتي

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

أخي الكريم أرجو ان يكون هذا المرفق يلبي مرادك

وبالتوفيق

koao_N.zip

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

عزيزي koao

بارك الله فيك على هممك العالية ومواصلتك ومثابرتك وصبرك

زادك الله علماً وشرفاً

إلى الأمام إن شاء الله تعالى

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

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

والحمدلله رب العالمين أولا وآخرا

اسأل الله ان يحفظك ويرعاك ويجعل كل ما تقدمه في ميزان حسناتك

نعم اخي كان مافي المرفق هو المطلوب فعلا

وهكذا تكون قد انتهت الاجابة على سؤالي

واعذر اثقالي عليك اخي

بارك الله فيك وزادك نعيما وعلما

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

ارجو مساعدتي ان امكن

ولك اطيب الدعاء

koao_N.rar

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

أخي الكريم ... أبشر بما يسرك ... ونأسف على الخطأ في الكود السابق

وبالتوفيق

koao_NF.zip

الله يستر عليك اخوي

كم انت متميز , اتمنى لك التوفيق

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

شكرا لك

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

أخي الكريم ... أنت غالي وتستاهل كل خير

نبدأ الشرح بسم الله الرحمن الرحيم

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

وما يهمني هنا تسلسل الأحداث .. التي إستخدمناها ... وهي ... حدث فتح التقرير ... وحدث صفحة التقرير ... وحدث تنسيق التفصيل

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

نأتي للأكواد

Dim RecordCount, c, x As Integer, bol As Boolean

عرفنا هذه المتغيرات في فضاء الأسماء ... أي خارج الأحداث .. وميزة التعرف هنا ... الإحتفاظ بالقيمة ... لأنه لو كان داخل الحدث .. فكل مرة ينفذ الحدث سيعرف المتغير من جديد وسيخسر قيمته السابقة

Private Sub Report_Open(Cancel As Integer)
RecordCount = DCount("[الاسم]", "NNNN", "[PRINT] = True")
x = IIf(RecordCount > 24 And RecordCount < 31, RecordCount - 3, 30)
End Sub

كما هو واضح ... الكود في حدث فتح التقرير ... وداخله أولا إستخدمنا الدالة DCount لمعرفة عدد السجلات .. وهي تعد القيم الغير فارغة (Not Null) وتأخذ ثلاث معاملات .. إسم الحقل بين علامتي تنصيص مزدوجة وبين قوسين مربعين (للمعلومية : إذا كانت جميع حقول جدولك ممكن تكون فارغة في بعض سجلاتها ومع ذلك تريد عد جميع السجلات ... فضع بدلا عن إسم الحقل علامة النجمة "*" بين علامتي تنصيص مزدوجة ) .. والمعامل الثاني إسم الجدول بين علامتي تنصيص مزدوجة ... والمعامل الثالث إختياري .. وهو للشرط ... وأنا حددته بإذا كان الحقل PRINT يساوي صحيح

وأسندنا قيمة عدد السجلات الناتج من الدالة السابقة الذكر .. للمتغير RecordCount

ثم بهذا السطر حلينا مشكلتك الأخيرة .. فلو كان عدد السجلات بين الرقمين 24 و 31 ولا يساويهما لأن الـ 24 سجل لا يسبب مشكلة لأن التذييل سيظهر في اسفل التقرير ولكن لو كان 25 فسيظهر التذييل في الصفحة التالية .. وكذلك لو كان 31 فليس هناك مشكلة لأن 30 سجل ستظهر في الصفحة الأولى والسجل رقم 31 سيظهر في الصفحة التالية مع التذييل ولكن لو كان 30 فإن التذييل سيظهر في الصفحة التالية من دون سجل معه

لذا إستخدمنا الدالة IIf وهي دالة شرطية تأخذ ثلاث معاملات ... الأول الشرط والثاني القيمة الناتجة في حال تحقق الشرط .. والثالث القيمة الناتجة في حال لم يتحقق الشرط ... وأسندنا القيمة الناتجة للمتغير x ... وسنستخدم هذا المتغير لاحقا

Private Sub Report_Page()
c = RecordCount - Counter
End Sub

في حدث صفحة التقرير .. أسندنا للمتغير c نتيجة طرح قيمة مربع النص Counter من عدد السجلات RecordCount ..... وكما قلنا سابقا فلن ينفذ هذا الكود إلا عند النقر على الصفحة التالية إن وجدت ... فلو فرضنا أن عدد السجلات 35 فإن قيمة Counter عند النقر على الصفحة التالية ستكون 30 ... لأننا سنحددها كذلك .. كما سترى لاحقا

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If c > 25 And c < 31 Then
    If RecordCount - Counter = 3 Then
        Fasel.Visible = True
        bol = True
    End If
ElseIf bol Then
    Fasel.Visible = False
End If
If bol = False Then
    If Counter Mod x = 0 Then
        Fasel.Visible = True
    Else
        Fasel.Visible = False
    End If
End If
End Sub

هنا حدث تنسيق التفصيل ... وسينفذ هذا الحدث عند إظهار كل سجل كما ذكرنا سابقا ... وسأشرح كل سطر برقمه

1- هنا نختبر إذا كانت قيمة المتغير c بين 24 و 31 ولا يساويهما .. و كما قلنا أنه لن تكون للمتغير c قيمة إلا عند النقر على الصفحة التالية ... هذا يعني أنه لن يتحقق هذا الشرط إلا إذا كانت عدد السجلات أكبر من 54 سجل ... لأن c تساوي عدد السجلات 55 مثلا ناقص 30 وهي آخر قيمة ظهرت في مربع النص counter في الصفحة السابقة .. سيكون الناتج 25 ... هنا سيتحقق الشرط

2- إذا تحقق الشرط في السطر رقم 1 ... هذا يعني أن عدد السجلات الباقي بين 25 و 30 وهذا العدد من السجلات لا يسمح بظهور التذييل في هذه الصفحة ... لذا نري أن نختبر ما إذا بقي 3 سجلات ثم نأمر بإظهار فاصل الصفحات .. وليتم ذلك نختبر إذا كان عدد السجلات RecordCount ناقص قيمة مربع النص counter الحالية تساوي 3

3- إذا تحقق الشرط 2 إجعل قيمة خاصية مرئي للفاصل Fasel صحيح

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

5- نغلق الدالة الشرطية رقم 2

6- أما إذا لم يتحقق الشرط رقم 1 وكانت قيمة المتغير bol تساوي صحيح ... طبعا هذا الشرط لن يتحقق إلا إذا تم إزاحة 3 سجلات قهرا للصفحة التالية ... وهنا تكمن فائدة المتغير bol وسأقولها لاحقا فإنتبه

7- إذا تحقق الشرط 6 إجعل قيمة خاصية مرئي للفاصل Fasel خطأ

8- نغلق الدالة الشرطية للشرط رقم 1 و 6

9- إذا كانت قيمة المتغير bol تساوي خطأ ... وسيتحقق هذا الشرط من أول سجل إلى أن تنتهي السجلات أو يتحقق الشرط رقم 2 ... المشروح سابقا

10- إذا تحقق الشرط رقم 9 ... فإننا نختبر ما إذا كان باقي قسمة قيمة مربع النص counter الحالية على المتغير x تساوي صفر ... والمتغير x كما شرحنا سابقا إما أن يكون 30 إذا كان عدد السجلات أكبر من 30 .. أو يكون 27 إذا كان عدد السجلات بين 25 و 30 سجل .. فنكون بهذا حلينا مشكلتك الأخيرة .... وهنا سأضر مثال لنبين أهمية المتغير bol لنفرض أن عدد السجلات 90 فإن بهذه الحالة ستكون قيمة x تساوي 30 وعند الوصول لآخر سجل ستكون قيمة مربع النص counter تساوي 90 .. إذا باقي قسمة 90 على 30 تساوي 0 .. فإذا لم نستخدم الشرط رقم 9 فإن بهذه الحالة سيتحقق الشرط رقم 10 وسيجعل قيمة خاصية مرئي للفاصل Fasel صحيح .. فارضا صفحة جديدة .. وفارضا أن يكون التذييل في صفحة فارغة تالية ... وهذا ما لا نريده

11- إذا تحقق الشرط رقم 10 يعني أن عدد السجلات وصل للحد المسموح لعرضه في هذه الصفحة .. فنحتاج لجعل قيمة الخاصية مرئي للفاصل Fasel صحيح .. لنفرض صفحة جديدة

12- وإلا

13- إذا لم يتحقق الشرط رقم 10 إجعل قيمة خاصية مرئي للفاصل Fasel خطأ ... للسماح لعرض سجل جديد إذا كان باقي

14- أغلق الدالة الشرطية رقم 10

15- أغلق الدالة الشرطية رقم 9

والحمدلله رب العالمين أولا وآخرا

koao كتب:

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

أخي الكريم ... أنت غالي وتستاهل كل خير

نبدأ الشرح بسم الله الرحمن الرحيم

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

وما يهمني هنا تسلسل الأحداث .. التي إستخدمناها ... وهي ... حدث فتح التقرير ... وحدث صفحة التقرير ... وحدث تنسيق التفصيل

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

نأتي للأكواد

Dim RecordCount, c, x As Integer, bol As Boolean

عرفنا هذه المتغيرات في فضاء الأسماء ... أي خارج الأحداث .. وميزة التعرف هنا ... الإحتفاظ بالقيمة ... لأنه لو كان داخل الحدث .. فكل مرة ينفذ الحدث سيعرف المتغير من جديد وسيخسر قيمته السابقة

Private Sub Report_Open(Cancel As Integer)
RecordCount = DCount("[الاسم]", "NNNN", "[PRINT] = True")
x = IIf(RecordCount > 24 And RecordCount < 31, RecordCount - 3, 30)
End Sub

كما هو واضح ... الكود في حدث فتح التقرير ... وداخله أولا إستخدمنا الدالة DCount لمعرفة عدد السجلات .. وهي تعد القيم الغير فارغة (Not Null) وتأخذ ثلاث معاملات .. إسم الحقل بين علامتي تنصيص مزدوجة وبين قوسين مربعين (للمعلومية : إذا كانت جميع حقول جدولك ممكن تكون فارغة في بعض سجلاتها ومع ذلك تريد عد جميع السجلات ... فضع بدلا عن إسم الحقل علامة النجمة "*" بين علامتي تنصيص مزدوجة ) .. والمعامل الثاني إسم الجدول بين علامتي تنصيص مزدوجة ... والمعامل الثالث إختياري .. وهو للشرط ... وأنا حددته بإذا كان الحقل PRINT يساوي صحيح

وأسندنا قيمة عدد السجلات الناتج من الدالة السابقة الذكر .. للمتغير RecordCount

ثم بهذا السطر حلينا مشكلتك الأخيرة .. فلو كان عدد السجلات بين الرقمين 24 و 31 ولا يساويهما لأن الـ 24 سجل لا يسبب مشكلة لأن التذييل سيظهر في اسفل التقرير ولكن لو كان 25 فسيظهر التذييل في الصفحة التالية .. وكذلك لو كان 31 فليس هناك مشكلة لأن 30 سجل ستظهر في الصفحة الأولى والسجل رقم 31 سيظهر في الصفحة التالية مع التذييل ولكن لو كان 30 فإن التذييل سيظهر في الصفحة التالية من دون سجل معه

لذا إستخدمنا الدالة IIf وهي دالة شرطية تأخذ ثلاث معاملات ... الأول الشرط والثاني القيمة الناتجة في حال تحقق الشرط .. والثالث القيمة الناتجة في حال لم يتحقق الشرط ... وأسندنا القيمة الناتجة للمتغير x ... وسنستخدم هذا المتغير لاحقا

Private Sub Report_Page()
c = RecordCount - Counter
End Sub

في حدث صفحة التقرير .. أسندنا للمتغير c نتيجة طرح قيمة مربع النص Counter من عدد السجلات RecordCount ..... وكما قلنا سابقا فلن ينفذ هذا الكود إلا عند النقر على الصفحة التالية إن وجدت ... فلو فرضنا أن عدد السجلات 35 فإن قيمة Counter عند النقر على الصفحة التالية ستكون 30 ... لأننا سنحددها كذلك .. كما سترى لاحقا

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If c > 25 And c < 31 Then
    If RecordCount - Counter = 3 Then
        Fasel.Visible = True
        bol = True
    End If
ElseIf bol Then
    Fasel.Visible = False
End If
If bol = False Then
    If Counter Mod x = 0 Then
        Fasel.Visible = True
    Else
        Fasel.Visible = False
    End If
End If
End Sub

هنا حدث تنسيق التفصيل ... وسينفذ هذا الحدث عند إظهار كل سجل كما ذكرنا سابقا ... وسأشرح كل سطر برقمه

1- هنا نختبر إذا كانت قيمة المتغير c بين 24 و 31 ولا يساويهما .. و كما قلنا أنه لن تكون للمتغير c قيمة إلا عند النقر على الصفحة التالية ... هذا يعني أنه لن يتحقق هذا الشرط إلا إذا كانت عدد السجلات أكبر من 54 سجل ... لأن c تساوي عدد السجلات 55 مثلا ناقص 30 وهي آخر قيمة ظهرت في مربع النص counter في الصفحة السابقة .. سيكون الناتج 25 ... هنا سيتحقق الشرط

2- إذا تحقق الشرط في السطر رقم 1 ... هذا يعني أن عدد السجلات الباقي بين 25 و 30 وهذا العدد من السجلات لا يسمح بظهور التذييل في هذه الصفحة ... لذا نري أن نختبر ما إذا بقي 3 سجلات ثم نأمر بإظهار فاصل الصفحات .. وليتم ذلك نختبر إذا كان عدد السجلات RecordCount ناقص قيمة مربع النص counter الحالية تساوي 3

3- إذا تحقق الشرط 2 إجعل قيمة خاصية مرئي للفاصل Fasel صحيح

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

5- نغلق الدالة الشرطية رقم 2

6- أما إذا لم يتحقق الشرط رقم 1 وكانت قيمة المتغير bol تساوي صحيح ... طبعا هذا الشرط لن يتحقق إلا إذا تم إزاحة 3 سجلات قهرا للصفحة التالية ... وهنا تكمن فائدة المتغير bol وسأقولها لاحقا فإنتبه

7- إذا تحقق الشرط 6 إجعل قيمة خاصية مرئي للفاصل Fasel خطأ

8- نغلق الدالة الشرطية للشرط رقم 1 و 6

9- إذا كانت قيمة المتغير bol تساوي خطأ ... وسيتحقق هذا الشرط من أول سجل إلى أن تنتهي السجلات أو يتحقق الشرط رقم 2 ... المشروح سابقا

10- إذا تحقق الشرط رقم 9 ... فإننا نختبر ما إذا كان باقي قسمة قيمة مربع النص counter الحالية على المتغير x تساوي صفر ... والمتغير x كما شرحنا سابقا إما أن يكون 30 إذا كان عدد السجلات أكبر من 30 .. أو يكون 27 إذا كان عدد السجلات بين 25 و 30 سجل .. فنكون بهذا حلينا مشكلتك الأخيرة .... وهنا سأضر مثال لنبين أهمية المتغير bol لنفرض أن عدد السجلات 90 فإن بهذه الحالة ستكون قيمة x تساوي 30 وعند الوصول لآخر سجل ستكون قيمة مربع النص counter تساوي 90 .. إذا باقي قسمة 90 على 30 تساوي 0 .. فإذا لم نستخدم الشرط رقم 9 فإن بهذه الحالة سيتحقق الشرط رقم 10 وسيجعل قيمة خاصية مرئي للفاصل Fasel صحيح .. فارضا صفحة جديدة .. وفارضا أن يكون التذييل في صفحة فارغة تالية ... وهذا ما لا نريده

11- إذا تحقق الشرط رقم 10 يعني أن عدد السجلات وصل للحد المسموح لعرضه في هذه الصفحة .. فنحتاج لجعل قيمة الخاصية مرئي للفاصل Fasel صحيح .. لنفرض صفحة جديدة

12- وإلا

13- إذا لم يتحقق الشرط رقم 10 إجعل قيمة خاصية مرئي للفاصل Fasel خطأ ... للسماح لعرض سجل جديد إذا كان باقي

14- أغلق الدالة الشرطية رقم 10

15- أغلق الدالة الشرطية رقم 9

والحمدلله رب العالمين أولا وآخرا

بارك الله بك اخي koao يعطيك العافية وجعله بميزان حسناتك

وإياك أخي shadi456 .. وشاكر لك إهتمامك ودعمك

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

أستاذ خالد جزاك الله كل خير على هذا العطاء ونسأل الله عز وجل أن يأجرك عليه ويجعله في ميزان حسناتك ... اللهم آمين ..

+1 .... ما استطعت أكثر .. كل هذه الحلاوة والتقييم ....null ... ! :)

تقبل تحياتي ...

اسأل الله العلي القدير ان يحفظك ويحرسك ويسبغ عليك من نعمه

والله لأنك قد فرجت علي كربا فرج الله عنك كرب الدنيا والاخرة

بوافر الشكر وعظيم الامتنان لك ايها الفذ

دمت ودام عطائك

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

أخي الكريم moh samer ali .... وأخي الكريم mmmb .... ما قدمت إلا ما كسبته من هذا المنتدى ومنكما ومن الأعضاء ... وهو العطاء والتعاون على الخير ... وأسال الله أن يجمعنا ووالدينا ومن يقرأ في دار كرامته

والحمدلله رب العالمين أولا وآخرا