اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


g.rabah

الردود الموصى بها

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

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

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

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

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

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

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

كما في المرفق

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

2.rar

  • Like 1
رابط هذا التعليق
شارك

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

اخوي

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


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

رابط هذا التعليق
شارك

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

اخوي

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


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





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

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

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

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

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

بالتوفيق

----

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

نلتقي لنرتقي

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

أعزائي

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

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

.....

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

السلام عليكم

الأخ 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 يعرض عشرة ويترك البقية فارغة دون كتابة اي رقم

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

رابط هذا التعليق
شارك

  • 1 year later...

السلام عليكم

الأخ 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

 

تم تعديل بواسطه hassane66537
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information