2saad

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

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

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته كل عام وأنتم بخير وبصحة وعافية في الملف المرفق عند فتحه يظهر نموذج عند الضغط علي زر التقارير ثم اختيار الفصل الدراسي ( مثلا الفصل الدراسي الثاني ) ثم الصف مثلا ( الصف السادس ) ثم اختار جميع ( 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