منتصر الانسي

شرفت أخي عبدااله إن شاء الله تنال إعجابك

الأخ @ابو جودي لخص الكلام كله في عبارتين

بارك الله فيك اخي والحقيقة كان كلامك في البداية في محله ونسأل الله الهداية اما عن سؤالك سأقوم بتجزئته إلى جزئين (التوقعات بشأن قواعد بيانات أكسس كإطار عمل) و (التوقعات بشأنه مع تطور الذكاء الصناعي) فيما يخص الجزء الأول من السؤال فبالمناسبة دائما ما يُسأل لي وتكون إجابتي غلى شكل مثال كالتالي تخيل أن لدينا سيارة نقل صغيرة ذات 4 عجلات وشاحنة نقل كبيرة ذات إثنا عشرة عجلة وانت صاحب بقالة صغيرة وأغلب عملك اليومي يقتصر على توريد بضاعة صغيرة (كرتون واحد من كذا صنف مثلاً) فهل سيكون من الأجدى لك إستئجار السيارة الصغيرة أم الشاحنة الكبيرة؟ وهذا هو الحال مع قواعد البيانات (أو بالأصح مع البرامج والتطبيقات الخاصة بقواعد البيانات) حيث سيكون من الأجدى لأصحاب المشاريع الصغيرة إستخدام تطبيق تم تطويره بإستخدام أكسس لأكثر من سبب منها على سبيل المثال لا الحصر: - غالبا من يبدأ بتأسيس المشاريع الصغيرة يكونون من الشباب رواد الاعمال وهذا يعني أنه من الوارد أن يتم تعديل آليات العمل أكثر من مرة حتى يتم التوصل إلى آلية عمل شبه ثابتة ومن هذا المنطلق فأيهما سيكون الأرخص والأكثر مرونة أن يتم تنفيذ التعديل بإستخدام أكسس أم بإستخدام أحد البرامج الكبيرة الأخرى؟ - وحتى لو قلنا أن هذا المشروع قد أنشئ بعد دراسة كافية ووافية ولن يتطلب أي تعديلات (والذي من واقع خبرتي أراه شبه مستحيل) فهل سيتطلب حجم البيانات لمشروع صغير يعمل فيه عشرة موظفين وحجم تعاملاته لاتتجاوز مائة أو مائتين الف دولار شهريا لبرنامج وقاعدة بيانات سيكلف المشروع الاف الدولارات للدعم الفني فقط؟ - أهم مايميز اكسس هو أنها بيئة قواعد بيانات علائقية وهذا يعني أن أسلوب تصميم وبناء قاعدة البيانات فيه هو نفس الأسلوب لتصميم وبناء قواعد البيانات في أي بيئة أخرى وهكذا فعندما يكبر حجم المشروع سيكون من السهل نقل (هجرة) البيانات إلى أي قاعدة بيانات أخرى - في الاونة الاخيرة بدأت مايكروسوفت ببعض الاضافات والتحسينات كما رأينا في إضافة كائن عنصر تحكم متصفح Edge او تحديث عنصر تحكم الرسوم البيانية وكذا محرر الاستعلامات موناكو وغيرها من الاضافات والتحسينات التي سيتم اضافتها في المستقبل وأعتقد أن مايكروسوفت لم تقم بهذه التحديثات إلا على ضوء نتائج دراسة للسوق قامت بها وجعلها تستشعر أهمية هذا التطبيق من أوفيس (المظلوم من حيث التحديثات مقارنة ببقية تطبيقات أوفيس الأخرى) وهذا إن دل على شيئ فإنما يدل على أن هناك توجه كبير نحو العمل بإستخدام أكسس في المستقبل. وفيما يخص الجزء الثاني من السؤال (التوقعات بشأنه مع تطور الذكاء الصناعي) فوجهة نظري أن المبالغة في إستخدامه لن يفيد أحد - الغير فاهم سيخاطر بإستخدام برنامج لايعلم إن كان صحيحاً أم مليئا بالأخطاء والأخطار التي قد يتسبب بها على المدى القريب او البعيد - المبتدئ الذي يريد التعلم لن يتعلم شيئاً فمن خلال رحلة تعلمي لم أجد أفضل طرق للتعلم إلا شيئ واحد هو التجربة والخطأ فإذا لم يمارس المبتدئ العمل بنفسه ويظل يجرب ويخطئ فلن يتعلم أي شيئ - المحترف لابأس في أن يستخدم الذكاء الصناعي للمساعدة في حل جزئية معينة (جزئية وليس الكل) كذلك يمكن إستخدامه للمساعدة في تصور شكل النماذج والتقارير أو إقتراح الخطوط العريضة للبرنامج لإستخدامها للعصف الذهني لإستنباط الأفكار فقط أما أن يستخدمه في إنشاء برنامج من الألف إلى الياء فهذا أنا ضده تماماً. فكما يعلم الجميع فأن كتابة البرنامج من الصفر أسهل من مراجعة برنامج قام به شخص آخر والشيئ الثاني أن قيام المطور بكتابة الكود بنفسه يجعله ملماً بأدق تفاصيله وعند حدوث أي خطأ يكون من السهل معرفة موقعه ومعرفة تأثير التعديل الذي سيتم على الكود لإصلاح الخطأ على بقية الأكواد وحتى ولو إفترضنا جدلاً أن الذكاء الصناعي قام بإنشاء تطبيق صحيح 100% (سواء كان أكسس أو غيره) فهل سيتمكن المطور من حل أي مشكلة قد تظهر في المستقبل؟ وإذا كان يعمل ولم تظهر أخطاء فهل سيكون لدى المطور الذي سيدّعي القيام بالعمل الثقة الكافية فيه أم سيظل حاطط يده على قلبه في إنتظار المكالمة التي تخبره بظهور خطأ ... والا أنتو إيه رأيكو 😅؟

جرب الان ربط 2 كومب بوكس بداخل اتنين نموذج فرعي2.mdb

رائع 👏

كلام يجعلني أعجز عن الرد 😅 قبل فترة كنت قد شاركت في أحد مواضيع المنتدى بمثال لساعتين تعمل بدون إستخدام حدث Timer ولكنهما لم يعالجان هذه المشكلة حاولت البحث عن الموضوع ولم أستطيع الوصول إليه ولكني أحتفظ بنسخة من الملف وسأرفقه هنا وبعد وضع لمساتك الساحرة عليه أعتقد أنه سيكون مثال جميل لإستخدام الساعة كنموذج فرعي أو نموذج مستقل AnalogClockWithoutTimer.rar

كنت على وشك أن أطلب منك تطبيق الحل على مثال لساعة حائطية وجاء الرد قبل أن أطلب رائع 👏👏👏

اعرض الملف لعشاق كرة القدم (ملف أكسل لإحتساب نتائج كأس العالم 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

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