Foksh

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. مختبر ، وكيميائي ، وتفاعلي .. وفي آكسيس !!!! نعم أخي الكريم .. هل كنت تتصور أن آكسيس يمكن أن يكون مختبرك الكيميائي الرقمي التفاعلي بصورة لم تخطر على بالك !!! بفضل الله عز وجل وكرمه . تم الإنتهاء من تصميم هذا المختبر الرقمي في آكسيس . وهو قاعدة بيانات تعليمية تفاعلية تختص بكيمياء العناصر الذرية التي درسناها جميعنا .. نتعرف على مكونات و وظائف المختبر :- 1️⃣ عند فتح المشروع ستلاحظ أن جدول العناصر الدوري موجود أمامك بكامل العناصر الذرية الـ 118 . 2️⃣ قم باختيار اي عنصر بالنقر نقرة واحدة على مربعه . وستلاحظ معلومات غنية بالتعريف عن هذا العنصر . اسمه ورقمه الذري . من اكتشفه وفي أي عام . درجة الحرارة التي يغلي عندها أو ينصهر . كثافته .. توزيعه الإلكتروني ... وحتى أين يتواجد هذا العنصر ... إلخ 3️⃣ يمكنك عرض / إخفاء الجزء الذي لا ترغب بعرضه . 4️⃣ يمكنك عرض العناصر بفلترة تصل الى 10 فلاتر عرض حسب تصنيف كل عنصر . 5️⃣ عند اختيار أي عنصر ، ستلاحظ عرض رسومي متحرك تفاعلي لنواة العنصر والإلكترونات التي تدور حول نواته في مجالها الكهربائي . 6️⃣ من خلال زر "اختبار اللهب" ستلاحظ لون اللهب الناتج عن هذا العنصر عند احتراقه . على سبيل المثال جرب العنصر الثالث Li الليثيوم بالنقر على مربعه ثم انقر زر "اختبار اللهب" 7️⃣ من خلال زر "اصنع تفاعلك الكيميائي" سيتم الإتاحة لك باختيار أي عنصرين تريدهما من الجدول الدوري الذي هو أمامك ( ستلاحظ إحاطة اسم العنصر باللون الأبيض بعد اختياره ) ، ومن ثم نقلك إلى المختبر مباشرة لرؤية نتيجة تفاعل هذين العنصرين عند التقائهما معاً ؛ وهذه الطريقة الأولى . 8️⃣ الطريقة الثانية من خلال الزر "مختبر التفاعلات الكيميائي" حيث سيتم فتح باب المختبر أمامك لاختيار عناصر من قائمتين منسدلتين ، ثم النقر على الزر "ابدأ التفاعل الكيميائي ..." 9️⃣ من خلال الزر "مسابقة المختبر الكيميائي" سيتم فتح نافذة اختبار تفاعلية متعددة المستويات ( مبتدئ ، متوسط ، محترف ) ولكل من هذه المستويات طبيعة أسئلة مختلفة في كل مرة . والإختيار سيكون اختيار إجابة من 4 إجابات . طبعاً كل إجابة صحيحة بـ 10 نقاط من عدد 10 أسئلة . يعني إنت وشطارتك ومعلوماتك 😁 . 🔟 في نهاية الواجهة الرئيسية ستلاحظ ظهور مقترحات ومعلومات عن عنصر عشوائي ، أو عن التقاء عنصرين والناتج لهما ماذا سيكون . كيف تم بناء هذا المختبر ؟ تم جلب كافة المعلومات من الموقع Byjus . طبعاً بعد التدقيق في أكثر المعلومات التي استطعت الوصول لها من عدة مصادر ومراجع . تم تصميم الخلفية المستخدمة للجدول الدوري مقتبسةً من الموقع نفسه ( إقتباساً ) . الحركة الناتجة عن دوران الإلكترونات والتفاعلات الذرية في المختبر ، أو حتى اختبار اللهب ، وحتى مسابقة المختبر ؛ تم بنائها بالاعتماد على عنصر ويب تمت برمجته بلغة :- ( HTML / CSS / JS ) . ويتم إنتاج الملفات داخل المجلد %Temp% وربطها بعنصر الويب داخل النماذج تلقائياً . اضغط مفتاح Win + R في لوحة المفاتيح ، ثم اكتب %temp% وابحث عن ملفات HTML في مجلد الملفات المؤقته ، واستمتع .. كل عنصر كيميائي ( مربع ) سيمثله ( عنصر زر + مربع نص ) خاص بهذا العنصر . وتم الربط بينها داخل الأكواد من خلال الرقم الذري لكل عنصر . اكتشف اسم كل زر ومربع نص ولاحظ نهاية الاسم لكل منهما والرقم الذري للعنصر الذي سيمثلانه هذين العنصرين . أزرار التحكم ( إخفاء / إظهار ) بعض التفاصيل ؛ يمثلها صورتين إظهار واحدة وإخفاء الأخرى لأظهار الحركة On/Off . جميع العناصر في النماذج عبارة عن صورة وليست أزرار ، تم استخدام الحدث عند النقر لها لأداء وظيفتها . والحدث عند تحريك الماوس فوقها لإظهار الماوس بصورة يد . الخطأ وارد عند نقل أي معلومة من مصادر خارجية . لذا التعديل متاح لك أخي المستخدم داخل الجداول (tblCompounds و tblElements ) لأي معلومة تعتقد أنها غير صحيحة . والإستدلال عليها بسهولة من خلال اسم العنصر أو رقمه الذري . فيديو توضيحي لشكل العمل في نهايته التي ستتعامل معها :- ملف المشروع مفتوح المصدر :- Periodic Table.zip

