هل يمكن التحكم في عدد صفوف عمود التقرير

[g.rabah]

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

أحبائي أعضاء المنتدى :

هل يمكن التحكم في عدد صفوف عمود التقرير بحيث:

العمود الأول يكون به : 4 صفوف

العمود الثاني يكون به : 6 صفوف

العمود الثالث يكون به : 7 صفوف

العمود الرابع يكون به : 8 صفوف

كما في المرفق

وشكرا لكم جميعا على المشاهدة والإثراء

2.rar

[g.rabah]

السلام عليكم

للرفع

[Bluemind]

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

اخوي

ضع الكود التالي في جزء تفاصيل التقرير

Private mlngLines As LongPrivate Sub Detail_Format(Cancel As Integer, _FormatCount As Integer)

If FormatCount = 1 ThenmlngLines = mlngLines + 1

End If

If mlngLines > 11 Then 

Cancel = True

End Sub

Private Sub {GroupHeaderName}_Format (Cancel As Integer)

'Reset it for each group

mlngLines = 1

End Sub

ولكن ماهو الهدف من تحديد عدد كل عمود

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

هناك طريقه للتحايل عليه وهو وضع اربعه تقارير فرعيه في التقرير الرئيسي وكل تقرير فرعي ضع الكود اعلاه وقم بتحديد عدد السجلات حسب طلبك

ولكن سوف تكون مكرره في جميع التقارير الاربعه.

ياليت توضيح الغرض من طلبك

بالتوفيق

[g.rabah]

السلام عليكم

الهدف من المطلوب هو:

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

كما يوضح المثال المرفق الممصم بالإكسل

ولكم ألف تحية وتقدير على الاهتمام

مخطط الجلوس للقاعة.rar

[ابو ياسر]

كأنك تريد ان تطبع استكرات بارقام المقاعد لتلصقها ؟

[g.rabah]

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

اخوي

ضع الكود التالي في جزء تفاصيل التقرير

Private mlngLines As LongPrivate Sub Detail_Format(Cancel As Integer, _FormatCount As Integer)

If FormatCount = 1 ThenmlngLines = mlngLines + 1

End If

If mlngLines > 11 Then 

Cancel = True

End Sub

Private Sub {GroupHeaderName}_Format (Cancel As Integer)

'Reset it for each group

mlngLines = 1

End Sub

ولكن ماهو الهدف من تحديد عدد كل عمود

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

هناك طريقه للتحايل عليه وهو وضع اربعه تقارير فرعيه في التقرير الرئيسي وكل تقرير فرعي ضع الكود اعلاه وقم بتحديد عدد السجلات حسب طلبك

ولكن سوف تكون مكرره في جميع التقارير الاربعه.

ياليت توضيح الغرض من طلبك

بالتوفيق

----

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

أستاذنا الفاضل قمت بما طلبتم مني ووضعت الكود في جزء تفاصيل التقرير ولكنه لم يعمل ولم يتغير شيء, ترى ما هو الخطأ الذي قمت با رتكابه أنا؟

- فهل ساعدتموني في تركيب الكود في التقرير ؟

- أو تفضلتم بشرح الطريقة الثانية وهي التحايل عليه وو وضع اربعه تقارير فرعيه في التقرير الرئيسي

اليكم جميع أيا الأعضاء أمد يد للمساعدة... وألف شكرا

[ابو ياسر]

ايش رايكم اخواني بهذا الحل

اجيبوني مشكورين .. خاصة المشرفين

مخطط الجلوس .rar

[g.rabah]

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

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

في بعض الحالات يكون عدد المسجلين أقل من 25 في الحجرة الواحدة ومع ذلك يظهر في مخطط الجلوس 25 مترشح مع أنه المفروظ أن يكون مخطط الجلوس بعدد المسجلين فقط. فإذا كان العدد 25 يعطي المخطط بـ25 وإذا كان عدد المسجلين مثلا: 10 يكون مخطط الجلوس بـ 10 وباقي الطاولات يبقى رقم تسجيلها فارغا

أرجو أن تكون الفكرة وصلت.

نلتقي لنرتقي

[ابو ياسر]

اقصد الفكرة لاني استخدمت التقرير كعارض اي بدون ارتباط

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

[g.rabah]

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

ألف شكر على المتابعة والاهتمام

[g.rabah]

السلام عليكم

للرفع

[g.rabah]

السلام عليكم

....للــــــــــــرفـــــــــــــــــــــــــــــــــــع...

[أبو آدم]

أعزائي

لقد اختلط على الأمر ، أنا لا استطيع أن اصل الى الغاية دون المرور بالطريق المؤدي لها ، فمن يستطيع فلديه قدرات قاهرة لا أتمتع بها

وفي النهاية أقول أعطني جدول أو استعلام ، بعد تطبيق جميع الضوابط و المعايير ليكون مصدرا لمعلومات التقرير ، وانا ازودك بطريقة لتجهيز هذا التقرير (حسب مصدر المعلومات)

.....

[g.rabah]

أعزائيلقد اختلط على الأمر ، أنا لا استطيع أن اصل الى الغاية دون المرور بالطريق المؤدي لها ، فمن يستطيع فلديه قدرات قاهرة لا أتمتع بهاوفي النهاية أقول أعطني جدول أو استعلام ، بعد تطبيق جميع الضوابط و المعايير ليكون مصدرا لمعلومات التقرير ، وانا ازودك بطريقة لتجهيز هذا التقرير (حسب مصدر المعلومات).....

