منتصر الانسي

اعرض الملف لعشاق كرة القدم (ملف أكسل لإحتساب نتائج كأس العالم 2026) رغم أني لا أنشط إلا في منتدى أكسس إلا أني اليوم قررت أن أرفق لكم ملف أكسل جميل كان قد أرسله لي شقيقي الأصغر هشام بعد أن وجده في أحد المواقع الأجنبيه وقام بتعريبه ووضع بعض التحسينات عليه وقد إستأذنته في رفعه إلى المنتدى ووافق بكل سرور كل ما عليكم هو إدخال النتائج في الورقة Match Results وسيقوم أكسل ببقية العمل أرجو أن ينال العمل إستحسانكم وإذا كان هناك أي ملاحظات فلا تتردوا في ذكرها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 04/11/26 الاقسام قسم الإكسيل

اعرض الملف أداة إنشاء المخططات البيانية المخصصة {سلسلة الأدوات المساعدة المخصصة} اقدم لكم اليوم هذه الأداة البسيطة في تصميمها والرائعة في نتائجها في القيام بتمثيل البيانات بمخططات بيانية لإنشاء تقارير رسومية الحقيقة أن هذه الأداة ليست بكفاءة عنصر التحكم Chart ولكنها تؤدي أغلب النتائج المطلوبة في المخططات البيانية البسيطة التي على شكل أعمدة أو خطوط ولا تتطلب أي مهارات للعمل بها قمت بإرفاق ملف أكسس يحتوي على كل ما ستحتاجونه لفهم الأداة وطريقة إستخدامها والإستفادة منها في تطبيقاتكم أرجو أن تنال إستحسانكم وفي إنتظار أي ملاحظات أو أخطاء قد يجدها البعض تحياتي صاحب الملف منتصر الانسي تمت الاضافه 04/11/26 الاقسام قسم الأكسيس  

ولكن مالغاية من هذا ؟؟؟ في كل الاحوال فنحن يمكننا معرفة إصدار (قاعدة البيانات فقط) عن طريق الأمر CurrentProject.FileFormat وعندها يمكننا التفريق بينها بواسطة عبارة Select التالية Select Case CurrentProject.FileFormat Case acFileFormatAccess2 dbVersion = "Microsoft Access 2.0" Case acFileFormatAccess95 dbVersion = "Microsoft Access 95" Case acFileFormatAccess97 dbVersion = "Microsoft Access 97" Case acFileFormatAccess2000 dbVersion = "Microsoft Access 2000" Case acFileFormatAccess2002 dbVersion = "Microsoft Access 2002 - 2003" Case acFileFormatAccess2007 dbVersion = "Microsoft Access 2007 - 2016" Case Else dbVersion = "إصدار غير معروف" End Select ولمعرفة إصدار أوفيس (الحالي) يمكن إستخدام الامر Application.Version ونفرق بينها بعبارة Select التالية Select Case Application.Version Case 16 officeVersion = "Office 2016 / 2019 / 2021 / Microsoft 365" Case 15 officeVersion = "Office 2013" Case 14 officeVersion = "Office 2010" Case 12 officeVersion = "Office 2007" Case 11 officeVersion = "Office 2003" Case Else officeVersion = "إصدار غير معروف" End Select لا أدري إذا ما ستساعدك هذه المعلومات للوصول للنتيجة المطلوبة

للتوضيح هل تقصد الإصدار الذي تم إنشاء التطبيق فيه أم الإصدار الخاص بالمستخدم؟ فمعرفة الإصدار الذي تم إنشاء التطبيق فيه لا أرى أي حاجة إلى معرفته فما الذي سيفرق سواء عرفنا أم لم نعرف إصدار الإنشاء؟

تفضل التعديل استوك2.accdb

السبب هو أنك جعلت مصدر بيانات النموذج الرئيسي نفس الجدول r وحددت الحقل Items كمصدر بيانات لمربع التحرير والسرد لذلك عند إختيار العنصر من القائمة يتم إضافة سجل جديد يتم تعيين قيمة لحقل العنصر فقط وعند إدخال البيانات في النموذج الفرعي يتم إضافة السجلات الأخرى ستجد الحل في الملف بعد تعديله ضمن المرفق تلميح الحل راجع مصدر بيانات النموذج الرئيسي ومصدر تحكم مربع التحرير والسرد في النموذج الرئيسي وحقلي إرتباط النموذج الرئيسي مع الفرعي استوك2.accdb

تفضل الملف بعد التعديل HB1.accdb

تم إضافة رسائل تنبيه dbexample.mdb

قمت بتعديل الملف وان شاء الله يكون هو المطلوب SaadPermissionsLast.rar

تفضل جرب التعديل المرفق dbexample.mdb

تم رفع إصدار محدث من الأداة حيث تم تحسين طريقة العرض حتى يسهل العمل مع جمل Sql بحيث أصبحت تظهر بشكل منسق كما بالصورة

غيرت الإسم فقط 😅 وصلت لنفس النتيجة أي أنه في الحالتين لم يتم إسترجاع الوحدات النمطية ولكن في المجمل فإن إسترجاع النماذج والتقارير شيئ ليس بالقليل وياريت تشاركنا بالطريقة

لو اجريت عملية بحث بسيطة كنت ستجد أكثر من موضوع خاص بـ QRCode وهذا أول موضوع ظهر لي

