أرغـــب في مساعدتي لأستخـــراج هذا التقرير

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

ثم ماهذه المحمدات في الجداول والتقارير والاستعلامات والنماذج؟ ينبغي أن تكون أسماء الكائنات شيئاً مفهوما وذا معنى وتحوي شيئاً مُحددا "مكائن، صالات، ورديات، موظفين". العمل على البيانات في إكسيل يختلف تماماً عن آكسس، وهذا مافهمته من مشاركة سابقة لك بأن بياناتك كانت على إكسيل ثم انتقلت على آكسس، وعلى ذلك فليس صحيحاً أن تخلط الصالات بالمكائن بالمنتجات بالورديات في جدول واحد.

إطلع على تصميم القاعدة المُرفقة التالية في نافذة العلاقات Relationships . وإذا وجدت أنها قد تفيدك فأعلمني حتى أشرحها لك ونُعدل ونكمل العمل عليها سويا،مع ملاحظة أنني سأبذل قصارى جهدي حسب سعتي ووقتي، ولا يكلف الله نفساً إلا وسعها. إستخدمت ملفك الأصلي وأنشأتُ جداول جديدة باللواحق at إشارة إلى منتدى الفريق العربي، وسوف تأخذ كل الكائنات فيما بعد نفس اللاحقة.



بالتوفيق،

عبدالله،،،

 

أخى الكريم مطلوبك فى المرفق

لكن نصيحتى لك أن تقرأ فى تصميم قواعد البيانات

لأن قاعدة بياناتك تحتاج الى اعادة نظر و هناك حقول مكررة و ...

AY_List.rar

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

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

...... اخي هذا هوا المطلوب فعلا وبعد اختباره تم نجاحه 100% ولكن ينقصني ثلاث أشياء وهما ..الاول: ان تشرح لي ماتم عمله لكي اطبقه على باقي صالات النسيج...

والثاني: كيف لي ان ااتي في التقرير بانتاج اليوم السابق وانتاج اليوم الحالي..... حتى يتثنى للادارة المختصه لمعرفة الفرق بين انتاج اليوم الحالي واليوم السابق أذا كان (-) اي اقل من انتاج اليوم السابق لمعرفة السبب... مثل الصوره المرفقه

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

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

New تطبيق Microsoft Office Access.rar

اخي الكريم في انتظار ردك على شرح الاكواد التي تم عملها 

جزاك الله خير.......

amir_adam87 كتب:

اخي الكريم في انتظار ردك على شرح الاكواد التي تم عملها 

جزاك الله خير.......

أخى الكريم

أولا كل ما عملناه هو الدالة الموجودة بالوحدة النمطية

Public Function ListNols(Zid As Integer, Itm As Long, Num As Integer) As String
On Error GoTo BYE_Error
ListNols = "0"
Dim Rs As DAO.Recordset, i, C As Integer
Set Rs = CurrentDb.OpenRecordset("SELECT Mohamed_TOW.ID, Mohamed_TOW.Ietm_C, Mohamed_TOW.Co_nolS, Mohamed_TOW.Co_nol FROM Mohamed_TOW " & _
"GROUP BY Mohamed_TOW.ID, Mohamed_TOW.Ietm_C, Mohamed_TOW.Co_nolS, Mohamed_TOW.Co_nol " & _
"HAVING (((Mohamed_TOW.ID)=" & Zid & ") AND ((Mohamed_TOW.Ietm_C)=" & Itm & "));")

C = Rs.RecordCount
If C > 0 Then Rs.MoveLast: Rs.MoveFirst Else GoTo Bye_Bye
If Num > C Then GoTo Bye_Bye

For i = 1 To Num
ListNols = Rs("Co_nolS")
Rs.MoveNext
Next

Bye_Bye:
Rs.Close

BYE_Error:
Set Rs = Nothing

End Function

و هى الدالة التى تعطينا كود الماكينة بناءا على ثلاث أشياء

1- كود العملية فى الجدول الرئيسى من الممكن استبدالها بالتاريخ  بتعديل بسيط

2-كود المنتج

3-رقم الماكينة (من 1 الى 9 ) كما حددت أنت ( اذا كانت هناك أعداد أكبر ستأتيك الدالة بالنتيجة )

بعد ذلك استخدمنا الدالة فى مصدر الأعمدة فى الاستعلام

هذا شرح سريع و ان كان هناك شىء غير واضح فحدده لنفصله

بالنسبة للمطلوب الثانى

هناك دالة DSum  ستأتيك بما تريد

يمكنك محاولة التجريب و ان لم تستطع

ثالثا بالنسبة للتكرار

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

و فى الجدول الثانى نفس الشىء

حاول عدم تكرار البيانات لأن ذلك سيأخذ من مساحة القاعدة بلا داعى

شروحات جميلة بارك الله بكم