مطلوب انشاء اعمدة في النموذج المستمر

[ابوخليل]

السلام عليكم

اخواني واحبتي :

في المثال المرفق نموذج  مستمر  ، عند التصفية من مربع التحرير يظهر 58 سجل في عمود واحد

اريد عرض هذه السجلات في اكثر من عمود  ، بالضبط كما نعمل في التقارير .

 

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

والنموذج يوجد فيه هذه الخصائص نفسها ولكنه لا يستجيب .

قلت : لعل الاصدارات بعد 2003 تدعم هذه الخصيصة في النموذج

افيدونا مأجورين ،،،

 

test.mdb

[رمهان]

هلا بك ابا خليل

ماودك تحول الى الاصدارات الجديده ؟ على فكره فيه ميزه خطيره بال 2003 فقدت في الاصدارات الجديده وان شاء الله نجلس مع بعض وتكون ضمن سواليفنا !

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

تحياتي

 

تم تعديل مارس 24, 2018 بواسطه رمهان

[ابوخليل]

اهلا استاذ رمهان

القصد هو التحرير  وليس العرض  والحد المطلوب ظهوره هو 58  أو 60

[رمهان]

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

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

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

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

احتاج تفرغ ولذلك امهلني بعض الوقت ان شاء الله وان استطعت

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

 

 

تحياتي

تم تعديل مارس 24, 2018 بواسطه رمهان

[ابوخليل]

مشكور وجزاك الله خير .. وخذ راحتك 

[رمهان]

اخوي ابا خليل

تفضل وان شاء الله انها تكون قريبة لما تسمو اليه

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

1. تم عمل كمبو يعرض التواريخ فريدة

2.استعلام مصدر للبيانات المطلوبة كاملة قبل التقسيم

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

3. كود اعادة الاستعلام للنماذج الفرعية يمكن اختصاره عند اضافة عدد كبير من النماذج الفرعية

وتقبل تحياتي

test11.mdb

[ابوخليل]

الفكرة حلوة .. 

ولكن مسألة  Between 1 And 15   مشكلة حقيقية

لان كل قيمة في مربع التحرير لها ارقامها الخاصة  والموجود الآن 1740 رقم  ويمكن تصل الى 12000 كحد اقصى

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

[رمهان]

في 3/26/2018 at 09:57, ابوخليل said:

الفكرة حلوة .. 

ولكن مسألة  Between 1 And 15   مشكلة حقيقية

لان كل قيمة في مربع التحرير لها ارقامها الخاصة  والموجود الآن 1740 رقم  ويمكن تصل الى 12000 كحد اقصى

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

حياك اخي اباخليل

ملاحظتك في محلها 

طيب ايش رايك نطبق فكرتك 

في 3/26/2018 at 09:57, ابوخليل said:

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

وخلينا نثبت عدد النماذج الفرعية = 10 وحسب مثالك وفكرتك سيكون نصيب كل نموذج فرعي 174 سجل ؟ هل 174 لكل عمود مشكلة ؟

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

تحياتي

[ابوخليل]

الذي سيظهر بعد الفلترة لن يتجاوز 60 سجل وهذا يعني ان مصدر الجميع استعلام واحد

يعني 6 نماذج فرعية كافية ووافية  10 سجلات لكل نموذج

او  5 نماذج  لكل نموذج 12 سجل

كيف بعد كل عملية اختيار يتم  توزيع السجلات الناتجة ؟

 

[رمهان]

26 دقائق مضت, ابوخليل said:

الذي سيظهر بعد الفلترة لن يتجاوز 60 سجل وهذا يعني ان مصدر الجميع استعلام واحد

يعني 6 نماذج فرعية كافية ووافية  10 سجلات لكل نموذج

او  5 نماذج  لكل نموذج 12 سجل

كيف بعد كل عملية اختيار يتم  توزيع السجلات الناتجة ؟

 

تمام .. قيد التنفيذ 

تحياتي

[ابوخليل]

وجدتها  ابا جود وبطريقة احترافية  ..

وبنفس فكرتك السابقة ,, 

 

[رمهان]

1 دقيقه مضت, ابوخليل said:

وجدتها  ابا جود وبطريقة احترافية  ..

وبنفس فكرتك السابقة ,, 

 

اكيد .. الحر تكفيه الاشارة 

[رمهان]

عزيزي ابا خليل

هذي لخمس نماذج فرعية 

حبيت انبه : الشروط لموجودة ليس لها دخل بقيم الحقل وانما العدد بحيث عمل عداد في الاستعلام الاساسي 

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

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

ولك ماتراه ونحن نستنير بافكارك

تحياتي

test11.mdb

[ابوخليل]

نعم بالضبط هذا ما عملته 

ولكن لاحظ وجود ثقل مقلق او ما يسمى بطء عند الفتح في النموذج الرئيس 

test12.mdb

--------------------------------------------

هل ترى ان يتم فتح النموذج بدون ارتباط بالفرعيات ؟

ويتم الربط بهن من خلال مربع التحرير ؟

-------------------------------------------------

تمام كما تصورت 

فك ارتباط الفرعيات بالرئيس ، والربط والتحديث  يتم بعد التصفية

لاحظوا  الفرق

test13.mdb

[jjafferr]

السلام عليكم شباب

 

اسمحوا لي ادلو بدلوي

 

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

النتيجة:

.

جعفر

900.test.mdb.zip

[ابوخليل]

شكرا استاذ رمهان  على المشاركة والمساعدة والاثراء 

[ابوخليل]

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

اسمحوا لي ادلو بدلوي

 

دلو فقط ! ما يكفي .. بل ركب مضخة 

المهم  ها الاطلالة .. عساه دوم

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

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

 

[رمهان]

42 دقائق مضت, ابوخليل said:

شكرا استاذ رمهان  على المشاركة والمساعدة والاثراء 

العفو والشكر موصول لك 

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

السلام عليكم شباب

 

اسمحوا لي ادلو بدلوي

 

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

النتيجة:

.

جعفر

900.test.mdb.zip

منور وفكرة مختلفة ويبدو انها ستروق لابا خليل كما راقت لي مبدئيا وبدون تعمق فقد يكون لهاحدود مثل انها مثبتة على العدد 60

والحقيقة واصل ومشتاقين للنهاية

دمتم اساتذة سالمين غانمين مأجورين باذن الله

[رمهان]

حبيت اشاركك استاذ جعفر بكود يعمل السكونس للجميع بعد التحديث للكمبو

Private Sub txtH_AfterUpdate()
Set rsg = CurrentDb.OpenRecordset("SELECT tbltqwem.dateH FROM tbltqwem GROUP BY tbltqwem.dateH HAVING (((tbltqwem.dateH) Is Not Null))"): rsg.MoveFirst
Do While Not rsg.EOF
Set rs = CurrentDb.OpenRecordset("select seq from tbltqwem where dateH='" & rsg(0) & "' order by id"): rs.MoveFirst
Do While Not rs.EOF
x = x + 1
rs.Edit
rs(0) = x
rs.Update
rs.MoveNext
If x = 20 Then x = 0
Loop
x = 0
rsg.MoveNext
Loop
    Me.Requery
End Sub

وباقي عليك تغيير الشرط between  حسب التاريخ !

تحياتي

[رمهان]

وينك استاذ @jjafferr

 

[رمهان]

هذه تنفيذ لفكرة الاستاذ جعفر

تحياتي

900.test.mdb