Foksh

توضيحاً لفكرتي الغير مكتملة للفصل الثاني ، في الاستعلام qry_Temp_term2_Optimized = SELECT qry_Base_Term2_Data.id_student, 2 AS term_Num, qry_Base_Term2_Data.alsaf_Id, qry_Base_Term2_Data.gender1, qry_Base_Term2_Data.hodor, qry_Base_Term2_Data.Darajh, qry_Base_Term2_Data.mada2, qry_Base_Term2_Data.total1, IIf([mada2]<funLwoNesbhTotal(),1,0) AS cntRsob1, IIf([hodor]<funLwoHodor(),1,0) AS cntRsob2, funNesbah([total1],[Darajh]) AS alnesbah1, funTgyemResult_B([total1],[Darajh],[cntRsob1]) AS tgyeem1, IIf([safType]='1', funResult_A2([total1],[Darajh],[cntRsob1],[cntRsob2],[gender1]), funResult_B([total1],[Darajh],[cntRsob1],[gender1]) ) AS hala1 FROM qry_Base_Term2_Data; المبني على الاستعلام qry_Base_Term2_Data = SELECT qry_master.id_student, qry_master.alsaf_Id, qry_master.safType, qry_master.gender AS gender1, Tbl_student.hodor, Tbl_materil_Detail.rmz, Tbl_materil_Detail.rmz2, Sum(Tbl_materil_Detail.Darajh) AS Darajh, Sum(qry_master.mada2) AS mada2, Sum(qry_master.total) AS total1 FROM (Tbl_materil_Detail INNER JOIN qry_master ON (Tbl_materil_Detail.saf_No = qry_master.alsaf_Id) AND (Tbl_materil_Detail.mada_Drjh = qry_master.mada_Drjh) AND (Tbl_materil_Detail.mat_NO = qry_master.madaNum)) INNER JOIN Tbl_student ON qry_master.id_student = Tbl_student.id_student WHERE Tbl_materil_Detail.rmz = 1 AND Tbl_materil_Detail.rmz2 = 1 GROUP BY qry_master.id_student, qry_master.alsaf_Id, qry_master.safType, qry_master.gender, Tbl_student.hodor, Tbl_materil_Detail.rmz, Tbl_materil_Detail.rmz2; طبعاً لم أكمل تلافياً لحدوث تغييرات مستقبلية ، وتوقفت بناءً على ملاحظاتكم أستاذي @ابوخليل ، بعد أن اصابني الصداع 🤯 من قراءة تسلسل الإستعلامات السابقة لتقريب المسافة الزمنية .. Database68.zip

سيب الهزار على جنب كدة ، أعانك الله على :- بانتظارك تفهمني

ايه رأي المهندس @ابو جودي في الكلام ده

انا بس بحط نفسي مكان صاحب الموضوع ، ولما افتح ملف والشرح عنه كلام كبير يبقى حقي أخاف ههههههه واقولك امسكني من ايدي وعديني الشارع يا معلم ,, فهمتني .

ههههههههه رحنا فيها .. وربنا يستر لا بس بجد المرة دي انا مش فاهم الطلب زيك بالزبط هههههه

يا عم انا فاهم عليك والله .. الفكرة بتاعتك من حيث الترتيب حسب المادة بتستخدم دالة مخصصة GetMaterialSortOrder لترتيب ديناميكي ، مش زي فكرتي وغيره من أمور زي مثلاً انه كودك وفكرتك من حيث المرونة والتعديل بتعتمد على دوال يمكن تعديلها بشكل مركزي من خلال الكود . أما فكرتي فبتعتمد على ثابت داخل الاستعلام ، يصعب تحديثه انت أمنتني وانا مش هنكر ههههههه حبيبي وانت عارف معزتك عندي

وعليكم السلام ورحمة الله وبركاته .. ما المقصود بـ :-

😢😢 حاولت معرفة رأسي من قدمي وتتبع المطلوب ، ولكن للأسف أخي الكريم تفتقر الى اسلوب إيصال المعلومة بالشكل الصحيح ، ( خذني في رحابة صدرك ، فوالله ما هي إلا نصائح أخوية ) حاول ترتيب الشرح من الخطوة الأولى بالتسلسل واقسم الشرح الى اسطر حتى لا يتم قراءة المطلوب فقرة واحدة دون تحقيق هدفك في الشرح بانتظار تعديلك للمشاركة بالشكل اللائق ، متأملاً منك العفو إن كان كلامي قد ضايقك

وإياكم اخي الكريم

دي نتيجة الاستعلام في ملفك :- ودي نتيجة الاستعلام في ملفي :- الفرز تم بناءً على أكثر من حقل

