مطلوب تعداد خاص لقيم مختلفة ومتنوعة من خلال قائمة في نموذج

[عذاب الزمان]

السلام عليكم جميعا

اتمنى للجميع الصحة والعافية

بحاجة لمساعدتكم اخوتي الاعزاء

عندي قائمة فيها عدة خيارات كلما اختار واحد منها ينزل بالجدول مجموعها بشكل متزايد يعني +1 وهكذا يعني اختار A في السجل الثاني ينزل بالحدول 1 ، وعند اختيار مرة ثانية في السجل الرابع ينزل بالجدول 2 ، وعند اختياره مرة ثالثة في السجل العاشر ينزل بالجدول 3 وهكذا لبقية الخيارات .... بحيث عندما اعمل تقرير للاستعلام عن عدد مرات اختيار A خلال شهر يظهر لي مثلا 20 مرة وعندما اختار B يظهر لي مثلا 10 مرات وهكذا .

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

AAAA.accdbFetching info...

[ابوخليل]

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

لماذا لا تستخدم دالة Dcount لعد هذه الحروف في السجلات ؟ ويمكنك وضع هذه النتيجة في اي مكان تريده

[عذاب الزمان]

استاذي العزيز ... لكم الصحة والعافية ان شاء الله

هذه الحروف هي مختصارت لانواع او اسماء وهي جزء من برنامج ، وضعت هذا المصغر لاجل حل المشكلة .....

دالة DCOUNT تعطيني عدد السجلات الكلي لكل من A , B , C  عند اختيار عدد من القيود على اساس تاريخ معين .....

انا اريد عداد لكل منها اي كلما اخترت A او B او C  يظهر العدد بالزيادة لكل منها يعني اول اختياري لها يكتب 1 وثاني اختيار يكتب 2 وعاشر اختيار يكتب 10 وهكذا لكل منها ، واما عند التقرير بين تاريخين سيظهر لي عدد A لهذه الفترة وليس كل عدد A  وهكذا للبقية .....

حاولت كثيرا لم ينجح عندي سوى اظهار العدد الكلي بدالة DCOUNT 

[ابوخليل]

تفضل حسب ما فهمت

على الاقل هذه الفكرة تفيدك

ABC.accdbFetching info...

[عذاب الزمان]

استاذي الغالي

اني اسف لان ما استطاعيت ايصال فكرتي

اكرر مطلبي بصورة اخرى :

اولا جدول TBL_T_TYPE_PLANE جدول ترميز مرتبط بالجدول الرئيسي TBL_IN_ARA 

ثانيا عند اختيار اي حرف من الموجودات وهن A و B و C فقط وهي انواع محددة لمواد معينة اختصرت تسميتها باحرف ، ويكون الاختيار من الفورم من القائمة المنسدلة.

ثالثا في القيد الاول اخترت B سيكتب في حقل BO رقم 1 ، وفي القيد الثاني اخترت ايضا B فيكتب في BO رقم 2 ، وفي القيد الثالث اخترت C فسيكتبفي CR رقم 1 وهكذا ، وارفقت صورة قمت باملائها كتابيا لتوضيح مرادي .

رابعا بعد الحصول على المطلوب من النقطة ثالثا ، نقوم بعمل تقرير استعلام على اساس التاريخ لكل من A  او B او C  لاظهار عدد القيود للفترة المحددة وليس كل القيود ل A او B او C 

واعتذر لاني سارهقكم معي .

[ابوخليل]

  في 21‏/9‏/2023 at 18:00, عذاب الزمان said:

رابعا بعد الحصول على المطلوب من النقطة ثالثا ، نقوم بعمل تقرير استعلام على اساس التاريخ لكل من A  او B او C  لاظهار عدد القيود للفترة المحددة وليس كل القيود ل A او B او C 

 

Expand  

غير مفهوم .. ليش تقرير واستعلام  وتاريخ  ... فعلى شرحك اعلاه يكون آخر سجل يحمل مجموع عدد مرات التكرار

يعني ادخلت حرف  A  عشرين مرة في عشرين سجل .. هنا السجل ألأخير سيحمل رقم 20

صح ؟

[عذاب الزمان]

صح استاذي العزيز

