فتح التقرير عن طريق البدياف داخل النموذج

[بلال اليامين]

السلام عليكم

اريد فتح التقرير عن طريق البدياف داخل النموذج

اليكم الشرح

[Foksh]

7 دقائق مضت, بلال اليامين said:

السلام عليكم

 

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

أخي بلال أنت عضو فضي ( نتمنى لك المزيد من الدرجات  ) ، وما زلت - متأسفاً منك - لا تهتم لأي ملاحظات يتم طرحها خلال المشاركات أو قوانين المنتدى .

• العنوان :- نكتشف أن مقصده ومعناه مختلف عما تريده أنت .
• الشرح :- تبخل على أخوانك في المنتدى بالشرح وتكتفي بكلمات لا تتعدى أصابع اليد .
• إرفاق ملف :- برأيك هل الصورة و 8 كلمات كافيات لتوصيل ما تفكر به لمن يقرأ الموضوع دون ارفاق ملف !!!

شكراً لك على رحابة صدرك مراراً وتكراراً في تقبل الملاحظات التي ليس لها هدف إلا أن تحظى بطريق سليم لتوصيل معلومتك

[kkhalifa1960]

7 ساعات مضت, بلال اليامين said:

اريد فتح التقرير عن طريق البدياف داخل النموذج

استاذ @بلال اليامين اليك الشرح والمرفق حسب مافهمت . فتح النماذج والتقارير بنفس النموذج .

                                                                                                                      

Bilal_Yamen.rar

[kkhalifa1960]

أم انك تقصد هذا .  

Bilal_Yamen.rar

[بلال اليامين]

السلام عليكم

عند الضغط على ايقونة فتح تقرير تظهر هذه الواجهة

تم تعديل منذ 19 ساعات بواسطه بلال اليامين
توضيح

[منتصر الانسي]

قم بنسخ الكود التالي ولصقه في أي وحدة نمطية

Public Function ReportExists(rptName As String) As Boolean
    Dim obj As AccessObject
    For Each obj In CurrentProject.AllReports
        If obj.Name = rptName Then
            ReportExists = True
            Exit Function
        End If
    Next obj
    ReportExists = False
End Function

بهذا سيتم حل المشكلة التي تسبب الخطأ الظاهر في الصورة الثانية

لا أدري إذا ما سيتم حل المشكلة الظاهرة بالصورة الأولى أم لا ولكن جرب ورد علينا بالنتيجة

تحياتي

[بلال اليامين]

السلام عليكم

استاذ

الصورة الاولى مازالت عند الضغط على ايقونة فتح تقرير في بدياف تظهر هذه الواجهة

[kkhalifa1960]

استاذ بلال حضرتك شغلت الكود بدون  الدوال الخاصة به . لو تحب ارسل قاعد بياناتك وانا بضبطها .