طيب يا صديقي .. شوف علي ، احنا رح نتجه الى الاستعلام الداخلي لتحقيق هدفك ، بحيث يكون الإستعلام كالتالي :- SELECT Combined.Barcode, Combined.St_Code, Combined.St_Name, Combined.St_Group, Combined.StudyMaterialsEng, Combined.St_Sex FROM (SELECT St_Code & Switch( [StudyMaterialsEng]="ARABIC","ARA", [StudyMaterialsEng]="ART","ART", [StudyMaterialsEng]="ENGLISH","ENG", [StudyMaterialsEng]="MATH","MAT", [StudyMaterialsEng]="RELIGION","REL", [StudyMaterialsEng]="SCIENCE","SCI", [StudyMaterialsEng]="SOCIAL","SOC", [StudyMaterialsEng]="SPORT","SPO" ) AS Barcode, St_Code, St_Name, St_Group, StudyMaterialsEng, St_Sex, Switch([StudyMaterialsEng]="ARABIC",1, [StudyMaterialsEng]="ART",2, [StudyMaterialsEng]="ENGLISH",3, [StudyMaterialsEng]="MATH",4, [StudyMaterialsEng]="RELIGION",5, [StudyMaterialsEng]="SCIENCE",6, [StudyMaterialsEng]="SOCIAL",7, [StudyMaterialsEng]="SPORT",8) AS MatOrder, [St_Group] AS GrpOrder, Switch(InStr(1,[St_Sex],"ذكر")>0,1,InStr(1,[St_Sex],"أنثى")>0,2,True,3) AS SexOrder, [St_Name] AS NameOrder, 1 AS RecType FROM Query1 UNION ALL SELECT "" AS Barcode, "" AS St_Code, "(" & CalcBarcode & ")" AS St_Name, "" AS St_Group, "" AS StudyMaterialsEng, "" AS St_Sex, MatOrder, GrpOrder, SexOrder, NameOrder, 2 AS RecType FROM ( SELECT St_Code, StudyMaterialsEng, St_Code & Switch( [StudyMaterialsEng]="ARABIC","ARA", [StudyMaterialsEng]="ART","ART", [StudyMaterialsEng]="ENGLISH","ENG", [StudyMaterialsEng]="MATH","MAT", [StudyMaterialsEng]="RELIGION","REL", [StudyMaterialsEng]="SCIENCE","SCI", [StudyMaterialsEng]="SOCIAL","SOC", [StudyMaterialsEng]="SPORT","SPO" ) AS CalcBarcode, Switch([StudyMaterialsEng]="ARABIC",1, [StudyMaterialsEng]="ART",2, [StudyMaterialsEng]="ENGLISH",3, [StudyMaterialsEng]="MATH",4, [StudyMaterialsEng]="RELIGION",5, [StudyMaterialsEng]="SCIENCE",6, [StudyMaterialsEng]="SOCIAL",7, [StudyMaterialsEng]="SPORT",8) AS MatOrder, [St_Group] AS GrpOrder, Switch(InStr(1,[St_Sex],"ذكر")>0,1,InStr(1,[St_Sex],"أنثى")>0,2,True,3) AS SexOrder, [St_Name] AS NameOrder FROM Query1 ) AS SubQuery ) AS Combined ORDER BY Combined.MatOrder, Combined.GrpOrder, Combined.SexOrder, Combined.NameOrder, Combined.RecType; والنتيجة كالآتي .. هل هو طلبك ؟؟ باركود نهائي مرتب المواد والشعب والطلاب.accdb

ولكني أعلم أنك ستصر على فكرتك التي تحققت في الصورة أعلاه ، صحيح ؟؟؟؟؟؟؟؟؟

حسناً ، اذا عرف السبب بطل العجب ، ولكن العجب في الهدف لا يمكن إبطاله .. يا صديقي لم لا نقوم بإضافة حقل جديد في نفس الاستعلام بحيث يحتوي قيمة الباركود لكل طالب موضوعاً بين قوسين !!!!! مع إني لست مقتنعاً بطريقة عملك ، ولكن هذه فكرتي كما في الصورة هل هو يشبه فكرتك التي تريدها ولكن في نفس السطر !!!!!!!

الأمر يسير ان شاء الله ، لكن من باب الفضول ممكن توضح لنا الهدف من كل هذا الإستعلام ؟؟؟؟؟

اتعب قليلاً في توضيح الفكرة من خلال صورة ذات وضوح وشرح أكثر .. لا تستخدم الجوال في التصوير للشاشة بل استخدم مفتاح PrtScr = Print Screen لالتقاط صورة من الشاشة ولصقها في المشاركة أخي الكريم أو أي برنامج محرر صور للتعديلوالشرح والكتابة عليها

كنت قد استغنيت عن الدوال واقحامها في الاستعلامات ، ولكن لا بأس بالمحاولة . مع العلم أن المطلوب لم يتحقق ، قارن بين النتيجة في مرفقي الأخير في الاستعلام Query5 وفي نتيجة مرفقك .

