أحمد العيسى

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

تمام .. اختفى الخطأ أصبح الآن لدينا طريقة جديدة فى البحث .. يرجى التعديل فى القالب الأصلي شكراً لكما

تفضل db.mdb

حولت تطبيقي إلى صيغة *.accdb وتم تجربته على أوفيس 365 (2024) وتم الاستيراد وبناء الكود كما أسلفت لكن ما زالت الأخطاء كما هي ، و كما أوضحتها سابقاً سأحاول التجربة غداً على نسخة أكسس أقل فى الإصدار إذ ربما تكون المشكلة فى النسخة المثبتة على جهازي

الفكرة مبتكرة وجميلة جداً لكن واجهتني بعض الصعوبات أثناء التنفيذ وأحتاج بعض التوضيحات كما فهمت : يتم استيراد الثلاث نماذج التالية إلى تطبيقى frmSearch sfrmSearch frmFinderBuilder واستخدام الأخير frmFinderBuilder لبناء كود البحث المستخدم ثم يمكن حذفه بعد ذلك من التطبيق وتم وضع الكود الذى تم استنساخه فى الزر الموضح بالصورة بالنموذج الذى يستقى بياناته من الجدول tbl_Student1 التطبيق أعلاه بصيغة mdb (أكسس 2003) البناء والنسخ والاستخدام لا يوجد به مشاكل لكن الناتج لا يعمل حتى على أوفيس 2024 .. ما السبب ؟؟

تمت الإفادة شكراً جزيلاً لكل من شارك بمعلوماته ونصائحه

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

الهدف من هذا الموضوع هو الرغبة فى تعديل كبير على تقليل عدد التقارير التى عندي كمثال التطبيق الأصلى يحتوي على 142 تقرير قابل للزيادة والهدف النهائي هو تقليص عددهم إلى الثلث .. أنا أضع مثال فقط لعرض الفكرة ثم يتم نقل الفكرة فى حال نجاحها للتطبيق الأصلي أنظر لصور التقارير

فكرة جميلة بلا شك ( خارج الصندوق) لكن التطبيق الأصلي يعتبر 3 × 1 و نماذج كل صف تتفرع من شاشة أساسية تخبرك باختيار الصف المطلوب لكن ماذا عن هذه الفكرة : أتمنى العمل عليها ، فهى أقرب لهذا التطبيق

أشكرك أخى Foksh تمام .. هذا بالنسبة للجزء الثانى من السؤال ماذا عن الجزء الأول والأساسي فى انتظار تعديل حضرتك

هذا ما فعلته سابقاً (عمل ثلاث تقارير لها نفس المحتوى للثلاث صفوف ) ، وكنت أريد التطوير بعمل تقرير واحد .. وهذا هو السؤال الجوهري للموضوع !! الشرط موجود فى تسمية علوية بكل نموذج ومن خلال استخدام دالة ( Function ) فى مديول =GetWordFromCaption("frm_OnlyYou1"; "txt_Name"; 4) يتم استخراج كلمة الأول أو الثانى أو الثالث لكن كيف يمكن استخلاص ذلك أولاً من زر النموذج الموجود بالنماذج الثلاثة والذهاب جاهزاً إلى التقرير :

ملحوظة فى محلها .. لكن القاعدة الأصلية بدأت بالصف الأول ثم تباعاً تم الاحتياج للتصعيد للصف الثانى ثم الثالث ويوجد أسباب أخرى غير واضحة فى المثال المرفق المفتطع من التطبيق لكن حضرتك لم ترد على السؤال المذكور فى العنوان : "هل يمكن استخدام نفس التقرير ليأخذ بياناته من جدول واحد فى كل مرة من الجداول الثلاثة"

السلام عليكم بالقاعدة ثلاث صفوف من ثلاث جداول ، ويوجد تقرير واحد باسم "افادة قيد طالب" أريد استخدام نفس التقرير إذا تم اختيار طالب من الصف الأول أو الثانى أو الثالث مع ملاحظة أن التقرير حالياً له خاصية مصدر السجل :tbl_student1 وإذا أردت استخدامه مع الصف الثانى فلابد من تغيير مصدر السجل إلى :tbl_student2 وهذا الموضوع يستدعى نسخ نفس التقرير للصف الثانى ، ونسخ آخر للصف الثالث وبفرض أن لدينا 20 مطبوعة ، فبهذه الطريقة يجب وضع 60 تقرير ، ويعتبر هذا تكرار وإهدار كما أريد إضافة حقل غير منضم مكان النقاط المشار إليها بالسهم ليتغير محتواه حسب الصف ( الأول ، الثانى ، الثالث ) أرفقت بالأسفل المثال أعلاه ليتم التعديل فيه مباشرة تحياتى وتقديري لكم جميعاً db.mdb

تمام بعد مداخلتك لفت نظري سطر فى كود فتح النموذج الأول frm_Pass Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) ' إلغاء خاصية ضغط البيانات فى خيارات برنامج أكسس قبل تشغيل التطبيق Application.SetOption "Auto compact", False Me.txtPass.SetFocus End Sub فتم تعديله مؤقتاً بوضع علامة Rem على سطر المشكلة ' إلغاء خاصية ضغط البيانات فى خيارات برنامج أكسس قبل تشغيل التطبيق ' Application.SetOption "Auto compact", False وتم الحل يبدو أننى تعجلت فى وضع مشكلة قبل البحث بجدية

السلام عليكم كما يعلم الجميع إن تأشير ميزة الضغط عند الإغلاق الموجودة فى خيارات أكسس أفضل من كتابة كود بهذا الخصوص حتى لا يتضخم الملف كلما تم تشغيله لكن عند تشغيل ملف أكسس باستخدام كود Hide Access Window تجد أن علامة ضغط عند الإغلاق قد تم إزالتها ما أقصده موضح بالصورة التالية أو أرفقت ملف حتى يتم تجربته من خلالكم قد يكون هناك كود يعمل على تلك الإزالة ولم أتوصل إليه .. وإذا كانت الإجابة بالنفى أكون فى فى انتظار حل بديل شاكر اهتمامكم مقدماً db.mdb