محمد القدسي

استاذي العزيز طبقت الكود في قاعدة بياناتي accdb فلم يعمل وتظهر لي رسالة خطأ كما في المرفق بينما في المرفق الذي تفضلتم به الكود بعمل بشكل طبيعي فاين المشكلة استاذي هل يمكن ان تكون في المكتبات

احسنت استاذي وبارك الله فيك وفي علمك ونفع الله بك انت وجميع القائمين والمتعاونين معنا في هذا الصرح العلمي المبارك وتقبل الله منا ومنكم الصيام القيام وبلغنا واياكم في هذا الشهر ليلة القدر

اشكرك استاذي القدير @ابو خليل على تعاونك الكود ممتاز ولاكن ربط جداول قاعدة البيانات والموجودة في المجلد الذي تم اخفائه بواسطة الكود فانه لا يكتشف قاعدة البيانات

up

up

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

تم المطلوب واشكرك استاذي القدير @أبو إبراهيم الغامدي على تعونك وسعة صدرك وجعل ما تقومون به في ميزان حناتكم

up

اشكرك استاذي على تعاونك لا زلت أتعجب؛ لمذا تريد أن تفتح التقارير عن طريق البينة الغرضية وليس باستخدام الطريقة التقليدية! لاني مثلا اريد افتح كشف حساب لاحد العملاء واريد مطابقته مع عميل اخر فاضطر اغلق التقرير الاول وافتح الاخر فاريد مشاهدة التقريرين بنفس الوقت ومراجعة الكشفين فقلت بدلا من التصدير لمثلا pdf اضطر بعده احذف التقارير او تبقى في المجلد فيكبر حجم المجلد فهذا ما اردت من فتح التقارير عن طريق البينة الغرضية والمثال استاذي ليس المطلوب فعلى فرض ان التقرير rptCustomers عبارة عن كشف حساب يتم به فتح حساب عميل وبعدها تم تغيير الكشف بعميل اخر اريد التقرير ان يفتح اكثر من مرة بعد تغيير حساب العملاء ارجو ان اكون اوصلت ما اريد شاكرا لك استاذي

up

up

اشكرك استاذي العزيز @أبو إبراهيم الغامدي تم حل المشكلة بقي طلي اذا سمحت استاذي اريد ان يكون هذا الامر في دالة يتم استدعائها بكود في مريع تحرير يحمل جميع اسماء التقارير بحيث بعد التحديث للمربع يحدد اسم التقرير فيتم استدعاء الدالة لفتح التقرير الموجود في مربع التحرير وجزاك الله خيرا وبارك فيك

اشكرك استاذي أبو ابراهيم الغامدي على تجاوبك لا يوجد اي متغير في التقرير واليك مرفق للمطلوب مع انه ظهرت رسالة خطأ بدون ان فتح اي تقرير testreport.rar

السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل استعملت هذا الكود لفتح تقرير rptCustomers Option Compare Database Dim rpt As Report Private colReports As New Collection Private mintrpt As Integer Private Sub CommandOpenReports_Click() Set rpt = New Report_rptCustomers colReports.ADD Item:=rpt, Key:=rpt.hwnd & "" mintrpt = mintrpt + 1 rpt.Caption = mintrpt rpt.Visible = True End Sub فيفتح التقرير ثلاث مرات ثم تظهر هذه الرسالة بانه لا يمكن فتح اس قواعد بيانات اخرى كما في الصورة مع اني استعمل نفس الكود لفتح نموذج فيفتح لي نفس النموذج لاكثر من عشرة نماذج

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

up

اشكرك اخي على الرد جربت ونقلت الكائنات الى قاعدة جديد وعملت فحص للاكواد Debug ونفس المشكلة

up

up

up

السلام عليكم ورحمة الله وبركاته عند تحويل قاعدة البيانات الى accde يظهر الخطأ كما في الصورة المرفقة وقد لاحظت وقت ظهور الرسالة والقاعدة مفتوح يكون ال .laccdb بصيغة mdb كما في الصورة المرفقة مع العلم اني استخدم اكسس 2019 وجزاكم الله خيرا

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

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

اشكرك استاذي على تجاوبك لك مني ولجميع من تعاون معنا في هذا الصرح العلمي المبارك كل الشكر والتقدير والاحترام

up