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

[Moosak]

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

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

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

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

مثال توضيحي :

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

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

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

ShowReportInNoDate.rarFetching info...

تم تعديل سبتمبر 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.zipFetching info...

[jjafferr]

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

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

 

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

 

جعفر

 

[Cap Mohammed Ali]

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

https://wa.me/message/AYCMHE5XWYI2D1

[Moosak]

  في 11‏/9‏/2022 at 11:41, 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

Expand  

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

 

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

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

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

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

 

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

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

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

[jjafferr]

  في 11‏/9‏/2022 at 13:02, Cap Mohammed said:

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

Expand  

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

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

 

جعفر

[jjafferr]

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

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

 

 

  في 11‏/9‏/2022 at 14:27, Moosak said:

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

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

Expand  

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

 

 

  في 11‏/9‏/2022 at 14:27, Moosak said:

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

Expand  

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

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

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

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

.

جعفر

[Moosak]

  في 11‏/9‏/2022 at 14:46, jjafferr said:

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

Expand  

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

  في 11‏/9‏/2022 at 14:46, jjafferr said:

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

Expand  

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

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

[jjafferr]

  في 11‏/9‏/2022 at 15:34, Moosak said:

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

Expand  

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

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

.

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

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

.

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

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

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

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

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

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

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

 

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

 

جعفر

[Moosak]

@jjafferr

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

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

[محمد سلامة]

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

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

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

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

  في 11‏/9‏/2022 at 17:45, jjafferr said:

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

Expand  

 

 

 

 

[أبوبسمله]

  في 11‏/9‏/2022 at 17:45, jjafferr said:

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

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

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

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

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

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

 

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

Expand  

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

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

[jjafferr]

  في 11‏/9‏/2022 at 21:15, احمد الفلاحجي said:

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

Expand  

هل هذا صحيح !!

 

جعفر

[أبوبسمله]

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

هل هذا صحيح !!

Expand  

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

[أبوبسمله]

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

هل هذا صحيح !!

Expand  

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