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

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

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

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

Dtabase.rar

[ابو البشر]

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

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

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

[ابو البشر]

1 ساعه مضت, حسين العربى said:

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

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

 

 

Dtabase.accdb

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

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

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

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

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

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

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

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

[متقاعد]

10 ساعات مضت, حسين العربى said:

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

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

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

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

اقتباس

 

 

[متقاعد]

16 ساعات مضت, حسين العربى said:

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

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

والان ننتقل للصعوبة رقم 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

17 ساعات مضت, حسين العربى said:

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

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

 

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

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

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

[أبوبسمله]

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

4 ساعات مضت, مبرمج متقاعد said:

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

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

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

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

10 ساعات مضت, مبرمج متقاعد said:

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

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

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

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

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

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

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