ابو جودي

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

طيب انا فعلا والله مش فاهم حاجه يا استاذ @محمد119900 يعنى ايه عدد الاعمده ويعندى ايه عدد الصفوف تقصد انك عاوز تعمل تقرير يكون شبه ملف الـ PDF انت بجد لازم تشرح اكتر ايه الهدف تحديدا اللى عاوز توصل له ايه المعطيات ايه الـ المدخلات و التحققات

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

اخى الحبيب انا امزح اسال براحتك وادخل المنتدى واعمل اللى انت عاوزه زى بيت اخوك انا بس بأحب امرزح وأهزر مع اخوانى

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

ايه ده الراجل ده اقسم بالله جاب لى حول فى المنتدى حاسس مش عارف واللا بيتهيألأى فى تكرار فى الطلبات والا انا اللى نايم واللا ايه مين الشبح ده كل شويه اشعارات بموضوعات باسمه أنا دوخت وفصلنى يا فؤش خلاص كده والمشكله انى مش عارف افهمه حاسس ان معدل الغباء عندى زاد والله هههههههههه ابشر انتو هتشوفوا معايا ايام هناء وسرور وسعاده

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

منا قلت لك انا مرتب المواد داخل الجدول بترتيب غيرك طيب مبصوط كده يا فؤش افندى انا قلت لك الحل نظرى وانت اللى مش مقتنع اقتنعت يا فؤش أفندى والله بحبك فى الله اعمل ايه بس مأقدرش على زعلك أبدا باركود نهائي (3).accdb

قولى ايه الفرق فى النتيحة هى هى على فكره الفرق ان انا عملت الترتيب مثل النموذج تماما ووفقت ترتيب النموذج الاسم والمواد وفقت تريب النموذج لكن لو عاوز نفس ترتيبك بالظبط ادخل على الاستعلام الثانى وبدل الحقول ولا تنسي ترتيب المواد فى الجدول انا اعتمد على الجداول من خلال الكود يا افندم وبعدين وفق الترتيب اللى تريده فقط من الاستعلام هتحصل على نفس نتيجتك يا حبيب الملايين بدون اى تدخل فى الكود

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

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

هههههههههه طيب UP حاسس انى فى صحرا ومفيش غير صدى صوتى بس فين الناس فين الأفكار انتوا فاكرين انى هزهق وراكم وراكم كل يوم اعمل لكم رفع للموضوع لحد ما تزهقوا وتشاركوا

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