علي المصري

بعد ادخال مخالفتين لطالبين ظهر الشكل التالي بجدول tbl_main لاحظ السجل رقم 19 يليه 20 فارغ والسجل 21 يليه 22 فارغ

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

فكرة ممتازة وسهلة التطبيق إن شاء الله جزاك الله خيرا استاذ أبو خليل

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

بعد إذن الأستاذ أبو خليل تم اجراء بعض الإضافات واللمسات لبرنامج الاستاذ أبو خليل ( برنامج تسجيل ومتابعة مخالفات الطلاب ) ولكن يوجد في التقارير ( أول تقرير احصائية بعدد المخالفات ) عند تشغيله يظهر فارغ لا يوجد به أي أسماء أو اعداد فما الحل استاذ أبو خليل ( اسماء الطلاب للصف Grade 11L والشعبة A , B Wak.New Ali.rar

جرب المرفق التالي 22.rar

بعد تجربة المرفق بعد إذنك تعديل بسيط استاذنا الفاضل في الكود ليصبح كالتالي Private Sub TextBox1_Change() Sheets("Sheet1").Range("B3") = Val(TextBox1) TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub Private Sub TextBox2_Change() Sheets("Sheet1").Range("B4") = Val(TextBox2) TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub Private Sub UserForm_Activate() TextBox1 = Sheets("Sheet1").Range("B3") TextBox2 = Sheets("Sheet1").Range("B4") TextBox3 = Val(TextBox1) + Val(TextBox2) End Sub

تفضل البحث برقم ال ID 22.rar

نعم للأسف حدث خطأ أرجو المعذرة

بعد إذن الاستاذ ياسر يمكن كتابة الاكواد Private Sub TextBox1_Change() Sheets("Sheet1").Range("B3") = TextBox1 End Sub Private Sub UserForm_Activate() TextBox1 = Sheets("Sheet1").Range("B3") End Sub كالتالي Private Sub TextBox1_Change() Sheet1.Range("B3") = TextBox1 End Sub Private Sub UserForm_Activate() TextBox1 = Sheet1.Range("B3") End Sub شكرا

شكرا لك جزاك الله خيرا

جرب المواضيع التالية http://www.officena.net/ib/index.php?s=0b23dc8f6ca784506ae1749bc1bd1b33&showtopic=55469 http://www.officena.net/ib/index.php?showtopic=55251 http://www.officena.net/ib/index.php?showtopic=55353

تفضل المرفق final 14-10new.rar

تفضل المرفق D2.rar

السلام عليكم ورحمة الله وبركاته تفضل استاذنا الفاضل لعله يكون المطلوب

تم التعديل على الملف ومطلوب التجربة ‫sch10 - درجات 2.rar

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

نظرا لعدم وجود روابط بين الجداول تم عمل نموذج لكل جدول ثم دمج النماذج كلها في نموذج واحد اسمه frmData حيث عن طريق القائمة المنسدلة يمكنك اختيار النموذج الذي تريد العمل عليه Data1.rar

شاهد الموضوع التالي http://www.officena.net/ib/index.php?showtopic=55469 http://www.officena.net/ib/index.php?showtopic=55850

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

جزاكم الله خيرا واصلح لكم ذريتكم

مبارك على الترقية استاذ محمد

مبارك إن شاء الله على الترقية راجين له من الله عز وجل التوفيق والسداد وربنا ما يحرمنا من معادلاتك

جرب واكتب اسم المادة امام كل كعلم من المعلمين المشتركين لنفس الفصل ( كيمياء / فيزياء ) وشوف النتيجة

جرب التالي ' Application.ScreenUpdating = False 'اخفاء الصفوف الفارغة Selection.AutoFilter ActiveSheet.Range("$A$10:$BD$128").AutoFilter Field:=1, Criteria1:="<>" With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 2 .FitToPagesTall = 1 On Error Resume Next End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False 'إظهار الصفوف الفارغة Selection.AutoFilter ActiveSheet.Range("$A$10:$BD$128").AutoFilter Field:=1 Range("E18").Select Application.ScreenUpdating = True End Sub