استفسار ❓ سؤال ❓ : كيف أجعل تصميم التقرير (يظهر) دائما خصوصا ( في حال عدم وجود بيانات ) 🤔

[Moosak]

السلام عليكم جميعا ورحمة الله وبركاته .. 🙋‍♂️

سؤالي يتعلق بكيفية أجعل التقرير والتقارير الفرعية له ( تظهر ) مكتملة بتصاميمها خصوصا في حال عدم وجود بيانات ..

فكما هو معلوم أن الوضع الافتراضي لبرنامج الأكسس يخفي التقرير ويظهر صفحة بيضاء عندما لا يحتوي التقرير على بيانات ..

المطلوب هو : كيف أجعل التقارير الفرعية تظهر بكل تفاصيلها عندما لا توجد بها بيانات ؟

مثال توضيحي :

عندما يكون هناك بيانات يظهر هكذا :

وعندما لا يكون هناك بيانات يظهر هكذا :

المطلوب أن يظهر بهذه الصورة :

ShowReportInNoDate.rar

تم تعديل سبتمبر 11, 2022 بواسطه Moosak

[Moosak]

أخي @rockjone33 شكرا لمرورك ..

 

ولكن شرحك غير مفهوم البته 🙃

جرب طبق على المرفق لنرى النتيجة ..

تم تعديل سبتمبر 11, 2022 بواسطه Moosak

[jjafferr]

وعليكم السلام 🙂

 

ان شاء الله طريقتي تعجبك 🙂
.

.

Private Sub VeiwReportBtn_Click()
On Error GoTo Err_VeiwReportBtn_Click

    Dim qry_0 As String, qry_1 As String

    qry_0 = "Select * From qry_Table2_Empty_One_Record"
    qry_1 = "Select * From qry_Table2"
    DoCmd.DeleteObject acQuery, "tqry_SubReport"



    If DCount("*", "Table2", "T1ID=" & Me.IdCbo) = 0 Then
        CurrentDb.CreateQueryDef "tqry_SubReport", qry_0
    Else
        CurrentDb.CreateQueryDef "tqry_SubReport", qry_1
    End If




    Dim stDocName As String

    stDocName = "Report1"
    DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=" & Me.IdCbo

    
Exit_VeiwReportBtn_Click:
    Exit Sub

Err_VeiwReportBtn_Click:
    
    If Err.Number = 7874 Then
        'query tqry_SubReport does not exist, ignore
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_VeiwReportBtn_Click
    
End Sub

 

جعفر

1523.ShowReportInNoDate.accdb.zip

[jjafferr]

1. وتقدر تستغنى عن كل الاكواد ، بعمل استعلام union ، تجمع فيه الاستعلام الاصل و الاستعلام اللي فيه سجل فارغ ، ويكون هذا الاستعلام هو مصدر بيانات التقرير الفرعي ،

ولكن ، دائما سيظهر لك سجل فارغ في الاسفل 😁

 

2. فكرة ثانية ، وهي عمل "صورة" لمسميات التقرير الفرعي ، فاذا مافيه بيانات ، خلي الصورة تطلع 😁

 

جعفر

 

[Cap Mohammed Ali]

@jjafferr
السلام عليكم اخى جعفر 
هل تكرمت و تواصلت معى  على الواتساب للضروره  
اكون شاكرا لك .!

https://wa.me/message/AYCMHE5XWYI2D1

[Moosak]

2 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

ان شاء الله طريقتي تعجبك 🙂
.

.

Private Sub VeiwReportBtn_Click()
On Error GoTo Err_VeiwReportBtn_Click

    Dim qry_0 As String, qry_1 As String

    qry_0 = "Select * From qry_Table2_Empty_One_Record"
    qry_1 = "Select * From qry_Table2"
    DoCmd.DeleteObject acQuery, "tqry_SubReport"



    If DCount("*", "Table2", "T1ID=" & Me.IdCbo) = 0 Then
        CurrentDb.CreateQueryDef "tqry_SubReport", qry_0
    Else
        CurrentDb.CreateQueryDef "tqry_SubReport", qry_1
    End If




    Dim stDocName As String

    stDocName = "Report1"
    DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=" & Me.IdCbo

    