اعتقد هي فعلاً السبب استخدام الدالة IIF داخل GROUP BY هو السبب الأكبر .. شو رأيك أول شي نعمل استعلام تجميعي مبسط بدون دوال ، وبعدين نعمل استعلام نهائي لحساب الدوال من الجدول المؤقت طبعاً هنا رايحين نحسب cntRsob1 , cntRsob2 , alnesbah1 , tgyeem1 , و hala1 بسرعة أكبر من خلال الجدول المؤقت 🙄 برضو ما زلت بفكر بصوت عالي ، ولكن هو احد الإحتمالات

نسأل الله أن يمد في عمركم ، وأن يرزقكم الصحة والعافية ، ويسعدني كثيراً أن أترك انطباعاً له دلالة كبيرة على طيبكم ومنبعكم

لا شكر على واجب ,, هذا أقل ما يمكنني تقديمه في هذا الصرح الكبير

أخي الكريم ، بداية تم اضافة حقل St_Sex في جدول الطلاب ،وتمتعيين القيمة للذكور والإناث ،وعليه جرب هذا الاستعلام :- SELECT St_Code & Switch( [StudyMaterialsEng]="ARABIC","ARA", [StudyMaterialsEng]="ART","ART", [StudyMaterialsEng]="ENGLISH","ENG", [StudyMaterialsEng]="MATH","MAT", [StudyMaterialsEng]="RELIGION","REL", [StudyMaterialsEng]="SCIENCE","SCI", [StudyMaterialsEng]="SOCIAL","SOC", [StudyMaterialsEng]="SPORT","SPO" ) AS Barcode, Query1.St_Code, Query1.St_Name, Query1.St_Group, Query1.StudyMaterialsEng, Query1.St_Sex FROM Query1 ORDER BY Switch( [StudyMaterialsEng]="ARABIC",1, [StudyMaterialsEng]="ART",2, [StudyMaterialsEng]="ENGLISH",3, [StudyMaterialsEng]="MATH",4, [StudyMaterialsEng]="RELIGION",5, [StudyMaterialsEng]="SCIENCE",6, [StudyMaterialsEng]="SOCIAL",7, [StudyMaterialsEng]="SPORT",8 ), [St_Group], Switch( InStr(1, [St_Sex], "ذكر") > 0, 1, InStr(1, [St_Sex], "أنثى") > 0, 2, True, 3 ), [St_Name]; الإستعلام Query5 هل يلبي مطلبك ؟؟ باركود نهائي.accdb

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

العفو منك يا معلمي ،، أنا أتعلم منك ومن خطاك صدقني ،، ولكن لنفكر بصوت عالٍ قليلاً قبل خروجي من العمل ,, في الجدول المؤقت وبعد إعداد النتيجة ، سينتج تقريباً 2250 سجل ( صحيح ؟ ) لو جأنا لفلترة الحقول بحيث :- الفصل الأول ، الصفوف الدنيا ، الصف الأول ، الذكور ، الحالة = غ فأن عدد السجلات سيكون في الجدول 92 سجل ، بينما عند فتح التقرير وفي مربع الإخصاء للبنون = 93 . وكذلك الأمر بالنسبة للبنات حيث النتيجة في الجدول 89 ، وفي التقرير = 90 . وفي الجدول عند الفرز للفصل الثاني كانت النتيجة = البنون 92 في الجدول وفي التقرير = 93 ، وللبنات في الجدول = 89 وفي التقرير = 90 أي بفارق واحد لا اعلم ان كان هناك شروط أخيرى للفلترة .. وعليه نستطيع باستخدام Dcount في مصدر بيانات مربعات النص جلب العدد الذي نريده دون أي دوال في الاستعلامات .. هذه فكرتي وملاحظاتي التي لا تقلل من جهدكم وعملكم ..

😉 هي كانت مجرد صرخة لفكرة في رأسي ههههه . ولكن إن أتيحت لي الفرصة لتجربتها فليس لدي مانع طبعاً .. وما خطر ببالي وقتها هو لماذا لم يتطرق لاستخدام DoCmd.RunCommand acCmdPaste أو DoCmd.RunCommand acCmdCopy 😁

ما شاء الله ، ما شاء الله .. فكرة جميلة جداً أبدعت مهندسنا الغالي على هذه التحفة الجميلة ، وفعلاً قد يحتاجها الكثيرين ممن لا يعرفون كيفية التعامل مع لوحة المفاتيح عند النسخ واللصق للنصوص العربية .. عندي اقتراحين لا ينقصان من قيمة العمل شيئاً .. 1. يكون في زر لمسح المربعات النصية ، وخصوصاً بعد ان تم أخذ النتيجة وطبعاً لن أحتاج إلى اغلاق وفتح النموذج مرة أخرى .. 2. توظيف htmlfile للنسخ واللصق ، هل سيدعم جميع الأنظمة من نسخ ويندوز ؟؟ أما خلاف ذلك فالفكرة جميلة جداً

اعتذر منك ، فلم استفهم المشكلة وليس لدي حل 😃