كل الانشطه

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

أنا في خدمتك استاذي 1) سوف أقوم بلصق الباركود لكل طالب على دفتره الامتحاني لذا أحتاج تحت كل اسم طالب باركوده الخاص به لكي اعرف لمن هذا الباركود قبل ان الصقه على دفتره الامتحاني للعلم اكثر أنا اشتريت ورق A4 سيتكر لاصق مقطع وجاهز سوف أقوم بطباعه الباركود على هذا النوع من الورق 2) اما فائدة الاقواس هي تحويل الرقم والنص إلى خط باركود يقرأ بالجهاز اتمنى الشرح والتوضيح والهدف واضح

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

تم استاذي ان تكون الصوره رقم واحد نفس صوره رقم اثنين

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

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

السلام عليكم ورحمة الله وبركاته 1) أحتاج عمل كيوري جديد بناء على Query5 يتضمن عمود اسم الطالب St_Name اولا ثم اسفله الباركود Barcode شرح اضافي يكون الترتيب افقي وليس عمودي بالاول الاسم واسفل كل اسم الباركود بدل ان يكون بجانبه وكما مبين بالصوره رقم واحد أولا ثم اسفله رقم اثنين 2) إضافة قوسين للباركود مثلا 5640ARA يصبح تلقائيا بين قوسين (5640ARA) باركود نهائي مرتب المواد والشعب والطلاب.accdb

للرفع

فنان ومبدع استاذي شكرا جزيلا

السلام عليكم محتاج معادلة لاحتساب حالات معينة دون اخرى وكما موضح بالملف المرفق مشكورين معادلة لاحتساب من وقت الخروج والدخول.xlsx

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

جزاك الله خير بديع - ممتاز - اشكرك على جهودك واهتمامك تسلم

هل الدالة iif هي السبب ؟ علما انها مستخدمة في الاستعلام qry_master بنفس الوظيفة بالضبط ولم يظهر فرق في السرعة

اخي الكريم @Foksh تم ادراج ايام الحضور في جدول الطلاب ( فقط الصفوف الاولية للنصف الثاني) تم اعداد وضبط درجات الطلاب للفصلين الدراسيين حسب الشروط والمعطيات المطلوبة والنتيجة ممتازة 100% مشكلة التأخر لا زالت موجودة رغم اني فصلت النصف الأول عن النصف الثاني يوجد استعلامان : Query1 و Query2 الاول للنصف الأول والثاني للنصف الثاني هذان الاستعلامان هما اللذان سيتم الحاقهما بالجدول tbl_Temp الاستعلام Query1 اظن انه يفتح عادي ولا يوجد تأخر يذكر تكرما اطلع على هذين الاستعلامين خاصة Query2 .. اتمنى تكتشف سبباً لهذا التأخر Database67.rar

طيب يا استاذى القدير واخى الغالى الحبيب @Foksh شوف يا فؤش افندى هو كان فى موضوع سابق وكنت قدمت الحل فيه بما يتناسب مع السؤال المطروح تماما أنذاك شوف المرفق ده وشوف الدلع الاكواد بتعمل لك كل اللى نفسك فيه وانا عدلت القاعدة بشكل اكثر احترافيه من وجهة نظرى المتواضعه بعمل جدول للشعب المميزات امكانية تعديل ارقم المعرف للمواد الدراسية أو للشعب وفق رغبة المبرمج او المستخدم من داخل الجداول وفورا يتم استخدامها داخل الاستعلامات كود ابن حلال وناصح واهم ما يميزه الاستغناء عن دوال Switch , IIf الا ان اللهم تم استخدام دالة Switch بابسط حالتها لانه لا نريد أكثر من ذلك ولا أقل >>---> لحقل الترتيب الخاص بنوع الجنس : Switch([St_Sex]="ذكر",1,[St_Sex]="انثى",2) باركود نهائي (2).accdb