Exit_VeiwReportBtn_Click:
    Exit Sub

Err_VeiwReportBtn_Click:
    
    If Err.Number = 7874 Then
        'query tqry_SubReport does not exist, ignore
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_VeiwReportBtn_Click
    
End Sub

 

جعفر

1523.ShowReportInNoDate.accdb.zip 194.22 kB · 7 downloads

أعجبتني جدا .. ما شاء الله تبارك الله .. جزاك ربي خيرا وأجرا وحلاوة حبيبنا @jjafferr ☺️🌹

 

وكذلك فتحت ذهني إلى أفكار حلوة لتطويرها وتطبيقها بأكثر من شكل على التقارير الفارغة .. ومنها على السريع :

أضفت في التقرير الفارغ أبو سجل واحد هذي العبارة "لا يوجد بيانات"..

فكانت النتيجة 🙂 :

هذا على السريع بس .. ولي في الاستعلامات الفارغة تجارب إن شاء الله 🙂 

 

شيء آخر شدني في المرفق اللي حطيته وحابين نستفيد منك  :

لاحظت في تسمياتك للملفات اللي ترفعها للمنتدى هناك رقم تسلسلي تصاعدي مع الردود والمشاركات .. فأيش السر فيه ؟ وما هي القصة وراء ذلك ؟ 😉

هل عندك قاعدة بيانات بمشاركاتك أو بالمواضيع اللي تتابعها في المنتدى ؟ 

[jjafferr]

منذ ساعه, Cap Mohammed said:

السلام عليكم اخى جعفر 

وعليكم السلام اخي محمد 🙂

ارسلت لك رسالة على الخاص 🙂

 

جعفر

[jjafferr]

وعليكم السلام اخوي موسى 🙂

بس انتبه ، لا توجد علاقة بين التقرير الرئيسي والفرعي ، وانما التقرير الفرعي يأخذ بياناته بعد تتم تصفيتها في الاستعلام ، بالحقل IdCbo 🙂

 

 

17 دقائق مضت, Moosak said:

وكذلك فتحت ذهني إلى أفكار حلوة لتطويرها وتطبيقها بأكثر من شكل على التقارير الفارغة .. ومنها على السريع :

أضفت في التقرير الفارغ أبو سجل واحد هذي العبارة "لا يوجد بيانات"

ما شاء الله ، احنا متعودين منك الابتكارات الحلوة 🙂

 

 

11 دقائق مضت, Moosak said:

احظت في تسمياتك للملفات اللي ترفعها للمنتدى هناك رقم تسلسلي تصاعدي

وكيف تريد ان اعرف الملف الذي اشتغل عليه من بين الملفات !!

هي ملفات بتسلسل ، قد اكون استخدمتها للرد ، ويكون للملف تعديل ثاني وثالث ، وقد استخدم الملف للتجربة بدون ان اضع رد في المنتدى 🙂

وفي الفترة الاخيرة صرت احاول اعمل تغيير في إسم الملف ، حتى اذكر الفائدة منه ، ولكن مو دائما 🙂

وكلما بلغ عندي حوالي 100 ملف ، اعزلهم في مجلد خاص بهم ، واواصل التسلسل 🙂

.

جعفر

[Moosak]

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

لا توجد علاقة بين التقرير الرئيسي والفرعي

ممتاز .. شكرا للتنبيه 👍🏼🙂

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

وكيف تريد ان اعرف الملف الذي اشتغل عليه من بين الملفات !!

ما شاء الله عليك .. شخص منظم 😉

وأيضا ملاحظ سرعة ردك بروابط مشاركاتك وشروحاتك السابقة  .. تبارك الله .. وهذي كيف منظمنها ؟  ( تطمعنا ) 😅