========================================

السلام عليكم ورمضان كريم

الاستعلام الذي يكون مصدر بيانات التقرير هو Qeleves في المرفق

مخطط الجلوس .rar

مخطط الجلوس .rar

[أبو آدم]

فهمت انه ليس هناك اي ضوابط او شروط سوى معيار رقم الفصل فقط

وأنك تريد اظهار 25 مقعد أو أقل في التقرير

أظن أن مساهمة الاخ Sabha كافية وتفي بالغرض كما أسلف أنت

حسب رأيي الشخصي الفكرة صحيحة وتناسبني

فماأظن ان هناك ضوابط بقيت للحديث

ولكن تبقى الضوايط المنظمة للتقرير نتركها لمن يريد أن يمد لنا يد العون ويدلو بدلوه في الموضوع

[g.rabah]

السلام عليكم

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

العمل الذي قام به يعرض 25 طالب مهما كان العدد أكبر أوأقل لأنه استعمل التقرير عارضا ذ

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

On Error Resume Next

Dim i, x, xx As Integer

x = Forms!frmx!frs.Value

xx = Forms!frmx!endd.Value

For i = x To xx

t1 = x

t2 = t1 + 1

t3 = t2 + 1

t4 = t3 + 1

t5 = t4 + 1

t6 = t5 + 1

t7 = t6 + 1

t8 = t7 + 1

t9 = t8 + 1

t10 = t9 + 1

t11 = t10 + 1

t12 = t11 + 1

t13 = t12 + 1

t14 = t13 + 1

t15 = t14 + 1

t16 = t15 + 1

t17 = t16 + 1

t18 = t17 + 1

t19 = t18 + 1

t20 = t19 + 1

t21 = t20 + 1

t22 = t21 + 1

t23 = t22 + 1

t24 = t23 + 1

t25 = t24 + 1

Next i

End Sub

والمطلوب ان يعرض التقرير عدد الطلاب المسجلين في القاعة فإذا كان العدد 25 يعرضها واذا كان العدد 10 يعرض عشرة ويترك البقية فارغة دون كتابة اي رقم

تبقى الضوايط المنظمة للتقرير نتركها لمن يريد أن يمد لنا يد العون ويدلو بدلوه في الموضوع

[g.rabah]

السلام عليكم

للرفع

[hassane66537]

السلام عليكم

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

العمل الذي قام به يعرض 25 طالب مهما كان العدد أكبر أوأقل لأنه استعمل التقرير عارضا ذ

والمطلوب ان يعرض التقرير عدد الطلاب المسجلين في القاعة فإذا كان العدد 25 يعرضها واذا كان العدد 10 يعرض عشرة ويترك البقية فارغة دون كتابة اي رقم

تبقى الضوايط المنظمة للتقرير نتركها لمن يريد أن يمد لنا يد العون ويدلو بدلوه في الموضوع

اكتب الكود التالي بدل الكود السابق :    (  عذرا لم اقرا الموضوع الا اليوم)

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

On Error Resume Next

Dim i, x, xx As Integer

x = Forms!frmx!frs.Value

xx = Forms!frmx!endd.Value

t1 = x

t2 = t1 + 1

If t2 = xx Then Exit Sub

t3 = t2 + 1

If t3 = xx Then Exit Sub

t4 = t3 + 1

If t4 = xx Then Exit Sub

t5 = t4 + 1

If t5 = xx Then Exit Sub

t6 = t5 + 1

If t6 = xx Then Exit Sub

t7 = t6 + 1

If t7 = xx Then Exit Sub

t8 = t7 + 1

If t8 = xx Then Exit Sub

t9 = t8 + 1

If t9 = xx Then Exit Sub

t10 = t9 + 1

If t10 = xx Then Exit Sub

t11 = t10 + 1

If t11 = xx Then Exit Sub

t12 = t11 + 1

If t12 = xx Then Exit Sub

t13 = t12 + 1

If t13 = xx Then Exit Sub

t14 = t13 + 1

If t14 = xx Then Exit Sub

t15 = t14 + 1

If t15 = xx Then Exit Sub

t16 = t15 + 1

If t16 = xx Then Exit Sub

t17 = t16 + 1

If t17 = xx Then Exit Sub

t18 = t17 + 1

If t18 = xx Then Exit Sub

t19 = t18 + 1

If t19 = xx Then Exit Sub

t20 = t19 + 1

If t20 = xx Then Exit Sub

t21 = t20 + 1

If t21 = xx Then Exit Sub

t22 = t21 + 1

If t22 = xx Then Exit Sub

t23 = t22 + 1

If t23 = xx Then Exit Sub

t24 = t23 + 1

If t24 = xx Then Exit Sub

t25 = t24 + 1

End Sub

 

تم تعديل مايو 22, 2013 بواسطه hassane66537

[hassane66537]

 

تم تعديل مايو 22, 2013 بواسطه hassane66537

[g.rabah]

السلام عليكم أساتذتي الكرام وأدامكم الله لنا دخرا

نعم استطعت بفضل الله سبحانه وتعالى  ثم مساعدة أساتذتي من حل المشكل 100/100

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