بوب2016

حاضر اخي New student.rar

كود البحث عن الاسم لا يعمل .. عند كلمة اسم التلميذ داخل الكود يعطي لون اصفر في الكود ..لماذا ؟

السادة أعضاء المنتدى الكرام ممكن التصوب لكلمة ( اسم التلميذ) في الكود .. مرسل الملف للإطلاع والإفادة للجميع New student.rar

بارك الله فيك ... هذا الملف أرسلته لأخ فاضل مثلك هنا في الموقع عدل بعض الأخطاء وإرساله لي ولكن لم يفتح معي مثل الأول كما في الصورة 2007

إخوتي في الله عندما أفتح الاكسس لملف معين لا يستجيب هذا الملف تم تعديله و ارسله احد الاحباب هنا بعد تحميله لا يستجيب للفتح

أستاذي العزيز المهندس المحترم / صالح أولا:اشكر سيادتك على مجهودك وتعبك معي ثانيا: عند الفتح تظهر رسالة (لا يمكن التعرف على تنسيق قاعدة البيانات) ولا يفتح الأكسس أشكرك على تعبك معايا

هل يمكن ارفع الملف في مكان واضع الرابط هنا ؟؟ الملف حجمه 1.55 بعد الضغط https://mab.to/V3yW5r3x5 رابط الملف

اخواني في الله اعضاء المنتدى وخبراء الاكسس والله تعبت ثلاث ايام أدور حول صور المشكلة.rarنفسي.... يارب ألاقي الحل ..شرحت المشكلة بالصور..المشكلة الأولى بعمود الإدارة يعطي أرقم بدل من أسماء الإدارة وذلك في جدول ( بيانات المعلم ، بيانات المعهد ) أما جدول ( يعطي اسم إلادارة ) فهو صحيح المشكلة الثانية عند إظهار التقرير يظهر بيانات إدارات في إدارة واحدة .. موضح لسيادتكم بالصور ملحوظة الملف بعد الضغط 1.54 M

كل عاااااااااااااام وانتم بخير جميعا .. عيد مبارك عليكم ومثل الايام العام القادم كلكم تزوروا الرسول الحبيب ( صلى الله عليه وسلم ) وانا معكم

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

السلام عليكم استاااااااااااذي الدكتور الجراح يااااااااسر بك اجدع مفصل اكواد انا هبعت لك الملف اللي في المشكلة ليه الموقع لا يرفع ملف 7 M > امانة عليك تكتب لي الكود عشان الدنيا دخلت معايا في بعضها انا كتبت الكود ده بس متضحك علي ...هههههههههه اخذته بكل ما فيه Sub لجان() 'إلغاء تحديث الشاشة لتسريع عمل الكود Application.ScreenUpdating = False 'مسح نطاق النتائج في الورقة الهدف لوضع البيانات المرحلة مع كل تنفيذ للكود Sh.Range("B14:C300").ClearContents 'حلقة تكرارية من الصف رقم 6 في الورقة المصدر إلى آخر صف For I = 6 To wsLast 'اختبار ما إذا كانت الخلية في الورقة المصدر في العمود الخامس 'تساوي قيمة خلية شرط الترحيل فإذا تحقق الشرط If Ws.Cells(I, 5).Value = Crit Then 'يتم ترحيل البيانات رقم الجلوس والاسم من الورقة المصدر إلى الورقة الهدف 'الجملة تبدأ بالورقة الهدف حيث أول تعامل سيكون مع الصف رقم 14 في العمود الثاني 'لتمديد النطاق ليشمل خلية أخرى في نفس الصف [Resize] وتستخدم كلمة '[B14:C14] أي أنه في أول حلقة تكرارية سيشار إلى الخلايا 'بعد علامة يساوي نساوي قيم الخلايا بقيم الخلايا في ورقة المصدر '[C6:D6] وهنا بعد علامة يساوي نشير إلى الخلايا Sh.Cells(iRow, 2).Resize(1, 2).Value = Ws.Cells(I, 3).Resize(1, 2).Value 'بعد الترحيل يتم زيادة مقدار المتغير بمقدار 1 للانتقال 'إلى الصف التالي وهو هنا في أول حلقة كان الصف 14 فيزيد 'بمقدار واحد ليصبح المتغير بقيمة 15 أي أن التعامل 'في الحلقة التالية سيكون مع الصف رقم 15 لوضع نتائج جديدة iRow = iRow + 1 'نهاية جملة الشرط الذي يساوي الخلية بشرط الترحيل End If 'الانتقال للحلقة التالية أي الصف التالي وهو هنا سيكون 'الصف السابع في ورقة المصدر أي الورقة التي يتم الترحيل منها Next I 'بنفس أول قيمة وضعت له في الكود [iRow] إذا ظل المتغير المسمى 'هذا يعني أنه لم تتم عملية ترحيل واحدة حيث أن المتغير لا يزيد إلا 'إذا تحقق الشرط الموجود داخل الحلقات التكرارية ، ومن ثم فهذا 'يعني أنه لم تتم عمليات ترحيل فنظهر رسالة للمستخدم تفيد بذلك If iRow = 14 Then MsgBox "No Data In This Class", vbExclamation 'استعادة خاصية تحديث الشاشة Application.ScreenUpdating = True End Sub ()لجانSub Sheets("توزيع الشفوي").Range("B5:E295").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("K1:K2"), CopyToRange:=Range("B13:C13"), Unique:= _ False End Sub

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

Sheets("توزيع الشفوي").Range("B5:E295").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("K1:K2"), CopyToRange:=Range("B13:C13"), Unique:= _ False كل الكود ده بالاصفر

اخي الكريم / زيزو .. اولا اسف على الازعاج..هناك مشكلة عندما نسخت ( توزيع الشفوي و شفوي ترم أول ) بكل الابعاد الصفوف والاعمدة الي شيت الكنترول ( 7 M ) لا يعمل التوزيع الا اذا فتح ملف التمهيد معه ..وعندما نقلت ملف التمهيد من الكمبيوتر نهائي لا يعمل التوزيع ..عملت ملف خارجي وجربت لكن كالسابق لا يعمل الا اذا فتح ملف التمهيد مع الشكر لكم جميعا تجربة1.rar تمهيد.rar

الاخ المحترم العزيز / ياسر خليل انا اسف على تعبك معايا ..في مشكلة هنا عندما نقلت الورقتين كما هما بكل الابعاد الي شيت الكنترول لم تستجيب ورقة شفوي دور أول للتغيير الا اذا فتحت حاولت رفع شيت الكنترول كله ..وجدت مساحته7 ميجا