على فكرة إصدارات الأوفيس كانت تتغير كل سنة فمثلا 2003 كان الإصدار Office 11 وفي 2007 أصبح Office 12 وهكذا وحتى 2013 ولكن إبتداء من 2016 كله أصبح Office 16 وهذا مانجده في المراجع كما بالصورة

بصراحة أعتبر هذه النتيجة بحد ذاتها إنجاز المثال السابق كنت قد وضعت كلمة سر للتعليمات البرمجية ولكن كيف ستكون النتيجة إذا ماجعلناها بدون تأمين؟ هذا نفس الملف ولكن بدون تأمين للتعليمات البرمجية Mont_ProgressBar.rar

انا حسبت الموضوع واحد من التحديات الخاصة بك 😅 365 الاصدار 64

وهذه مواضيع سابقة في المنتدى يمكن تقدر تحلها

قمت بتحويل إحدى الأدوات التي رفعتها للمكتبة شوف إذا بتقدر تفكها تحدي فتح ملف ACCDE.rar

اعرض الملف أداة عرض وتحرير جمل Sql داخل التطبيق {سلسلة الأدوات المساعدة المخصصة} اقدم لكم اليوم أداة ستزيد من إنتاجيتكم أثناء العمل مع الإستعلامات فبدلاً من العمل مع الإستعلامات من خلال جزء التنقل ستقوم هذه الأداة بتجميع جميع الإستعلامات داخل مربع قائمة والجميل أنه لن يتم تحميل القائمة إلا بالإستعلامات التي تم تحديد نوعها فمثلاً تريد العمل مع إستعلامات التحديث فقط أو الإلحاق فقط وهكذا بالإضافة إلى هذا يمكنك تصفية النتائج من خلال كتابة عبارة نصية تتضمنها جملة Sql فمثلاً تريد الإستعلامات التي تتضمن بيانات جدول محدد فيكفي أن تكتب إسم الجدول في مربع التصفية ليتم تصفية الإستعلامات التي تتضمن هذا الجدول فقط وكمثال رائع آخر وأعتقد أن جميعنا سيعجب به إذا قمنا مثلا بتعديل إسم عنصر تحكم في نموذج وسبق أن تم وضع عنصر التحكم هذا كمعيار لتصفية إستعلام أو أكثر فيمكن كتابة إسمه في مربع التصفية ليتبقى لدينا الإستعلامات التي ذكر فيها إسم عنصر التحكم هذا لا وأزيدكم من الشعر بيت يمكنكم بعد ذلك إستبدال إسم عنصر التحكم هذا بالإسم الجديد وإستعراض النتائج في إستعلام مؤقت وإذا نجح العمل يمكنك تحديث جملة Sql الخاصة بالإستعلام المحدد بالتعديلات الجديدة وهذا كله عن طريق الأداة وبدون حتى أن تضطر إلى فتح الإستعلام في وضع التصميم يوجد للأداة وظيفة أخرى وهي تعديل جملة Sql الخاصة بعناصر التحكم (مربعات التحرير والسرد ومربعات القائمة) وتقوم بنفس ماسبق ذكره ولكن على عبارة Sql لمصدر الصف الخاص بعنصر التحكم الأداة بسيطة ولا تحتوي إلا على ثلاثة نماذج فقط ستجدونها في المرفق بإسم القالب يمكنكم إستيرادها إلى تطبيقاتكم والعمل بها بكل سهولة ولكن الخيار المفضل لدي هو إستخدامها كوظيفة إضافية وهي ما ستجدونه داخل مجلد الوظيفة الإضافية مع مستند يشرح طريقة تثبيتها أرجو أن تجدوا في هذه الأداة الفائدة التي وجدتها أنا شخصيا وإذا كان لدى أي أحد منكم أي ملاحظات فالرجاء أن لا يبخل علينا بها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 04/01/26 الاقسام قسم الأكسيس  

مرفق لك الملف بعد التعديل M.mdb

اخي العزيز مسألة أتمتة الأعمال اليدوية لن تكون صحيحة 100% فأنت لن تضمن الأخطاء (أو كما تقولو في مصر الإفتكاسات 😅) البشرية لذا أذا رأيت أن هذا الحل سيؤدي الغرض ويمشي العمل فعليك إعتماده ومواجهة أي مشاكل قد تظهر لاحقاً وإجراء التعديلات في حينها

تم تحديث الأداة مع إضافة هذا الخيار

هذا لأنك أدخلت السجل بدون أن تدخل التاريخ قمت أنا بإضافة سجل جديد بالرقم 110001 وعندما رجعت للجدول وجدت أن حقل التاريخ فارغ قمت بإدخال تاريخ اليوم ثم قمت بفتح النموذج وأضفت سجل وحددت الرقم 2 فقط فتم تعديله إلى 110002 آلياً كما بالصورة لا تنسى بأن الكود يقوم بإستخراج أحدث تاريخ ثم إستخراج آخر رقم تم إدخاله في هذا التاريخ ليتم الإعتماد عليه أي أنه يعتمد على التاريخ أولاً ثم على أخر رقم في هذا التاريخ لمعالجة المشكلة قمت بتعديل النموذج ليتم تعيين تاريخ اليوم لأي سجل جديد جربه الان وتأكد من النتائج Lab.rar