هذه 20 بالتقرير فيما بعد حسب التاريخ المحدد .

اما لماذا استعلام لان هذه الحقول الثلاثة بالجدول التي هي CR و BI و AI ساضيفها الى استعلام وعليه ابني التقرير .

 

[ابوخليل]

تفضل حسب طلبك وشرحك بالصورة بالضبط

 

علما بعد رفعي لهذه الاجابة تبين لي ان Other غير منضبط وبحاجة لضبط خاص

Private Sub TYPE_IN_ARA_AfterUpdate()
Dim i As Integer
i = DCount("TYPE_IN_ARA", "TBL_IN_ARA", "TYPE_IN_ARA=" & Me.TYPE_IN_ARA)
If TYPE_IN_ARA = 1 Then
Me.AI = i + 1
ElseIf TYPE_IN_ARA = 2 Then
Me.BO = i + 1
ElseIf TYPE_IN_ARA = 3 Then
Me.CR = i + 1
Else
Me.OTHER = i + 1
End If
End Sub

ABC2.accdbFetching info...

[عذاب الزمان]

احسنت استاذي الغالي

الله يوفقك ويحفظك 

الكود اشتغل ، لكن هناك خلل يخص OTHER  ساحاول اصلاحه لانه يعني اي شي غير A  و B و C

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

الف شكر 

تم تعديل سبتمبر 21, 2023 بواسطه عذاب الزمان

[عذاب الزمان]

بعد التجربة لم يعمل كما اردت .

حاولت ان اجعل بدل me.type.in.ara=1   ان يكون me.type.in.ara.colum(0)  لكني لم افلح . 

اعتذر للازعاج

تم تعديل سبتمبر 21, 2023 بواسطه عذاب الزمان

[Foksh]

حاول عمل استعلام لـ a ,b , c منفصل لكل واحد ليسهل عليك العد وتختار بين تاريخين او اي اضافات اخرى ترغب بها ( مجرد فكرة )

[عذاب الزمان]

شكرا للاخ foksh  على الاهتمام

عطفا على برنامجي الاصلي الفكرة غير صالحة 

مشكور اخي

[Foksh]

ABC3.accdbFetching info...

 

تفضل اخي الكريم ، اعتقد هذا طلبك بالإعتماد على ملف الأخ أبو خليل ، ولكن بالتحايل على الآكسيس .

 

وإن كان للإخوة مقترحات أفضل وأسهل فمنهم نستفيد 😍

[ابوخليل]

  في 21‏/9‏/2023 at 22:06, عذاب الزمان said:

بعد التجربة لم يعمل كما اردت .

حاولت ان اجعل بدل me.type.in.ara=1   ان يكون me.type.in.ara.colum(0)  لكني لم افلح . 

اعتذر للازعاج

Expand  

يبدو ان قيمة me.type_in_ara في المثال تختلف عن قيمتها في برنامجك

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

[عذاب الزمان]

السلام عليكم اخوتي الاعزاء

الاستاذ الغالي ابو خليل ... 

غيرت الرموز الى اسماء للتوضيح ، والموجود بالمرفق AAAA هو مطابق للبرنامج الاصلي لكنه يختلف عن الذي ارفقتموه بالاجابة تحت اسم ABC بسبب الغاء ارتباط جدول الترميز بالجدول الرئيسي  ،

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

المطلب الاول : (الاهم)
عندي جدول ترميز TBL_T_TYPE_PLANE مرتبط بجدول رئيسي TBL_IN_ARA.
 يحتوي جدول الترميز على 9 سجلات فقط ، حيث يوجد في السجلات (الاول والثاني والسابع) نوع اسمه CRJ 
وفي السجلات (الثالث والرابع والثامن) نوع اسمه BOEING وفي السجلات (الخامس والسادس والتاسع) نوع اسمه AIRBUS  . 
المطلوب : عندما اختار من القائمة المنسدلة الموجودة بالفورم النوع CRJ الموجود (بالسجل الاول) يكتب في حقل CR رقم 1 وينزل بالجدول الرئيسي ، وعندما اختار CRJ الموجود (بالسجل السابع) يكتب في حقل CR رقم 2 وليس 1  وكلما اختار النوع CRJ يزداد العدد بحيث اذا اخترته عشر مرات سواء من السجل (الاول او الثاني او السابع) فهو يزيد من مجموعها اي يراها جميعا كنوع واحد وهو CRJ بسجلات متعددة يعني حتى ولو اختلفت سجلاتها (الاول او الثاني او سابع) ، ونفس الامر ينطبق على النوع BOEING والنوع AIRBUS

