عمل تقرير بطريقة معينه

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام 

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

Dtabase.rarFetching info...

[ابو البشر]

هل هذا طلبك ....

[حسين العربى]

بارك الله فيك استاذي الفاضل ابو البشر هذا طلبي

[ابو البشر]

  في 23‏/10‏/2022 at 17:30, حسين العربى said:

بارك الله فيك استاذي الفاضل ابو البشر هذا طلبي

Expand  

تفضل ..... اكمل تقرير للاستعلام ....

 

 

Dtabase.accdbFetching info...

تم تعديل أكتوبر 23, 2022 بواسطه ابو البشر

[حسين العربى]

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

1 - لم افلح في عمل التقرير 

2- اريد عمل اجمالي تحت كل عمود من الاعمده العشره حاولت ولم يفلح معي

3- اريد عمل مجموع امام كل صف حاولت ولم يفلح معي

4- اريد عمل معيار من تاريخ الي تاريخ  حاولت ولم يفلح معي

تم تعديل أكتوبر 23, 2022 بواسطه حسين العربى

[متقاعد]

  في 23‏/10‏/2022 at 20:52, حسين العربى said:

4- اريد عمل معيار من تاريخ الي تاريخ  حاولت ولم يفلح معي

Expand  

ولن تستطيع بالطريقة التقليدية

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

هذا الموضوع تم فيه مناقشة الامر بيني واخي جعفر  مع وجود مثال

  اقتباس

 

Expand  

 

[متقاعد]

  في 23‏/10‏/2022 at 20:52, حسين العربى said:

3- اريد عمل مجموع امام كل صف حاولت ولم يفلح معي

Expand  

في الرد السابق تحدثنا عن حل الصعوبة الرابعة وقدمنا الحل لها عن طريق المعلمات

والان ننتقل للصعوبة رقم 3 وهي ايضا ممكن حلها

هذه ممكن عملها عن طريق حقل محسوب

ولكن حتى لا نحصل على خطأ دائري

نعمل استعلام جديد مصدره الاستعلام الجدولي

ولان الحقول كثيرة ممكن نعمل موديل يحتوي على حلقة تكرارية تمر على حقول الاستعلام الاول ثم تجمع الحقول بعد استثناء اسم المؤسسة او الفرع

Public Function sum_fld(id As String) As Double
    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim x As Double
Set rst = CurrentDb.OpenRecordset("Select * From [استعلام1] Where [NAME_REGION]= '" & [id] & "'")
x = 0
For Each fld In rst.Fields
If fld.Name <> "NAME_REGION" Then
x = x + fld.Value
    End If
    Next
    sum_fld = x
    rst.Close
End Function

ونستدعي الدالة في الحقل المحسوب في الاستعلام الجديد

sum_fld([NAME_REGION])

ربما ليس الكود المثالي ولكن يؤدي الغرض وانا كما اشير مجرد متقاعد

والنتيجة

تحياتي

 

تم تعديل أكتوبر 24, 2022 بواسطه مبرمج متقاعد

[متقاعد]

الان الصعوبة رقم 2

  في 23‏/10‏/2022 at 20:52, حسين العربى said:

2- اريد عمل اجمالي تحت كل عمود من الاعمده العشره حاولت ولم يفلح معي

Expand  

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

 

تم تعديل أكتوبر 24, 2022 بواسطه مبرمج متقاعد

[حسين العربى]

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

[أبوبسمله]

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

  في 24‏/10‏/2022 at 12:59, مبرمج متقاعد said:

هذه ممكن عملها عن طريق حقل محسوب

ولكن حتى لا نحصل على خطأ دائري

Expand  

اخى ومعلمى العزيز خالد جزاك الله خيرا

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

  في 24‏/10‏/2022 at 07:03, مبرمج متقاعد said:

ولن تستطيع بالطريقة التقليدية

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

Expand  

بالنسبه لى فى هذه الجزئيه اقوم بعمل استعلام واضع به المعايير الخاصه بى ومنه اقوم بعمل الاستعلام الجدولى

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

وجزاكم الله عنا كل خير

[حسين العربى]

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