والله قدمت لي الكثير ادعو من الله ان يسعدك ويرزقك راحة البال ويحقق كل امانيك

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

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

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

أخي الكريم ، بداية تم اضافة حقل 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

السلام عليكم ورحمة الله وبركاته يرجى ان يكون ترتيب عمود (St_Name) في استعلام (Query4) مثل ترتيب عمود (St_Name) في جدول (TblStudent) وكما موضح في الصورة شرح بطريقة ثانية للتوضيح ان يكون عمود الاسم في صوره رقم واحد مثل عمود صوره رقم اثنين باركود نهائي.accdb

طيب انا عن نفس فى الحجات اللى زى دى مش بحب اترك مربعات النص عرضه للتعديل اذ ربما يتم تغير البيانات عن طريق الخطا لذلك اقوم بتأمين مربعات النص ضد الكتابة من خلال (Locked = True) لمربعات النص طيب التعامل بيكون ازاى وعلشان ما اكتب اكود كتير بحب اضع دائما اسس اتعامل وابنى عليها يعنى انا عن نفسى سوف أضع تأمين لمربعات النص سوف اعرف ثوابت بالشكل التالى Const LOCKED As Boolean = True Const UNLOCKED As Boolean = False وهذا سوف يكون الكود المستخدم خلف زر الامر الخاص بعملية اللصق Dim btnPressed As Control Set btnPressed = Me.ActiveControl ' امسك الزر الحالي قبل ما تروح لمربع النص Me.Weard_ResTxt = "" Me.Weard_OrgTxt = "" Me.Weard_OrgTxt.LOCKED = UNLOCKED ' فك القفل Me.Weard_OrgTxt.SetFocus DoCmd.RunCommand acCmdPaste btnPressed.SetFocus ' رجع التركيز مرة أخري على زر الأمر Me.Weard_OrgTxt.LOCKED = UNLOCKED ' قفل تاني وهذا سوف يكون الكود المستخدم خلف زر النسخ Me.Weard_ResTxt.LOCKED = UNLOCKED ' فك القفل Me.Weard_ResTxt.SetFocus DoCmd.RunCommand acCmdCopy Me.Weard_ResTxt.LOCKED = LOCKED ' قفل تاني MsgOut "تم النسخ"

السلام عليكم عاااااش والله لم يخطر على بالى ان ممكن نرجع الهيلوغريفى ده لعربى وكمان لم يخطر على بالى ابحث عن حل هذه المشكلة الله عليك عاش بجد شوف يا استاذنا الغالى انت لازم تعمل لعنصر التحكم اللى هيتم اللصق له او النسخ منه : SetFocus وده مهم ولابد قبل استخدام الاوامر التاليه DoCmd.RunCommand acCmdPaste أو DoCmd.RunCommand acCmdCopy مفيش حاجه اسمها على نسخة الأوفيس 365 أن هذولا السطرين ما يشتغلوا يعنى بالنسبه لمثالك بكل بساطه ده شكل كود النسخ Me.Weard_ResTxt.SetFocus DoCmd.RunCommand acCmdCopy MsgOut "تم النسخ" وده شكل كود اللصق Me.Weard_ResTxt = "" Me.Weard_OrgTxt = "" Me.Weard_OrgTxt.SetFocus DoCmd.RunCommand acCmdPaste

آمين آمين آمين والله زادكما الله من علمه وأنزل عليكما بركات من السماء

ايضا من المعوقات لو لاحظت في جميع الاستعلامات التجميعية اعمل حجب لمادة الحضور يعني في الاول والاخير احتساب الحضور كمادة هو سبب المشاكل وازيدك من الشعر بيت اذا ازلناه من المواد سوف نختصر الاستعلامات الجدولية الى 2 بدلا من 3 لأن الثالث صنعناه من اجل عيون الحضور جزاك الله خيرا .. مداخلتك فتحت لنا آفاقا .. فتح الله لك ابواب الرزق