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

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

قام بنشر

السلام عليكم

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

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

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

 

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

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

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

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

 

test.mdb

  • Like 1
قام بنشر (معدل)

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

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

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

تحياتي

 

تم تعديل بواسطه رمهان
قام بنشر (معدل)

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

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

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

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

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

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

 

 

تحياتي

تم تعديل بواسطه رمهان
قام بنشر

اخوي ابا خليل

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

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

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

قام بنشر

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

 

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

 

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

النتيجة:

900.Clipboard01.jpg.0370ac6c6898f7fa5b7865ada72611df.jpg

.

جعفر

900.test.mdb.zip

  • Like 1
قام بنشر
8 دقائق مضت, jjafferr said:

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

 

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

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

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

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

 

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

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

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

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

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

 

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

 

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

النتيجة:

.

جعفر

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  حسب التاريخ !

تحياتي

  • Like 1

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