••| قريباً الإصدار الثاني بمميزات جميلة |••

أعلم هذا أخي احمد .. ولكن لو كان كل مقترح نطلبه كإضافة لأي أداة .. فلربما كان لي طلب من مايكروسوفت أن تدعم مثلاً عرض واجهة اكسل أو وورد داخل النماذج أو التقارير .. لكنا قد حصلنا على إضافات مميزة 😉 ثم أنه إن لاحظت فإن عدد الرموز تبارك الله في المرفق الذي أشرت له قد يتجاوز الـ 1000 رمز معبّر .. وهنا سنضطر طبعاً لعرض هذه الرموز مع نظيرها من رقم استدعاء .. وبالتالي تضخيم العمل وتحميله حملاً زائداً عن وظيفته المُصمم لها .

أخي احمد ،، الأداة مفتوحة المصدر ، اصنع منها التعديلات التي تناسبك واحتياجاتك ما تشاء ..

وعليكم السلام ورحمة الله تعالى وبركاته.. الشكر لله وحده .. وأقدّر لك مرورك العطر 💐

هل تم حل المشكلة ؟؟

وعليكم السلام ورحمة الله وبركاته .. بناء على ما فهمته من شرحك . في الوضع الحالي الطالب "أحمد فوزي عبد الهادي وهبة" سيكون ترتيبه رقم 1 في الصف الثالث في التقرير . لأن اسمه يبدأ بالألف المهموزة . وبعد تعديل الاستعلام وبحسب طلبك فإن ترتيبه الصحيح بالفرز الأبجدي سيكون الخامس . كما في الصورة ، فهل هذا صحيح ؟ إذا ، ما سيلزمنا هو نقطة واحدة فقط ، وهي تعديل الإستعلام ليصبح قادراً على عرض أسماء الطلاب بدون التهميز ... إلخ ؛ ليصبح :- SELECT DISTINCT Tbl_student.alsaf_Id, Tbl_fsl.fsl, Replace(Replace(Replace(Replace(Replace(Replace([Tbl_student].[Studentname],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه"),"ى","ي"),"عبد ","عبد") AS StudentName, Tbl_student.gender, Tbl_fsl.fsl_id, Tbl_student.eldina_id FROM Tbl_student INNER JOIN Tbl_fsl ON Tbl_student.fsl_id = Tbl_fsl.fsl_id ORDER BY Tbl_student.alsaf_Id, Replace(Replace(Replace(Replace(Replace(Replace([Tbl_student].[Studentname],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه"),"ى","ي"),"عبد ","عبد"); وأما بخصوص الفرز والترتيب الأبجدي ، فسبق أن قمنا بهذه الخطوة داخل التجميع . لذا جرب انقل الاستعلام الى تقرير rpt_AllSAF ، وشاهد النتيجة إن كانت صحيحة .

1️⃣ تم تعديل وتصحيح بعض الأخطاء التي تمت ملاحظتها بناءً على تجارب الإخوة والأساتذة - مشكورين جميعاً دون استثناء - والتي تتلخص بـ :- تصحيح كود "عرض التصميم" للتقارير أو النماذج . والكثير غيرها . إضافة ميزة التحقق مما إذا كان الأمر مكرراً أم لا ، مع تخيير المستخدم بمتابعة إضافته أو لا .. ملف المشروع مفتوح المصدر :- Menu Builder V.2.zip كملاحظة ، وللحصول على التعديثات الجديدة .. قم بإزالة الإصدار السابق ، وإعادة تشغيل اكسيس واجهة الأداة وحفظها كـ Add-in ..

صديقي بشار ،، القيمة الافتراضية هي قيمة ثابتة تحددها إما من خصائص العنصر داخل النموذج او التقرير. او داخل الحقل في جدول. أو كما كان المقترح باستخدام Dlookup تفضل الملف كتجربة ، وافتح النموذج 0 واختر قيمة . ثم اذهب لنموذجك الصفوف.accdb

العفو أخي أسعد .. وإياكم أخي ، ولكم بمثل ما دعيتم

أهلاً أخي أحمد .. الحل يسير إن شاء الله تعالى .. قبل أمر الطباعة في الدالة ExportToPDF_SmartPrinter .. فقط كل ما عليك هو نقل التركيز الى التقرير . بحيث قم بإضافة السطر التالي قبل أمر الطباعة . DoCmd.SelectObject acReport, reportName, False يصبح الكود كالتالي :- Public Function ExportToPDF_SmartPrinter() Dim reportName As String Dim defaultPrinter As String Dim prt As Printer Dim pdfPrtName As String On Error Resume Next reportName = Screen.ActiveReport.Name If Err.Number <> 0 Then MsgBox "لا يوجد تقرير نشط", vbExclamation + vbMsgBoxRight, "" Exit Function End If On Error GoTo 0 pdfPrtName = "" For Each prt In Application.Printers If InStr(1, prt.DeviceName, "PDF", vbTextCompare) > 0 Or _ InStr(1, prt.DeviceName, "Cute", vbTextCompare) > 0 Or _ InStr(1, prt.DeviceName, "Foxit", vbTextCompare) > 0 Then pdfPrtName = prt.DeviceName Exit For End If Next prt If pdfPrtName = "" Then MsgBox "لم نتمكن من العثور على طابعة افتراضية وهمية في نظامك" & vbCrLf & vbCrLf & _ "يرجى تثبيت طابعة مجانية على الويندوز مثل بي دي إف فاكتوريً", vbCritical + vbMsgBoxRight, "" Exit Function End If defaultPrinter = Application.Printer.DeviceName Set Application.Printer = Application.Printers(pdfPrtName) DoCmd.SelectObject acReport, reportName, False DoCmd.PrintOut acPrintAll Set Application.Printer = Application.Printers(defaultPrinter) End Function جرب بنفسك وأخبرني

أخي أسعد ، أكيد يمكن تحقيق مطلبك بسهولة .. تابع معي :- سنقوم بإضافة تجميع جديد لنفس الحقل alsaf_Id الموجود أساساً في ملفك . وهنا سيكون لديك تجميعين لنفس الحقل ، صحيح ؟؟ وسننقل هذا التجميع الجديد ليكون أول تجميع كما في الصورة :- لاحظ انه يوجد تجميعين لنفس الحقل . وهنا نركز قليلاً .. في المجموعة الأولى التي أضفناها وسحبناها لأعلى سلسلة التجميع ، سنقوم بسحب العناصر الخاصة باسم الصف الى القطاع الخاص بها ، ونقوم بتصغير رأس الصفحة الذي أصبح فارغاً ، وسنجعل للقطاع الخواص التالية :- في مجموعة التجميع القديمة ( التي أصبحت الثانية ) اترك العناصر التي باللون الأزرق كما هي ، ولكن سنغير من خصائص هذا القطاع لتصبح :- وكفى الله المؤمنين القتال ملفك بعد التعديل على النموذج نفسه :- emad4.zip

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

حبيبي يا بشار .. الحمد لله كيف رح تغير القيمة الإفتراضية 😅 اذا وضع التصميم مقفل ؟؟؟ إلا إن كان التغيير برمجياً ودون تحديد قيمة افتراضية داخل خاصية القائمة

وعليكم السلام ورحمة الله وبركاته اسمح لي أخي بشار بسؤالك سؤال واحد .. هل القائمة المنسدلة هذه قيمها ثابتة كما في مثالك ؟؟؟؟ برأيي بما انك حددت قيمة افتراضية = نص = لغة عربية فقد تواجه مشكلة في الأجهزة التي لغة الترميز فيها لا تدعم اللغة العربية . هذا من جهة من جهة أخرى اعتقد أنك لو اسندت القيمة الافتراضية الى قيمة رقمية بحيث :- القائمة المنسدلة تتكون من عامودين . حيث الأول رقم فريد والثاني اسم الصف مثلاً وبالتالي سيكون الرقم 1 = الأول على العموم ملفك يعمل عندي بدون مشاكل :-

شكراً لك مرورك أخي منتصر .. يكفيني اعجابك بكلمة واحدة انتظر التحديثات الجديدة .. قد تعجبك 😉

نرجو رفع الملف مرة أخرى والتحقق من عمله .. لأنه لم يعمل على اكسل 2021

اذا تفضل التعديل على نفس التقرير emad3.zip

حتى اختصر عليك التوضيح قليلاً .. هل هذا ما تريده ؟

وعليكم السلام ورحمة الله وبركاته .. انت كتبت عنوان طلبك .. لكنك لم تقم بالتوضيح أخي الكريم !! يعني مثلاً هل الحجز سيكون من خلال المريض نفسه من موقع مثلاً ولا من كمبيوتر وآكسيس ، ولا من ايه بالضبط !!

أخي أسعد ، خانة الرد هذه تتسع لنص يفوق خيالك ، فلا تبخل علينا بالكلمات اعتبر نفسك تحادثنا من خلال كلماتك = اكتب ما تقوله بصوتك وإن شاء الله توصل الفكرة اللي عندك

يعني انت تريد طباعة أسماء الطلاب الذكور أولا لكل الصفوف وبتسلسل من 1 الى نهاية طلاب الصف الأول والصف الثاني للذكور من 1 الى نهاية طلاب الصف الاني ... وهكذا ثم ينتقل الى الإناث بنفس الطريقة !!!!!!! أم ماذا ؟؟؟

ألف سلامة عليك أخي خليفة .. شافاك الله وعافاك 🤲🏻

وعليكم السلام ورحمة الله وبركاته ممكن توضح أكثر 🤔 مع ارفاق ملف إن أمكن

ولكم بالمثل كما دعوتم أخي أسعد 🥰