2saad

شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه ممكن بعد إذن حضرتك أعرف عملت ايه كي أطبقه عندي علي البرنامج ؟

أخي الفاضل شكرا جزيلا وبارك الله فيك ملحوظة : العملية لم تعمل مع الصف الأول والثاني ممكن شرح بسيط

شكرا جزيلا أخي الفاضل علي ردك عند وضع نفس المادة ( Sdays ) في جدول Tbl_degree_Detail الذي يتم تخزين الرصد فيه ثم الرجوع الي فورم ادخال الدرجات واختيار الفصل الدراسي الثاني والصف والمجموعة ثم اختيار المادة Sdays لرصدها عندما اكتب الدرجة تأتي رسالة (القيمة أكبر من المقرر) وأنا محتاج الدرجة عند رصدها لا تزيد عن 200saad-1.rar

شكرا لرد حضرتك أخي الفاضل الملف المرفق عند فتحه يظهر نموذج به عدة اوامر منها زر باسم ادخال الدرجات عند الضغط عليه يظهر نموذج ادخال درجات باختار الفصل الدراسي ( مثلا الفصل الدراسي الثاني ) ثم اختار الصف ثم اختار المادة تظهر قائمة بالمواد باختار المادة المطلوبة للرصد . المطلوب محتاج ادراج مادة ( أيام الحضور ) ليتم رصدها بحيث النهاية العظمي للمادة 200

أنا متأكد منه

والنهاية العظمي للمادة 200

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج اضيف مادة جديدة ( ايام الحضور ) في الصف الأول والثاني في الفصل الدراسي الثانيsaad.rar كيف اضيف المادة الجديدة في جدول Tbl_materil

اخي الكريم ممكن لينك طباعة تقرير مصمم علي a3 الي ورقة a4

شكرا جزيلا أخي الفاضل وبارك الله فيك بحق هذه الأيام المباركة

صورة مرفقة لتوضيح المطلوب

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته كل عام وأنتم بخير وبصحة وعافية في الملف المرفق عند فتحه يظهر نموذج عند الضغط علي زر التقارير ثم اختيار الفصل الدراسي ( مثلا الفصل الدراسي الثاني ) ثم الصف مثلا ( الصف السادس ) ثم اختار جميع ( chek ) ناجح - ناجحة -له دور ثاني -لها دور ثان -غ ثم نضغط علي زر ( النتيجة النهائية عليا ) يظهر تقرير النتيجة . المطلوب تطبيق هذا الكود علي عمود ( ruslt ) في التقرير في الطباعة Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim x, y, rid As Single x = Me.ruslt.Left + Me.ruslt.Width / 2 y = Me.ruslt.Top + Me.ruslt.Height / 2 rid = Me.ruslt.Width / 2 If Me.ruslt = "(غ)" Or Me.ruslt = "له دور ثان" Or Me.ruslt = "لها دور ثان" Then Me.FillColor = RGB(238, 198, 211) Me.FillStyle = 0 Me.Circle (x, y), rid, RGB(256, 0, 0), , , 1 End If End Sub 2استدعاء الغائب وله دور ثان.rar

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

شكرا جزيلا أخي الفاضل وبارك الله فيك بعد إذن حضرتك أنا عايز شرح للفكرة لأني بطبقاها علي البرنامج عندي

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار منه التقارير ثم اختيار الفصل الدراسي ( الفصل الدراسي الأول او الثاني ) كيف اجعل الفصل الدراسي الأول أو الثاني يظهر في التقرير مباشرةالبحث وتعديل درجات10-1.rar

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

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته محتاح اعدل في هذه الدالة بحيث تشمل (له برنامج علاجي أو لها برنامج علاجي أو (غ) ) بدلا من (غ) فقط أنا حاولت واستعملت ( or ) ولم تنجح معي Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'me.Circle (x,y),rid,col,,,ascp Dim x, y, rid As Single x = Me.ruslt.Left + Me.ruslt.Width / 2 y = Me.ruslt.Top + Me.ruslt.Height / 2 rid = Me.ruslt.Width / 2 If Me.ruslt = "(غ)" Then Me.FillColor = RGB(238, 198, 211) Me.FillStyle = 0 Me.Circle (x, y), rid, RGB(256, 0, 0), , , 0.2 End If End Sub

بارك الله فيكما وأكثر الله من أمثالكم وجعله في ميزان حسناتكما وزادكما الله من علمه

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

إخواني الأعزاء اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق عند فتحه يظهر نموذج بختار تقارير ثم بختار منه الفصل الدراسي الثاني ثم بختار الصف مثلا ( الخامس ) ثم هناك قائمة منسدلة مكتوب فوقها ( النهائي ) بختار منها ما اريد تصفيته في النتيجة ثم بضغط علي زر ( النتيجة النهائية / عليا ) يظهر فيه تقرير بما اخترته المطلوب عايز يظهر في التقرير ( له دور ثان - لها دور ثان - غ ) في تقرير واحد البحث وتعديل درجات10-1.rar

شكرا جزيلا صديقنا العزيز

السلام عليكم ورحمة الله وبركاته أخبار الملف ايه أخي Foksh

شكرا جزيلا أخي الفاضل

الملف المرفق محتاج نقل البيانات من ملف الاكسيل الي جدول Tbl_student بالاكسسNew folder.rar

شكرا أخي الكريم الصورة السابقة موجودة في الاكسس وليست في الاكسيل

أخي الفاضل شكرا جزيلا علي مجهودك انا طبقت كل ما قلته والحمد لله اشتغل تمام ولكن فيه ملحوظة هو ببيستورد كل الحقول من الاكسيل ولكن عند الترحيل في الاكسس لا يرحل الحقول التي بها مربع سرد وحوار يعني لو عندي حقل به الفرق المدرسية ( الأول - الثاني - الثالث - الرابع وهكذا ) وعملها مرع سرد وحوار في جدول الاكسس بحيث اختار منها لما بستورد البيانات من الاكسيل الي الاكسس لا تترحل الحقول التي بها مرع سرد وحوار انظر الصورة