2saad

شكرا جزيلا أخي الفاضل عند فتح الملف تأتي هذه الصورة وتستمر كثيرا دون فتح الملف ( نسخة 32 )

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

شكرا جزيلا أخي الفاضل لو تكرمت ممكن أي كود يفي بالغرض

شكرا جزيلا أخي الفاضل الملف المرفق saad.xlsx الترتيب بناء علي العمود الملون باللون الأصفر بالملف المرفق

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج اعدل في هذا الكود بحيث يتم الترتيب رقم 1 أولا ثم رقم 2 بدلا من الذكور أولا ثم الإناث lr = Cells(Rows.Count, 2).End(xlUp).Row ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Clear ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("H3:H" & lr) _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("C3:C" & lr) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("الصف الثالث").Sort .SetRange Range("B3:Q" & lr) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

شكرا أخي الفاضل أبو جودي وبارك الله فيك

شكرا جزيلا لكما وبارك الله فيكما

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

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

أخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق هو لتشغيل الصوتيات عمل الأستاذ القدير ( أبو جودي ) ادام الله عليه الصحة والعافية وعلي جميع الأعضاء محتاج نقل النموذج الي برنامج . كيف ؟ Digital Player App.zip

رقم الهاتف تبعي ***** اضفني علي الواتس

شكرا جزيلا أخي الكريم علي اهتمامك ما الجداول التي تحتاجها أخي الكريم ؟

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

بارك الله فيك أخي الفاضل وأكثر الله من أمثالك تمام

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

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

شكرا جزيلا تم التعديل

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

هي فكرة جميلة جدا عملت توفير جامد بصراحة ووفرت عدة تقارير وعدلت عند فتح الصفحة في التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim i, ii As String If Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 1 Then i = "الدور الأول" Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i ElseIf Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 2 Then i = "الدور الأول" Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 1 Then i = "الدور الثاني" Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 2 Then i = "الدور الثاني" Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i Else Me.tsmya1.Caption = "." Exit Sub End If End Sub بحيث اميز بين الذكور والإناث تظهر بالشكل ده

لا ليس المقصود أنا عايز اعرف ازاي حذفت المفاتيح من qry_Temp في التقرير بتاع المنقولين للصف الأول الإعدادي في الملف السابق

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

شكرا جزيلا أخي الفاضل تمام ربنا يبارك فيك نفس اعرف ازاي جعلت qry_Temp في التقرير من غير مفاتيح مع انه في الجدول فيه ثلاث مفاتيح

أخي الفاضل شكرا جزيلا علي الأداة الجميلة كيف أضيف الأدارة لمشروعي ؟ آسف كيف أضيف الأداة لمشوعي ؟

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك وزادك الله من علمه ساجرب وأوافيك بالنتيجة

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