[jjafferr]

26 دقائق مضت, Moosak said:

وأيضا ملاحظ سرعة ردك بروابط مشاركاتك وشروحاتك السابقة  .. تبارك الله .. وهذي كيف منظمنها ؟ 

انا مو راضي عن طريقة البحث في المنتدى ، فالبحث ما يعطيني اللي اريده بسهوله !!

1. فعندي هذه المدونه اللي كتبت فيها بعض المواضيع ، بس مو كامله :

.

2. واستعين ببحث جوجل من خارج المنتدى ، هكذا:

jjafferr "لا تبدأ اسم الكائن برقم" site:www.officena.net

.

3. ذهبت الى منتدى "Invision Community" والذي منتدانا نسخة منه ، ولكن ما حصلت على طريقة غير الموجود عندنا ،

4. في الفترة الاخيرة فكرت في فكرة ، بس ما عندي وقت لتنفيذها وما ادري ممكن عملها او لا ، وهي ان اعمل محرك بحث في الاكسس كالتالي:

أ. استعين بأحد برامج web crawlers ، واجعله يزور جميع صفحات منتدى الاكسس ،

ب. استخلص من كل صفحة الكلمات الغير متكررة ، واحفظها في الاكسس في حقل ، وفي حقل آخر يكون رابط المشاركة ،

ج. واذا ممكن استخلاص الكود (في المشاركات) وحفظه في حقل آخر ،

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

هـ. حسب كمية البيانات ، فقد نربط اكثر من برنامج (كل جدول في برنامج) ، ونحصل على النتيجة 🙂

 

ها ، الظاهر اني رحت بعيد 🙂

 

جعفر

[Moosak]

@jjafferr

الحين طمعتنا في رؤية الناتج لهذا الطموح والحلم ( عجل الله فرجه ) 😅

الله يوفقك لإنجازه وييسر لك كل الإمكانيات المتاحة لذلك 😊

[محمد سلامة]

فعلا البحث في المنتدى ضعيف شوية عندما تبحث عن موضوع تتعب للوصول إليه 

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

طبعاً اسهل شئ للوصول لأي موضوع في المنتدى هو البحث عن طريق جوجل

تحياتي لكم جميعا 

2 ساعات مضت, jjafferr said:

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

 

 

 

 

[ابوبسمله]

3 ساعات مضت, jjafferr said:

4. في الفترة الاخيرة فكرت في فكرة ، بس ما عندي وقت لتنفيذها وما ادري ممكن عملها او لا ، وهي ان اعمل محرك بحث في الاكسس كالتالي:

أ. استعين بأحد برامج web crawlers ، واجعله يزور جميع صفحات منتدى الاكسس ،

ب. استخلص من كل صفحة الكلمات الغير متكررة ، واحفظها في الاكسس في حقل ، وفي حقل آخر يكون رابط المشاركة ،

ج. واذا ممكن استخلاص الكود (في المشاركات) وحفظه في حقل آخر ،

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

هـ. حسب كمية البيانات ، فقد نربط اكثر من برنامج (كل جدول في برنامج) ، ونحصل على النتيجة 🙂

 

ها ، الظاهر اني رحت بعيد 🙂

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

ان شاء الله ربنا ييسرها ونشوفه قريب باذن الله 💐

[jjafferr]

8 ساعات مضت, احمد الفلاحجي said:

فانتظار هذا البرنامج منك منذ زمن عدى حوالى عامين منذ ان تحدثت عنه

هل هذا صحيح !!

 

جعفر

[ابوبسمله]

15 ساعات مضت, jjafferr said:

هل هذا صحيح !!

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

[ابوبسمله]

في 12‏/9‏/2022 at 08:10, jjafferr said:

هل هذا صحيح !!

اها ها هو الموضوع الذى اشرت عليه بردكم اخى ومعلمى العزيز