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

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

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

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

السلام عليكم أخي وأنا آسف لم أبدأ السلام في المشاركة السابقة أنا أضفت الامتداد أخي الفاضل وعند اختيار الملف لم يظهر لأختاره

هل الملف يدعم اكسيل xlsm

ربنا يبارك فيك ويمتعك بالصحة والعافية ويزيدك من علمه

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

up

up

شكرا لكم جميعا وبارك الله فيكم وزادكم الله من علمه ومتعكم بالصحة والعافية