المطلب الثاني :

عمل تقرير لاظهار عدد سجلات CRJ و BOEING و AIRBUS  لفترة معينة ، يعني اذا كان عندي 20 سجل CRJ خلال شهر فعندما اريد العدد خلال عشرة ايام (من الى ) يظهر لي السجلات المدخلة بهذه الايام المحددة فقط ولتكن خمسة او ستة  .

AAAA.accdbFetching info...

[ابوخليل]

تم تحقيق طلبك الأول

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

ABC2.accdbFetching info...

[عذاب الزمان]

استاذي ابو خليل المحترم

الحل اعلاه بالمرفق ABC ليس هو المطلوب

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

بعد التعديل للتوضيح اشرح انا امتلك ثلاث انواع فقط (CRJ و BOUING و AIRBUS ) وتشغل تسع سجلات مختلفة . CRJ (يشمل ثلاث سجلات رقمتها CRJ1,CRJ2,CRJ3 وتشغل السجل الاول والثاني والسابع ، وعند اختيار اي منها يعتبر واحد وهو النوع CRJ وكلما اخترت اي منها يزيد العدد .... 

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

AAAA.accdbFetching info...

تم تعديل سبتمبر 23, 2023 بواسطه عذاب الزمان

[Foksh]

أخي الكريم هذا حل بسيط مع تقريرين واحد شامل والآخر تختاره بين تاريخين

 

ولم انتبه للعبارة  ( وبنفس المرفق الذي ساعيد ارساله واكون ممتن من جنابكم الكريم ) ، وبالمناسبة قمت بإضافة حقل تاريخ في الجدول والنموذج حتى تكتمل لك فكرة التقرير بتاريخ محدد .

 

 

 

ABC4.zipFetching info...

تم تعديل سبتمبر 23, 2023 بواسطه Foksh
تعديل محتوى السجلات

[عذاب الزمان]

الاخ العزيز Foksh

جزاك الله خير 

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

لكن بقي شيء اريده في التقرير بين تاريخين هو ان يظهر عدد CRJ او BOEING او AIRBUS خلال التاريخ المحدد فقط . 

وممنون منك جدا

[Foksh]

  في 23‏/9‏/2023 at 17:35, عذاب الزمان said:

خلال التاريخ المحدد فقط

Expand  

تقصد خلال التاريخ محدد مثل تحديد يوم 23-9-2023 مثلاُ وليس بين تاريخين محددين ؟؟

اذا كان ذلك فالأمر بسيط , تفضل

 

ABC5.zipFetching info...

[عذاب الزمان]

اخي العزيز 

التقرير بين تاريخين وليس تاريخ واحد يعني احدد مثلا من 20/9/2023 الى 23/9/2023 ويظهر لي عدد سجلات CRJ خلال هذه الفترة فقط مثلا 5 او 6  وليس جميعها 

تم تعديل سبتمبر 23, 2023 بواسطه عذاب الزمان

[Foksh]

تفضل 

 

 

ABC6.zipFetching info...

[عذاب الزمان]

احسنت اخي 

لكنه يقرأ كلٌ على حدى 

المفروض انه يقرأ (CRJ1 و CRJ2 و CRJ3 ) على انهم واحد فيظهر مجموعهم خلال هذه الفترة المحددة ، وهكذا لبقية الانواع BOEING  و AIRBUS 

 

[ابوخليل]

  في 23‏/9‏/2023 at 11:54, عذاب الزمان said:

استاذي ابو خليل المحترم

الحل اعلاه بالمرفق ABC ليس هو المطلوب

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

 

Expand  

اعتذر اخي الكريم عن الخطأ في المرفق فقد اختلط علي

تفضل المرفق الصحيح

AAAA2.accdbFetching info...

[عذاب الزمان]

الاستاذ والاخ ابو خليل المحترم

لعلي اتعبتك كثيرا ، لكن المرفق لم ينفذ اي امر