Barna

استخدم هذا الكود في النموذج الرئيسي لديك عند حدث التحميل ..... جرب ووافينا بالنتيجة If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If

ممكن مثالك مصغر عشان نعرف تفاصيل اكثر ونطبق

ربما هذا طلبك حسب فهمي لموضوعك .... Database1 (7).rar

بارك الله فيك ونفع بعلمك

لم افكر في طريقتك .... راحت من فكري تماما ... =MFAvrg(Nz([a1]);Nz([a2]);Nz([a3])) جزاك الله خيرا على التنبيه

طيب جرب الثلاث مواد الاولى واعلمنا بالنتيجة علما ني غيرت بعض مسميات مربعات النص لسهولة كتابة الكود 1 (2).rar

اذن تريده هكذا .... شوف الحسبة صحيحة ام لا .... للثلاث مواد الاولى

ممكن توضح اكثر .... لاحظ الصورة اليس هذا هو المطلوب أم ماذا ؟؟؟؟

جزاك الله خيرا ونفع بك

انظر للمواد الثلاثة الاول وطبق لبقية المواد الاحرى ملاحظة : لي تحفظ على اسلوب تصميم الجدول ؟؟؟ 1 (2).rar

جزاك الله خيرا ونفع بك

اعتقد ان الباس هو 1

علما انني لم افهم ما تقصده ولكن انظر المرفق ربما هو المطلوب !!! قاعدة.accdb

ممكن تزودنا بمرفق مصغر لما تريد ....

Between [ادخل تاريخ البداية] And [ادخل تاريخ النهاية]

أخي الكريم لو استخدمت خاصية البحث في المنتدى لو جدت الكثير والكثير لطلبك .... تفضل

وفيك بارك ... حياك الله

تفضل .... النماذج.accdb

مشاركة مع اخي الاستاذ @ناقل تفضل -------->>>>>> can.accdb

يبدو اني طالب متأخر واعتذر منك استاذي الفاضل ماشاء الله تبارك الله ....كالعادة افكار مليئة بالفوائد .... جزاك الله خيرا

تاكد اخي من ملف المعلمين لا يعمل ثم تابع وناقش هنا موضوع للاستاذ @أبو إبراهيم الغامدي

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

فكر في هذا !!!! لربط جداول المعلمين والطلاب ؟؟؟؟

هذا القالب تختلف عن القالب الاساسي الذي تم العمل عليه ..... انظر اذا كل ماهو عليك هو تعديل هذا السطر لديك لاحظ بارك الله فيك موقع لصق البيانات كان C5 objWorkbook.Sheets(SHEET%).range("c5").CopyFromRecordset RS_STUDENTS الاستبدال يكون بهذا الشكل ولاحظ موقع لصق البيانات اصبح حسب ملفك الجديد C8 objWorkbook.Sheets(SHEET%).range("c8").CopyFromRecordset RS_STUDENTS فقط هذا كل شيئ .... ملاحظة يجب ان تكون جميع ملفات الاكسل ( احياء - فيزياء - رياضيات وغيرها بنفس تصميم ملف الرياضيات الجديد اقصد بذلك موقع لصق البيانات اي C8 ارجو اكون وفقت في الشرح !!!

الحقيقة لا ادري ولكن الكود يعمل طبيعي لدي