نجوم المشاركات

اعرض الملف ⭐ هدية ~ أداة الحازم في مثبت النواتين لآكسيس 32 و 64 - 2026 ⭐ أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. في هذا الموضوع ، وأعتقد أنه سيكون القبل الأخير لي في قسم الآكسيس . سنتحدث عن فكرة يحتاجها كل مطور يرغب بطوير مشاريعه وحفظها في ملف تنفيذي ولكن بطابع Accde . حيث أن الفكرة والتي قد سبق طرح موضوعها للنقاش في هذا الموضوع هنا ؛ لم تلق استجابةً كما كنت أتوقع ، إلا أنني سأشرح هنا وظيفة الأداة وفائدتها . شرح للفكرة وطريقة العمل قبل التجربة :- يأتي المطور على التعب في تصميم قاعدة بياناته لمشروع ما ، ويقوم بضبط جميع الخصائص والوظائف والأكواد والنماذج والتقارير .... إلخ بشكل جيد على أكمل وجه . فيتخبط بحائط اختلاف النواة والإصدار في بيئة عمل العميل . فهنا سيقوم بسلوك أحد المسلكين :- إجبار العميل على تثبيت نسخة أوفيس مطابقة للنسخة التي تم بناء المشروع عليها . إجبار نفسه على تثبيت نسخة أوفيس وفقاً لحكم العميل بأنه لا يرغب بتحديث نسخته التي نصبها وثبتها ويعمل بها في جهازه . هنا يأتي دوري بهذه الأداة . حيث كل ما عليك هو أن تقوم بضبط مشروعك كما تحب ( من إخفاء واجهة آكسيس ، إلغاء مفتاح الشيف .... إلخ ) وأن تتوقف عند النقطة التي ستقوم بها بحفظ مشروعك بصيغة ACCDE . يعني ادعس فرامل و وقف عزيزي المطور . فكل ما عليك هو أن :- تذهب إلى الأداة المرفقة . تختار منها قاعدة بياناتك الجاهزة . تحدد الأيقونة التي تريدها للإختصار الذي سيتم انشاؤه على سطح مكتب العميل . تحدد اسم الإختصار الذي سيتم انشاؤه على سطح المكتب . تحديد مسار إنشاء الملف الذي سترسله للعميل . ماذا يمكن للأداة أن تفعل ، وما الذي ستقدمه لك كمطور :- تتيح لك تثبيت قاعدة البيانات الخاصة بمشروعك في أي مجلد تحدده . تقوم تلقائياً بإنتاج ملف ACCDE متوافق مع نسخة إصدار أوفيس المثبت على جهاز العميل . تقوم بإنشاء اختصار وبالإسم الذي حددته ، على سطح المكتب . تمكنك الأداة من إدخال كلمة مرور خاصة بك ( وليس العميل ) من خلال النقر على زر المفتاح 🔑 الموجود بجانب زر الإغلاق ، لاستخراج قاعدة البيانات بصيغتها الأصلية ACCDB حتى لو بعد 20 عاماً . وهنا السر العجيب الذي ستستثمره بأنك لن تخسر نسخة العميل الخاصة به وبكامل إعداداته عند عودتك لإجراء تعديلات أو تحديثات أو تطويرات مستقبلاً على سطح مكتبك . مثال توضيحي مصور :- لأي ملاحظة أو استفسار .. باب النقاش مفتوح 🤗 الأداة مبنية بلغة C# فقط . صاحب الملف Foksh تمت الاضافه 10/08/26 الاقسام قسم الأكسيس  

بعد سنوات طويلة من العمل في تطوير تطبيقات الأكسس أصبح لدي مخزون ضخم من التطبيقات والأكواد التي إستفدت منها الكثير علمياً وعملياً فخلال هذه السنوات وعندما كنت أرغب بتعلم جزئية معينة لتنفيذ وظيفة أو مهمة محددة فكنت أقوم بعمليات بحث شاقة ورغم ذلك كنت ألاقي صعوبة في إيجاد ما يمكن إعتباره كحل مستقل بذاتة بحيث يمكنني دمجه بسهوله في تطبيقاتي فإما إنها تكون وظيفة فرعية ضمن برنامج متكامل فتكون مرتبطة بوظائف أخرى ويصبح فصلها عن بقية مكونات البرنامج أكثر صعوبة أو قد أجد لها مثال مستقل ولكنه قد يكون أقل أو أكثر من المطلوب بكثير والمشكلة أن أغلب تلك الحلول تكون في مواقع أجنبية. ونتيجة لكل هذه المحاولات أصبح لدي مجموعة من الأدوات التي غالبا ما أستخدمها في تطبيقاتي منها ماهو من تطوير أشخاص آخرين قمت بالتعديل عليها بالإضافة أو الحذف أو التحسين ومنها ماهو من تطويري أنا وقد قررت مشاركتها معكم رداً للجميل لهذا المنتدى وليكون بمثابة مصدراً عربياً لكل من يبحث عن مثل هذه الحلول من مطوري أكسس أو الراغبين في تعلمه من العرب سواء لحل مشكلة يواجهونها أو لتعلم مهارات وتقنيات جديدة أو للتعرف على إمكانيات البرنامج التي قد لايكونون على علم بها. لهذا قمت بإنشاء سلسلة بإسم {سلسلة الأدوات المساعدة المخصصة} والتي أقوم في كل مرة فيها بإضافة أداه يكون الغرض منها القيام بوظيفة محددة يحتاجها الكثير إن لم يكن كل من يعمل في تطوير تطبيقات أكسس وقد حاولت جاهداً إرفاق كل أداة بتعليمات مفصلة لطريقة عملها وطرق الإستفادة منها مدعمة بأمثلة عملية لإستخداماتها في الواقع العملي . كذلك حاولت أن أجعل طريقة إستخدامها ودمجها ضمن التطبيقات الأخرى على أكبر قدر من البساطة والسهولة فغالباً لن يكون مطلوباً ممن يريد إستخدام أي أداة سوى إستيراد بعض الكائنات وإتباع التعليمات لدمجها في تطبيقاته . وفي الحالات التي تتطلب فيها الأداة إستخدام الأكواد التي تختلف بإختلاف البيانات أو إختلاف ظروف إستخدامها فإنها ستحتوي على منشئ لصيغة الكود الخاص بها وفي كل مرة يحتاج المطور إلى إستخدامها ما عليه إلا إدخال بعض المتغيرات المطلوبة في نموذج مشئ صيغة الكود ليحصل على كود جاهز ليتم نسخه ولصقه في المكان المطلوب كل هذا التبسيط حتى يتمكن أي شخص من دمجها في تطبيقاته بسهولة حتى ولو لم تكن له أي دراية بطريقة كتابة الأكواد ستجدون في هذا الموضوع المتجدد الروابط المباشرة لكل أداة في هذه السلسلة لتسهيل الوصول إليها أرجو أن تجدون فيها الفائدة 1 إستخدام أزرار الأسهم للتنقل في النماذج المستمرة كما في أكسل 2 إنشاء وإدارة الأشرطة المخصصة 3 أشرطة التقدم المخصصة 4 ترقيم صفحات التقرير وفقاً للمجموعات الفرعية 5 تظليل السجل الحالي في النماذج المستمرة 6 تخصيص العلامة المائية للتقارير بطريقتين 7 فتح أكثر من نسخة للنموذج تتفاعل مع النماذج الأخرى 8 إمنح تطبيقك المظهر الإحترافي بإستخدام مربع حوار المهام بديل لـ MsgBox 9 أداة تحويل محرر الأكواد للوضع الداكن Dark Theme 10 أداة إنشاء وتحرير خصائص التطبيق والتعامل معها كمتغيرات عامة 11 أداة تصفية النموذج أثناء الكتابة على أساس أي حقل من حقول النموذج 12 أداة الترقيم التلقائي المخصص - مع مراعاة الأرقام المفقودة 13 أداة تصفية النماذج والتقارير المخصصة 14 أداة إنشاء النصوص ثلاثية الأبعاد 15 أداة تنسيق النص 16 إداة إنشاء تعليمات مخصصة لتطبيقك ليظهر كالبرامج المحترفة 17 احصل على ألوان أكثر بهجة لنماذجك بإستخدام هذه الأداة 18 بهذه الأداة سيتم تخصيص طريقة عرض وطباعة التقارير 19 إداة تخصيص مربع الرسائل MsgBox 20 إجعل مربع القائمة يتناسق مع بقية تنسيقات النموذج بإستخدام أداة مربع القائمة المخصص 21 تحديث لموضوع الحل الشافي لتقارير اكسس 22 أداة تعميم تنسيق النماذج والتقارير 23 أداة إنشاء مربعات التحرير والسرد المتتالية 24 أداة إنشاء كائن الشجرة Treeview المخصصة 25 أداة إنشاء لوحة رئيسية مخصصة 26 أداة تخصيص شريط العناوين للنماذج 27 أداة إظهار الرسائل في منطقة الإشعارات 28 أداة إنشاء صيغة أوامر مربع الرسائل MsgBox القياسي 29 أداة عرض وتحرير جمل Sql داخل التطبيق 30 أداة إنشاء المخططات البيانية المخصصة 31 أداة إنشاء المخططات المخصصة بإستخدام عنصر تحكم المتصفح 32 الأداة المتكاملة لإنشاء وإدارة المخططات البيانية بإستخدام عنصر تحكم المتصفح 33 أداة إنشاء مجموعات الخيارات المخصصة 34 أداة البحث السريع 35 أداة إنشاء الخيارات المخصصة بإستخدام القوائم المختصرة 36 أداة إنشاء زري التدوير SpinButtons المخصصة

السلام عليكم وللفائدة نحن نستخدم هذا البرنامج لتوقيت الحصص يحمله كل معلم على جواله , يرن عند بداية وخروج الحصة لينبه المعلم https://drive.google.com/file/d/1w_1E_Z9f7-wrnqK6p-n_P0nbmZ3qhxWX/view?usp=sharing

اعرض الملف ⭐ هدية ~ أداة حماية الجداول وتحصينها في آكسيس 2026 ⭐ أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. في الموضوع الذي سبق وتم طرحه في هذا الموضوع ، كانت المشاركات بناءة لفتح باب الإبتكار والتطوير وخلق بيئة حماية وحصانة للجداول من خلال ضبط حماية السجلات وتحصينها داخل الجداول عن طريق ماكرو البيانات . والشكر موصول لأخي الأستاذ موسى @Moosak وأخي منتصر @منتصر الانسي ، لمشاركتهما الحديث والأفكار بخصوص هذا الموضوع . وبناءً على الفكرة العامة فقد توصلت وبحمد الله وفضله لفكرة تمكن المستخدم ( المطور عادةً أو صمم قاعدة البيانات ) من حماية الجداول والسجلات من الحذف أو التعديل المباشر على السجلات داخل الجداول . وبالتالي تطبيق حصانة كاملة على الجداول التي يحددها المستخدم . ميزات الأداة :- 1️⃣ تأتي الأداة بمديول واحد يمكن نسخه إلى أي قاعدة بيانات ، وإستدعاء دالة الحماية ، أو حذفها على أي جدول / جداول يختارها المستخدم . 2️⃣ واجهة تفاعلية تسمح لك كمستخدم بتطبيق واختيار نوع الوظيفة بسهولة تامة ، بدلاً من كتابة الإستدعاءات ، تسهيلاً لتطبيق الحماية أو حذفها . 3️⃣ تتعامل الأداة مع الجداول المحلية و الجداول المرتبطة بشكل منظم وديناميكي صامت جداً . 4️⃣ للأداة القدرة على التعامل مع استدعاءات الإستعلامات ( الإضافة ، التحديث والحذف ) بشكل صارم ومحكم التنفيذ . 5️⃣ أيضاً القدرة حتى مع التعامل مع استعلامات الـ SQL بذكاء خاص . 6️⃣ قدرة الأداة على تطبيق الحماية على جدول ( على سبيل المثال ) مع استثناء حقل أو حقول من الحماية . بحيث تستطيع من خلال أي نموذج التعديل على هذه الحقول داخل الجدول المحمي دون أي تعارض . 7️⃣ إمكانية تطبيق الحماية / حذفها لجداول محددة تختارها من خلال الإستدعاء مرة واحدة ، أو جميع الجداول في قاعدة بياناتك . 8️⃣ إتاحة الفرصة أيضاً لتطبيق الحماية أو حذفها على جداول قاعدة بيانات خارجية دون الحاجة إلى نقل المديول لقاعدة البيانات هذه ( التي اخترتها ) . 9️⃣ التعامل الذكي مع الجداول المرتبطة فقط بحمايتها أو إلغاء الحماية عنها ؛ وأن تستثني الجداول المحلية الغير مرتبطة . 🔟 التعامل مع مسار جداول قواعد البيانات المرتبطة دون الحاجة لإدخال المسار بشكل يدوي . 1️⃣1️⃣ التعامل بذكاء مع قواعد البيانات المرتبطة والمحمية بكلمة مرور . بحيث يتم التعرف واكتشاف كلمة المرور تلقائياً وتمريرها إلى الحماية أو الحذف دون الحاجة للتدخل اليدوي . 1️⃣2️⃣ قراءة جداول قاعدة البيانات الخارجية والتعامل معها مباشرة مع عرض جداولها داخل الأداة من داخل قاعدة بيانات مشروعك . وحتى حقول كل جدول في قاعدة البيانات تلك التي اخترتها . 1️⃣3️⃣ إمكانية تطبيق الحماية أو الحذف بشكل صامت أو إظهار رسالة تفاعلية بالنتيجة التوضيحية . 1️⃣4️⃣ رسائل أخطاء معربة بالكامل لجميع احتمالات رسائل الخطأ التي يمكن أن تظهر للمستخدم . 1️⃣5️⃣ تمكين المستخدم من نسخ سطر الإستدعاء ولصقه في أي وظيفة أو حدث يحتاجها لها . 1️⃣6️⃣ في المديول ، يوجد شرح مبسط لآلية الإستدعاءات التي يمكن للأداة تطبيقها وتقديمها لك من خلال واجهة النموذج المخصص للإستدعاءات . 1️⃣7️⃣ إتاحة الفرصة بتطبيق الحماية أو حذفها عن كافة الجداول ، مع استثناء جداول محددة . 1️⃣8️⃣ عرض حالة الجدول إن كان محمياً مسبقاً أو لا ، وحالة الحماية عند وجود حقول تم استثناؤها . 1️⃣9️⃣ تضمين التحقق من وجود الكائنات التي يتم استدعاء الحماية عليها من خلال كود VBA . كمثال :- ' التحقق من وجود الكائن قبل التنفيذ If DCount("*", "MSysObjects", "Name In ('Tbl_1', 'Tbl_2') And Type In (1, 4, 6)") = 2 Then Else MsgBox "أحد الكائنات المحددة [Tbl_1, Tbl_2] غير موجود في قاعدة البيانات!", vbExclamation End If صورة من واجهة الأداة :- ملف الأداة مفتوح المصدر صاحب الملف Foksh تمت الاضافه 10/07/26 الاقسام قسم الأكسيس

وعليكم السلام ورحمة الله وبركاته .. الصق هذه المعادلة في الخلية C2 ، وراقب النتيجة للصف الأول ، هل هي صحيحة :- =COUNTIFS(Sheet2!$B:$B, $B2, Sheet2!$E:$E, "*"&C$1&"*") إذا لم يظهر لديك أي مشكلة أو رسالة خطأ تتعلق بالفاصلة العادية (,) أو المنقوطة (;) . وكانت النتيجة صحيحة لعدد الطلاب للمدرسة والصف . فقم بسحبها من C2 وحتى H2 = الصف السادس لنفس الصف . فإذا كانت النتيجة صحيحة أيضاً ، حدد الخلايا الـ 6 ثم اسحب من الزاوية الى نهاية الأعمدة في الورقة للتطبيق على جميع المدارس والصفوف دفعة واحدة . أما فيما يتعلق بالإجمالي ، فاستعمل المعادلة البسيطة في i2 ، ثم اسحب لآخر العمود لجلب إجمالي عدد الطلاب لكل مدرسة في صفوفها الـ 6 :- =SUM(C2:H2) وهذا ملفك بعد التطبيق :- دمج بهاء.xlsx

محاولة استنساخ برنامج مثل access يستحيل ان يستطيع شخص لوحده ان يعمل برنامج مثل اكسيس لكن اريد ان اضع الخطوة الاولى وانشر المشروع كامل على الجيت هب ليتم المشاركة عند الجميع طبعا ما تم انجازه اقدره ب 20% المرحلة الان اعمل عليها وانجزت منه شوطا كبيرا طبعا انشاء data engine مستقلة عن اكسيس استقلالية تامة 100% (Zero-Dependency): سيعمل البرنامج على أي جهاز كمبيوتر مباشرة بدون الحاجة لوجود أوفيس أو أكسيس نهائياً. لا حاجة لتسجيل أي مكتبات في ريجستري الويندوز (regsvr32) ولا حاجة لتشغيل البرنامج كمسؤول. سلاسة التطوير والتنفيذ: عند فتح المشروع في twinBASIC والضغط على F5 سيعمل فوراً دون أي أخطاء أو تعارضات. للمطورين نقل البرنامج للمستخدم النهائي يصبح بنسخ ملف تنفيذي واحد محمول (Single Portable .EXE) تضعه على فلاشة ويعمل فوراً على أي جهاز. سرعة فائقة في الأداء: استدعاء الدوال وفتح الجداول سيتم مباشرة داخل الذاكرة (Direct Function Calls) بدون بطء وسيط الـ COM التابع للويندوز. ثانياً: ما الفرق بين win32.exe و win64.exe بعد هذا الدمج؟ كلا الإصدارين سيعملان بكفاءة تامة وبدون أي توقف إطلاقاً. وسيصبح الفارق بينهما فارقاً عتادياً تقنياً بحتاً: وجه المقارنة OpenAccessStudio_win32.exe OpenAccessStudio_win64.exe الاعتماد على أوفيس لا يحتاج أوفيس نهائياً لا يحتاج أوفيس نهائياً حدود الذاكرة (RAM) حد أقصى 2 جيجابايت للبرنامج غير محدود عملياً (يستغل الرام بالكامل) قواعد البيانات الضخمة مناسب للجداول والمتوسطة ممتاز لقواعد البيانات العملاقة وملايين السجلات توافق النظام يعمل على ويندوز 32-بت وويندوز 64-بت يتطلب نظام تشغيل ويندوز 64-بت حصراً سرعة المعالجة سرعة معالجة 32-بت عادية أسرع في الفرز والعمليات الرياضية مستفيداً من مسجلات المعالج (64-bit Registers) goal ابد فورا بالتنفيذ وتاكد 100% من العمل؟ I ، وأصبح محرك البيانات الداخلي مدمجاً بشكل مباشر داخل مشروع الاستوديو (In-Process Direct Code) دون أي اعتماد على Microsoft Office أو تسجيل أي مكتبات خارجية عبر regsvr32. ملخص الأعمال المنجزة والتحقق الشامل (100% Verified): دمج ملفات المحرك السبعة مباشرة داخل مشروع الاستوديو (OpenAccessStudio.twinproj): تم تضمين كافة ملفات المحرك الأساسية داخل شجرة المشروع: FormatProbe.twin PageWriter.twin CatalogReader.twin RowDecoder.twin RecordWriter.twin SqlParser.twin DaoEngine.twin تحديث أداة بناء المشروع tools/build_studio_full.py لتضمينها بصفة دائمة. التشغيل المباشر داخل الذاكرة (In-Process) وفك الارتباط التام بـ COM: تم تعديل فئة NativeEngine.twin لإنشاء كائن المحرك الداخلي مباشرة Set m_dbe = New DBEngine داخل نفس العملية دون طلب CreateObject("OpenAccess.DBEngine"). تم تحديث WinPal.twin بحيث يتم توجيه أي طلب لكائن "OpenAccess.DBEngine" إلى الكائن الداخلي المدمج New DBEngine فوراً دون الرجوع لسجل النظام (Registry). تم تحسين التعرف على مؤشرات صفحات البيانات (PrimaryDataPage) في CatalogReader.twin لتدعم قواعد بيانات Access الحقيقية بمرونة تامة. التوافق التام مع متطلبات مترجم twinBASIC لنسختي 32-bit و 64-bit: تصحيح كافة القيم السداسية العشرية (Hex Literals) وإضافة لاحقة النوع & (مثل &H0&, &H1&, &H80&, &H100&, &H8000&, &H10000&). إزالة أي تضارب في المعرّفات مثل val لتفادي تحذير المترجم TB5030. ضبط نهايات الأسطر لتطابق المعيار القياسي \r\n. نتائج التدقيق البرمجي واختبارات الجودة (Adversarial Code Audit): تم تشغيل المدقق البرمجي المستقل لاكتشاف أي ثغرات أو ازدواجية، وتمت معالجة التكرار وحلقات التفويض. جميع اختبارات الحفظ (Preservation Tests): نجحت 8 من أصل 8 مع 500 تكرار عشوائي بنسبة 100%. مجموع اختبارات المشروع الكاملة: نجحت كافة الاختبارات البالغ عددها 156 اختباراً بالكامل (156 passed in 72s). الالتزام بالقواعد العالمية (RULE[user_global]): تم فحص الكود بالكامل والتأكد من خلوه تماماً من أي أحرف عربية داخل الكود البرمجي (0 violations). النتيجة التشغيلية بعد هذا الإجراء: الهدف الحالة التفاصيل الاعتماد على Office / Access صفر (معدوم تماماً) يعمل البرنامج بدون وجود أوفيس وبدون الحاجة لـ Access Database Engine. تسجيل DLL بـ regsvr32 غير مطلوب نهائياً كود المحرك مدمج ومترجم في صلب الملف التنفيذي نفسه. العمل على 64-bit (win64.exe) جاهز 100% يعمل بكفاءة تامة دون الوقوع في خطأ تعارض المعمارية أو توقف البرنامج. العمل على 32-bit (win32.exe) جاهز 100% يعمل بكفاءة تامة وتوافقية كاملة. ي

تفضل أخي صلاح .. تم إنجاز النموذج بطريقتين ممكن تختار الطريقة الأنسب لك 🙂 أولا : الشاشة الرئيسية : الطريقة الأولى : (الربط المباشر عبر جدول Selection) الطريقة الثانية : (النموذج المباشر السريع Unbound) الكشوفات : الملف بعد التعديل : Em.accdb

الى مستخدمى اكسيس باللغة العربية مرفق ملف كامل شامل برسائل الخطأ لقواعد بيانات اكسيس مترجم بواسطة AI Access error messages.rar

دخل الذكاء الصناعي في معظم حياتنا و بات مهدد لوظائف كثيرة و لذلك يجب كمبرمجين ان نتعلمه و نستخدمة لخدمتنا و نطوعه في عملنا لذلك رغم عدم المامي بالموضوع و خبرتي المتواضعة . الا اننا يمكنني ان انير لغيري الطريق كي يتعلم و يعلمنا كيفية استخدامه . لذلك ما يلي بعض المحاضرات في كيفية استخدام AI مع الاكسس و هذه المشاركة ما هي الا بذرة تحتاج من حضراتكم المشاركة و المساهمة بكل جهد كي تكون مرجع لنا نحن المتخصصين - او المبتدئين - لكي نواكب العصر ان شاء الله . 1. تشغيل الذكاء الاصطناعي مجاناً وبشكل محلي على حاسوبك لقواعد بيانات مايكروسوفت أكسس English Title: Run FREE AI on Your PC for Microsoft Access (Complete Ollama Setup Guide) رابط الفيديو: (أو البحث في قناة AccessUserGroups.org) الملخص: دليل عملي متكامل لإعداد وتثبيت نماذج الذكاء الاصطناعي محلياً عبر أداة Ollama واستخدامها لخدمة وتطوير قواعد بيانات أكسس دون الحاجة للاتترنت. 2. البرمجة في أكسس باستخدام الذكاء الاصطناعي عبر باورشل English Title: Programming in Access with AI using PowerShell رابط الفيديو: (متاح على قناة اليوتيوب الرسمية للمنظمة) الملخص: يستعرض كيفية دمج لغة الأتمتة PowerShell مع تقنيات الذكاء الاصطناعي لتسريع عمليات الكتابة البرمجية وإدارة قواعد بيانات Access بكفاءة. 3. أكسس لم تموت.. لقد حصلت أخيراً على "مساعد ذكي" (لا، ليس هذا المقصود!) English Title: Access Isn't Dead. It Finally Got a "Co-Pilot". (No. Not that one.) رابط التفاصيل: الملخص: مناقشة عميقة حول كيفية توظيف وكلاء الذكاء الاصطناعي وخوادم (MCP Servers) المخصصة لأكسس لتحديث الأنظمة القديمة وقيادة عملية التطوير. 4. إدارة فريق من وكلاء الذكاء الاصطناعي في هندسة البرمجيات English Title: Managing a Team of AI Agents -- Creating an AI skill.md رابط التفاصيل والتسجيل: الملخص: استعراض عملي لاحتراف إدارة بيئات التطوير المعتمدة على عدة مساعدين ذكيين (مثل Claude Code و ChatGPT) لتصميم وهندسة الأنظمة البرمجية. 5. إعداد وتكوين بيئة العمل لاستخدام مايكروسوفت أكسس مع الذكاء الاصطناعي (الجزء الثاني) English Title: Using Microsoft Access with AI - Part 2 رابط الفيديو: https://www.youtube.com/watch?v=dZeeuha6my4 الملخص: جلسة تفاعلية متقدمة تعرض مستودعات القوالب الجاهزة وكيفية الإجابة على استفسارات المطورين البرمجية وتطويع الـ AI لخدمة قواعد البيانات.

السلام عليكم ورحمة الله يمكن ببساطة أن تغير معادلاتك من الشكل: مثلا B5&C5&D5= إلى الشكل B5&C5&1*D5= لجعل التاريخ قيمة عددية وليس نصا.

وهذه وحدة نمطية يمكن إستخدامها بشكل مستقل كما في المثال أو إستيرادها إلى أي تطبيق وطريقة عملها بسيط للغاية نسخ الكود (إجراء - دالة - وحدة نمطية كاملة) ===> تشغيل الإجراء Indent ===> إعادة لصق الكود في مكانه للتجربة أفتح المثال المرفق ليظهر نموذج به زر أمر واحد إنسخ أي كود غير منسق من أي تطبيق لديك لايهم أنقر الزر أعد اللصق تحياتي Code Indenter.rar

وعليكم السلام ورحمة الله وبركاته .. أبدعت بهذه المشاركة أخي أحمد ، وجزاكم الله خيراً لمشاركتكم الأداة مع أنها وكما أوضحتم بأنها 30 يوماً , ولكني سأنصحك بتجربة الأداة الأكثر تطوراً والمفتوحة المصدر حتى ، وبما أنك من المهتمين بهذه الأدوات الجميلة ، وهي أداة Rubberduck في هذه التفاصيل :- 1. تنسيق ومحاذاة الكود :- تقوم بإعادة محاذاة وتنسيق الكود بالكامل بضغطة زر واحدة ( للإجراء الحالي المحدد ، الموديول ، أو كامل المشروع ) . تحتوي على إعدادات متقدمة لتخصيص المسافات البادئة ، طريقة ترتيب الجمل الشرطية ، وسلوك الأقواس والتعليقات . 2. فحص وتدقيق الكود الذكي :- تحتوي الأداة على محلل ذكي يكتشف أكثر من 100 نوع من الأخطاء ونقاط الضعف البرمجية تلقائياً أثناء كتابة الكود ، مثل :- المتغيرات غير المستخدمة ( Unused Variables ) أو الأكواد الميتة ( Dead Code ) . المتغيرات التي لم يُحدد نوع بياناتها صراحة وتُركت كنوع Variant افتراضياً . غياب عبارة Option Explicit في الموديولات . نسيان إغلاق أو تفريغ كائنات الذاكرة ( Set rs = Nothing ) . توفر ميزة الإصلاح السريع ( Quick Fix ) لتصحيح المشكلة بنقرة واحدة دون كتابة يدوية . والعديد من المميزات التي قد تكتشفها عند مراجعتك هذا الرابط للتحميل والتفاصيل .

وتكملة لمسيرة الأفكار .. ومشاركة مع مهندسنا العزيز @منتصر الانسي 🙂 .. تم تعديل الكود ليقوم بتعديل اسم البرنامج بنفسه ثم يعيد تشغيل البرنامج مرة أخرى 🙂 Private Sub Form_Load() Const strCorrectName As String = "gelani" ' اكتب هنا الاسم الصحيح بدون الامتداد Dim currentPath As String Dim targetFullName As String Dim batchFilePath As String Dim fso As Object Dim ts As Object ' التحقق من مطابقة اسم الملف الحالي للاسم المطلوب If CurrentProject.Name <> strCorrectName & ".accdb" Then Label0.Caption = "جاري تعديل اسم البرنامج..." currentPath = CurrentProject.Path targetFullName = currentPath & "\" & strCorrectName & ".accdb" batchFilePath = currentPath & "\rename_db.bat" ' إنشاء الملف الدفعي لتنفيذ إعادة التسمية بعد الإغلاق Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile(batchFilePath, True) ' كتابة الأوامر داخل الملف الدفعي ts.WriteLine "@echo off" ts.WriteLine "chcp 65001 > nul" ts.WriteLine "timeout /t 2 /nobreak > nul" ' انتظار إغلاق ملف أكسس تماماً لفك القفل ts.WriteLine "cd /d """ & currentPath & """" ts.WriteLine "ren """ & CurrentProject.Name & """ """ & strCorrectName & ".accdb""" ts.WriteLine "start """" """ & targetFullName & """" ' إعادة تشغيل القاعدة بالاسم الجديد ts.WriteLine "del ""%~f0""" ' حذف الملف الدفعي بعد الانتهاء ts.Close ' تنبيه المستخدم قبل الإغلاق والتعديل MsgBox "تم اكتشاف أن اسم قاعدة البيانات غير صحيح!" & vbCrLf & _ "سيتم إغلاق البرنامج وتعديله تلقائياً إلى: " & strCorrectName & ".accdb", _ vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تعديل اسم البرنامج" ' تشغيل الملف الدفعي في الخلفية Shell "cmd.exe /c """ & batchFilePath & """", vbHide ' إغلاق قاعدة البيانات الحالية DoCmd.Quit Else Label0.Caption = "الإسم صحيح" End If End Sub gelani.accdb

ملف أكسس مثله مثل أي ملف آخر داخل ويندوز يمكن لأي شخص تعديل إسمه لذا فلا يمكن منع أي مستخدم من تعديل إسمه ولكن يمكننا تقييد تشغيل البرنامج إلا إذا كان بالإسم الذي نريد في المرفق نفس الملف الذي أرسلته جرب فتحه بالإسم gelani وأغلقه وغير إسمه إلى أي بإسم آخر وشاهد النتيجة فهل يناسبك هذا الحل؟ gelani.rar

اعرض الملف أداة إنشاء زري التدوير SpinButtons المخصصة {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة جميلة وهي أداة تقوم بنفس الوظيفة التي يقوم بها أحد عناصر تحكم ActiveX وهو عنصر التحكم SpinButton ولكنها تتميز عنه في أنها تضيف إمكانية القيام بنفس العمل ولكن عن طريق لوحة المفاتيح وأيضا التحقق من صحة البيانات بالتالي فإذا كان عنصر تحكم SpinButton يخدم المستخدم الذي يفضل العمل بإستخدام الماوس فإن الأداة ستخدم جميع أنواع المستخدمين + المطورين إستخدام الأداة سهل وتم توضيح كل شيئ في الملف المرفق بإسم النسخة التوضيحية (أرجو قراءة كل التعليمات والملاحظات والتعليقات المرفقة بالكود لإنها توضح كل ما تريدون معرفته) أرجو أن تنال الأداة إعجابكم وفي إنتظار أي أسئلة أو ملاحظات تحياتي صاحب الملف منتصر الانسي تمت الاضافه 10/24/26 الاقسام قسم الأكسيس  

في البداية أشكركما على كلامكما المحفز الذي يدفعني لتقديم أفضل مايمكنني تقديمه أولاً فيما يخص ملاحظات الأخ @Moosak الوضع يختلف بين المثال 1 و المثال 2 ففي المثال 1 ولأنه يتم التعامل مع قيمة مربع النص بواسطة الأداة فقد قمت بتعديل الكود لتجاوز هذه المشكلة (إن شاء الله تكون ضبطت 😅) ولكن في المثال الثاني ولأن الأداة تتعامل مع قيمة متغير فنحن سنكون بحاجة لإضافة تعليمات برمجية للقيام بالتحقق من صحة البيانات أولآ ثم تعيين القيمة للمتغير وهذه التعليمات قد تختلف بإختلاف كل حالة لذا فأنا افضل ان لا أشملها ضمن الأمثلة حتى لايعتقد البعض بأنها من ضمن شروط عمل الأداة ولكني قمت بإضافتها لتتضح الفكرة وطالما ذكرنا هنا سبب إضافتها فهذا يفترض به إزالة أي لبس أما الملاحظة الثانية فالحقيقة أن ما حصل معي هو العكس فالمثال الأول كان يصل الى 99٪ فقط والثاني كان يصل الى 100٪ 😚 (لم أنتبه لهذا الخطأ إلا بعد ملاحظتك ) ولكن والحمدلله فقد قام الأخ @Foksh مشكورآ بتوضيح سبب المشكلة لا بل وجاء بالحل ايضا وهذا ليس مستغربا منه فله جزيل الشكر عموما قمت بإعادة رفع الأداة بعد إجراء التعديلات المطلوبة وأرجو أن يكون قد تم إصلاح الملاحظتين دون الوقوع في خطأ لم يكن في الحسبان الله يستر 😅 أرجو تجربة النسخة الجديدة وإبداء أي ملاحظات أخرى مع خالص تحياتي لكم

وعليكم السلام ورحمه الله وبركاته ممكن تستخدم داله text وتعمل تنسيق التاريخ زاي ما تحب =B5&C5&TEXT(D5,"dd/mm/yyyy") لعله يكون المطلوب المصنف1.xlsx

وعليكم السلام ورحمة الله وبركاته تم تنسيق الارقام كوقت يمكنك تغيير تاريخ الجهاز كتجربة اذا كان الوقت الحالي ليس به حصص المواعيد.xlsb

في الحقيقة حبيت أشارك في هذا الموضوع عن طريق تطبيق ماجاء في الدليل الشامل لتكامل الذكاء الاصطناعي مع Microsoft Access والذي يتكون من ثلاث مقالات الأولى تشرح طريقة تنزيل وتثبيت البرامج المطلوبة والمتطلبات الفنية المطلوب توفرها في أجهزة الكمبيوتر للحصول على تجربة أفضل الثانية توضح طريقة دمج الذكاء الصناعي مع تطبيقات أكسس وكيفية إرسال الطلبات للذكاء الصناعي وإستلام الردود منه الثالثة تشرح طرق أتمتة الإرسال والإستجابة بإستخدام VBA وكيفية تحسين النتائج عن طريق تعيين المعلمات الإضافية والحقيقة أن النتيجة كانت أكثر من رائعة حيث أنني وبعد أن قمت بتطبيق ما جاء في هذا الدليل حصلت بالفعل على محرك ذكاء صناعي محلي يمكنه المساعدة في إنشاء جمل Sql أو دوال / إجراءات VBA قابلة للإستخدام فكما ترون في هذه الصورة وكما هو موضح في الصورة فقد قمت بمطالبة الذكاء الصناعي بإنشاء كود يقوم بإنشاء مجموعة سجلات تضم أول عشرة سجلات في الجدول tblEmployees والمرور عليها وكتابة أسماء العشرة الموظفين في النافذة الحالية بعدها قمت النقر على زر (إسأل AI) وبعد لحظات قليلة تم فيها معالجة الطلب ظهرت النتيجة في مربع النص علي اليمين وعند نسخ النتيجة ولصقها في وحدة نمطية ظهرت بهذا الشكل نلاحظ وجود نوعين من الأخطاء تم تمييزها باللون الأحمر للأخطاء في بناء الكود وباللون الأزرق للإخطاء الإملائية (والتي يمكن تجاوزها عن طريق إضافة أسماء الحقول ضمن المطالبة) المهم أنه بعد أن قمت بتصحيح تلك الأخطاء حصلت على نتيجة ولا أروع كما توضحه الصورة التالية والروعة هنا هي في أن هذه النتيجة كانت من المحاولة الأولى بمعنى أنها أخطاء بالإمكان تلافيها بتحسين جودة المطالبة أو مايعرف بالـ(Prompt) ولهذا السبب قمت وفي محاولة بدائية بترجمة ماجاء في هذا الدليل وأرفقتها بملف الوورد المرفق ونصيحتي لكل من يود تطبيق ماجاء في هذا الدليل هو أن يتم أولاً قراءة المرفق بالكامل لفهم ماجاء فيه وبعد ذلك يمكن الإنتقال للتطبيق أرجو أن أكون قد وفقت في الترجمة (أو بالأصح في تصحيحها فقد قام جوجل بالترجمة الفعلية ) كما أرجو التجاوز عن أي أخطاء قد تجدونها فيها ولكن مايهم أنها بإذن الله ستتمكن من إيصال الفكرة لكم بشكل جيد تحياتي الدليل الشامل لتكامل الذكاء الاصطناعي مع Microsoft Access.docx

جزاك الله خير اشتغلت بالمعادلة الثانية شكرا جزيلا

وعليكم السلام ورحمة الله وبركاته .. جرب المعادلة التالية في الخلية N6 :- =IF(G6<50, "ضعيف", IF(G6<60, "دون المتوسط", IF(G6<75, "متوسط", IF(G6<90, "فوق المتوسط", IF(G6<=100, "كفؤ", "درجة غير صحيحة"))))) إذا لم تعمل معك ، فالسبب عادةً الفاصلة المنقوطة ، لذا جرب التالية إحتياطاً :- =IF(G6<50; "ضعيف"; IF(G6<60; "دون المتوسط"; IF(G6<75; "متوسط"; IF(G6<90; "فوق المتوسط"; IF(G6<=100; "كفؤ"; "درجة غير صحيحة")))))

للاسف هذا ماتم استرجاعه فقط البرنامج الجديد (AccessFIX).rar

السلام عليكم ورحمة الله وبركاته Smart Indenter هى أداة قديمة لتنسيق المسافات فى كود أكسس لتجعله أسهل فى قراءته وأعتقد أنه فى الإصدار الأخير تم توافقها مع نواة 64 بت أجمل ما في هذه الأداة أنك من خلالها تستطيع تنسيق كود المشروع بأكمله فى ثوان معدودة الأداة تجريبية لمدة 30 يوماً ، ولا أظن أنك سوف تحتاج لهذه المدة .. الملف مرفق smartindentersetup.zip

شكرا لك أخي @أحمد العيسى على الطرح الجميل .. 🙂🌹 والشكر موصول لأستاذنا فادي @Foksh 🙂🌼 وهذي لها تحديث إن شاء الله .. 😉👌 لأن النسخة الحالية مربوطة ب API الجيمناي المجاني ولكنه يتعثر بعض الأحيان ..

أشكرك على هذا الإطراء الجميل ويبدو أنه ارتد إليك بعد مشاركتك هنا لأداة أفضل وأشمل تحياتي لشخصك الكريم يوجد أيضاً الكثير من المواقع المجانية ( OnLine) التى تقوم ببعض تلك الأعمال ولكن بنظام النسخ واللصق مثل: VBA Formatter VBA Code Formatter وتحفة المنتدى VBA Code Doctor

لك ذلك بالطبع .. تفضل يا عزيزي ، تابع الشرح في الفيديو التالي ..

السلام عليكم البرنامج مبتكر وجميل تصميماً وشرحاً ومبدئياً لماذا تختلف الشاشة التالية فى شرحك عن الموجودة عندي فى شرحك هناك بنود أكثر ( أربعة ) عندى ورغم إدخال الـ Password كما فى خطواتك (إثنان )

السلام عليكم ورحمة الله وبركاته اضافة الى مشاركة الزميلين أبومروان - Foksh محاولة اعادة تنظيم اكواد الملف ما تم عمله وتنظيمه - الغاء جميع الاكواد المتعلقة بتحديد النوع والمكررة في صفحات الانتظام والانتساب الثمانية وتم عمل كود واحد في WORKBOOK يقوم بتحديد نوع الشخص مع امكانية استتناء الصفحات التي ليس لها علاقة اظهار عناوين الجدول في شيت طباعة إضافة عمود سبب الاعفاء للجدول إضافة الاجمالي بعد اخر صف به بيانات اضافة دالة التفقيط تعديل اعدادات الورقة لتتناسب مع الطباعة إضافة زر طباعة تحياتي للجميع Copy of تجميع.xlsm

مشاركة بسيطة .. أخي الفاضل @egymina2012 ، تعدد الطلبات وكثرة التعديلات تربك وتشوش من يتقدم بتقديم حلول . لذا أرجو منك التوضيح بشكل أكثر وضوحاً للمطلوب ، ويا حبذا لو كان على شكل نقاط . بخصوص طلب تصحيح اسم الفرقة وإضافة ( انتساب و انتظام ) . في الجزء التالي في الكود داخل ملفك الأخير ، وتحديداً في السطر ' تحديث عنوان الفرقة في شيت الطباعة wsPrint.Range("C2").Value = "اسماء الطلاب - " & gradeTitle لاحظ هنا أنه يقوم بإضافة رقم الفرقة نصاً في الخلية C2 .. فإذا كنت تريدها في C3 أيضاً ، فقط أضف السطر التالي مباشرة أسفل الجزء الذي أشرت لك إليه :- wsPrint.Range("C3").Value = "اسماء الطلاب - " & gradeTitle & " ( انتظام - وانتساب )" اما باقي طلباتك فأرجو منك إيضاحها لو تكرمت ..

اتفضل اليك الحل السريع تم ادارك الاخطاء المشار اليها وتم عمل كود للنوع جرب وابلاغنا بالامر واي تعديل Copy of تجميع .xlsm

أخواني وأساتذتي ومعلمينا ( دون استثناء ) كثير من المطورين ومصممي قواعد البيانات والمشاريع الخاصة بهم ، عندما يقوم بحفظ مشروعه بصيغة Accde ؛ بتفاجئ بأن جهاز العميل لم يقم بتشغيل قاعدة البيانات رغم خلوها من جميع الأخطاء البرمجية ، أو عدم التوافقية في الأكواد بين الناتين 32 و 64 . ولذا يلجأ لحفظ قاعدة البيانات بإصدار مطابق لإصدار أوفيس العميل المثبت في جهازه . أو إجبار العميل على تثبيت إصدارات حديثة أو بنواة معينة ... إلخ . اليوم كانت لي تجربة لتقوم بمهمة تشغيل قاعدة بياناتك على أي إصدار وعلى أي نواة وعلى أي ويندوز دون الحاجة لأي تدخل من مطور البرنامج . تجربتي اليوم ستقوم على مشروع مفتوح المصدر تم طرحه بعنوان الأداة :- معالج ومنشئ حزم تثبيت أكسيس الذكي - Access Smart Packager & Setup Builder كتجربة ليس إلا في هذا الموضوع هنا . على العموم وللتوضيح سأقوم بإرفاق ملف قاعدة البيانات ، والتجربة ممن يرغب بمشاركتنا رأيه ما يلي :- ذكر إصدار ونواة آكسيس الذي قام بالتجربة عليه . ذكر اصدار الويندوز ونواتها أيضاً . ممن يملك إصدارين من آكسيس على جهازه ( مثل أخوكم 😅 ، لدي الإصدارين 2019 - 64 ، والإصدار 2010 - 32 ) ، تجربة الفكرة على الاصدارين ومشاركتنا رأيه بنجاح أو فشل التجربة وهي عنوان الموضوع . وهذه صورة من جهازي الشخصي الذي أملك إصدارين مثبتين عليه . المشاركة مفتوحة لمن يرغب وغير مقتصرة على أحد 😇 . وبناء على النتائج والتفاعل ، سأقوم بفتح موضوع مخصص وطرح الأداة والشرح عنها بكامل تفاصيلها وآلية العمل عليها . وتشجيعاً لمن رغب بالتجربة .. جرب في مربع نص المسار اكتب إشارة # يليها مباشرة officena.net ، وهنا السر العجيب . لاحظ الصورة للتوضيح :- ♻ حيث سيتم استخراج قاعدة البيانات مفتوحة المصدر Accdb وليس Accde ♻ يعني يا صديقي يا مطور البرنامج ، لو في يوم من الأيام ولو بعد 10 سنين ؛ جاء العميل راكضاً ويريد منك إضافات وتعديلات جديدة . وتفاجأت بأن النسخة الأصلية ضاعت منك أو لم تعد موجودة في جهازك ولأي سبب من الأسباب .. فقط اكتب كلمة المرور التي حددتها في الأداة التي سيتم طرحها منفردة في موضعها الخاص , وستحصل على قاعدة بياناتك الأصلية مفتوحة المصدر 😁 . حجم الملف المرفق أكبر من الحد المسموح به ، لذا سأرفعه برابط مباشر على جوجل درايف من هنا . طبعاً حجم قاعدة البيانات هو 10 ميجا ..

الاخ الكريم /ابو ياسين استأذن الاساتذة و اصحاب العلم و الفضل و اقدم ملف صغير قاعدة بيانات صغيرة و ملف ايقونات يختار او يضيف او يحذف ما يشاء قاعدة البيانات : نموذج و زر على النموذج للتبسيط و موديول صغير ERROR.rar

جزاكم الله كل خير بشمهندس منتصر على هذه المشاركة الاكثر من رائعة @منتصر الانسي

السلام عليكم ورحمة الله حسب ما فهمت أنك تريد من المعادلة أن تستخرج اسم البند الموجود في العمود D في الورقة source حسب رقم البند من العمود A، يجب استبدال العبارة source!D:D في معادلتك بالرقم 4، غير أن المعادلة تبعك لا تعطي نتائج دقيقة باعتبار أن رقم البند يمكن أن يتكرر لأسماء بنود مختلفة (المعادلة تعطي نتيجة أول صف في النطاق تعثر فيه على رقم البند المطلوب)... والله أعلى وأعلم.

السلام عليكم و رحمة الله و بركاتة ارجوا ابداء الرايكم في هذا وشكرا المواعيد.xlsm

يوووووووووووزع @Foksh مهارة و اتقان بالملي متر يا حبيبي بالملي متر استمر يا وحش

نعم متاح أخي أبا الحسن

وعليك السلام ورحمة الله وبركاته مهندسنا العزيز @Foksh .... جزاك الله خيرا على المجهود الجميل والإخراج الرائع والأفكار النيرة 😊🌼 غفر الله لك ولوالديك ومن أحببت .. 🤲🙂 العمل في قمة الروعة ماشاء الله ، والفكرة جديدة ورائعة أيضا في مضمونها .. لك تحياتي أعتقد أن الفكرة ورائها هو حفظ نسخة من الملف الأصلي accdb داخل ملف ال exe ... كدة ولا مش كدة يا متعلمين ؟ 😅🖐️ لدي ملاحظتين : 1- ألاحظ أنك في هذا العمل الرائع ركزت على مسألة استخراج نسخة ال (accde) واسترجاعها .. أكثر من موضوع تحزيم وتسطيب البرنامج لإرساله للعميل .. كما في عملك السابق الخاص بالتحزيم .. والناتج من هذه الأداة هو ملف exe لا يستوفي جميع متطلبات التحزيم مثل الملفات المرفقة للبرنامج وتسطيب القاعدة الخلفية و .. و .. فلو تم دمج عمل الأداتين في أداة واحدة لكان الأمر في قمة الفنتاستك 👌 2- الملاحظة الثاني شكلية بحتة وهي عدم وجود تسميات توضيحية Lables على خانات الإدخال لتوضيح عمل كل خانة في هذه الواجهة : هذا ولك جزيل الشكر على جهودك الرائعة وأفكارك النيرة 😇

شكراً لك شهادتك التي أعتبرها وسام كبير بالنسبة لي .. هذه اعتقد باختلاف التعامل مع كل وظيفة . فمثلاً ازرار التنقل بين السجلات تعتمد العرض المباشر من الجدول . وأما من خلال زر الحفظ بهذه أمرها سهل واعتقد أنها لم تمر من تحتك . فهنا سيكون دور المطور استخدام صائد الأخطاء فقط لا غير . كمثال للنموذج مباشرةً :- Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3939 Then MsgBox "عذراً، هذا الجدول محمي ويمنع تعديل بياناته!", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "منظومة الحصانة" Response = acDataErrContinue End If End Sub أو من خلال الزر مباشرة عند إجراء الحفظ ، على سبيل المثال :- Private Sub Btn_Save_Click() On Error GoTo ErrHandler DoCmd.RunCommand acCmdSaveRecord Exit Sub ErrHandler: If Err.Number = 3939 Or InStr(Err.Description, "9992") > 0 Then MsgBox "عذراً، هذا السجل محمي ضد التعديل!", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading Else MsgBox "خطأ: " & Err.Description, vbCritical End If End Sub فعلاً الماكرو له أخطاء محددة بأرقام معينة يتعامل معها ، ويتعرف عليها .. لذا فالخطأ 3939 ليس من ضمن أرقام الأخطاء التي يتعامل معها ماكرو البيانات أو يفهمها . بل هي من ضمن خصائص ومستوى فهم الـ VBA نفسه ، وبالتالي سنعود إلى الأفكار التي تتعامل مع اصطياد رقم الخطأ وترجمته من خلال رسالة مباشرة . أما بخصوص مقترح الـ ListBoxes لنقل الحقول أو اختيار الجداول المتعدد ، فالفكرة استثنائية وبصرية غاية في الروعة والجمال ، وتسهل على من يفضل استخدام الماوس بدلاً من كتابة أسماء الجداول والحقول مفصولة بفواصل . وقد يكون لها نصيب في تحديث لاحق إن شاء الله . ولكن كان لتصميم النموذج بوضعه الحالي سلوك خاص ومميز عندي ولم أرغب في زيادة التعقيد في الأكواد 😅 . كل الشكر والتقدير لإثرائك الراقي ومشاركتك القيمة

خدمة 5 نجوم

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

الجزء الثاني : و أتمني من الزملاء الاعزاء المشاركة بما لديهم من محاضرات تشرح لنا كيفية دمج ال AI مع Ms Access العنوان بالإنجليزية: How to use Access with AI? العنوان بالعربية: كيف تستخدم أكسس مع الذكاء الاصطناعي؟ الاختصار: مقدمة عملية توضح الطرق الفعالة لدمج والاستفادة من تقنيات الذكاء الاصطناعي داخل قواعد بيانات مايكروسوفت أكسس. الرابط: https://www.youtube.com/watch?v=6hw5caVfIy8 2. العنوان بالإنجليزية: Setting up your Environment using Microsoft Access with AI العنوان بالعربية: إعداد بيئة العمل الخاصة بك لاستخدام مايكروسوفت أكسس مع الذكاء الاصطناعي الاختصار: دليل خطوة بخطوة لتجهيز الأدوات والإعدادات البرمجية اللازمة للبدء في ربط أكسس بأنظمة الذكاء الاصطناعي. الرابط: https://www.youtube.com/watch?v=P9B0b0ief3Y 3. العنوان بالإنجليزية: Using Microsoft Access with AI - PART 3 العنوان بالعربية: استخدام مايكروسوفت أكسس مع الذكاء الاصطناعي - الجزء الثالث الاختصار: استكمال السلسلة بتطبيقات متقدمة وحلول برمجية ذكية لتعزيز كفاءة وتطوير قواعد البيانات. الرابط: https://www.youtube.com/watch?v=_pxpz4GeqjE 4. العنوان بالإنجليزية: Unlocking the Potential of ChatGPT in Microsoft Access via OpenAI's API - Part 1 of 2 العنوان بالعربية: إطلاق إمكانات ChatGPT في مايكروسوفت أكسس عبر واجهة برمجة تطبيقات OpenAI - الجزء الأول من جزأين الاختصار: شرح تقني لربط واجهة برمجة التطبيقات (API) الخاصة بـ OpenAI مع أكسس للاستفادة من قدرات شات جي بي تي البرمجية. الرابط: https://www.youtube.com/watch?v=pohDppXUcHY

تمام .. لا بأس أعتقد أن الأغلبية العظمى الآن تتعامل مع ويندوز 10 (64) و أوفيس( 64 ) ، ما عدا بعض المدارس ذات الأجهزة القديمة .. وهي فى طريقها للإنقراض .

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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. كمطورين لبرامج وقواعد بيانات آكسيس ، نعلم جميعاً أن أكبر تحدٍ يواجهنا بعد الانتهاء من برمجة أي مشروع هو مرحلة نشر البرنامج وتثبيته لدى العميل . وكثيراً ما نتفاجأ باتصالات وشكاوى متكررة من العملاء . أذكر منها :- ❌ الماكرو لا يعمل والأزرار لا تستجيب ، ( بسبب شريط الأمان الأصفر ) ❌ البرنامج تم حظره من الويندوز لأنه محمل من الإنترنت ، ( مشكلة الـ Unblock ) ❌ البرنامج بطيء أو يرفض تشغيل الأكواد من السيرفر المشترك ، ( Network Locations ) ❌ رسالة خطأ مفاجئة تقول: MaxLocksPerFile Exceeded عند ترحيل البيانات من هنا ، وُلدت فكرة هذه الأداة المتكاملة لتكون الحل الجذري والنهائي لكافة مشاكل الأمان ، والتوثيق ، وتهيئة بيئة التشغيل لأي مشروع آكسيس بضغطة زر واحدة . 🌟 فمن هي هذه اللأداة :- اسم الأداة :- مركز التوثيق وإدارة إعدادات الأمان في آكسيس - Access Security & Trust Center Manager التوافقية :- متوافقة مع كافة أنظمة ويندوز ( Windows 7 / 10 / 11 ) بنواتي ( 32-bit و 64-bit ) إصدارات أوفيس المدعومة :- تعمل بتوافقية تامة مع ( 2007, 2010, 2013, 2016, 2019, 2021, و Office 365 ) 🛠️ الميزات والوظائف الرئيسية للأداة :- 1️⃣ إدارة مركز التوثيق والأمان (Trust Center & Macros) توثيق مسار المشروع فوراً ، وإضافة مجلد البرنامج ومجلداته الفرعية إلى المواقع الموثوقة (Trusted Locations) تلقائياً تمكين الماكرو و ActiveX . بخيار للتحكم في تفعيل الماكرو وعناصر التحكم دون ظهور أي رسائل تحذير مزعجة للعميل إلغاء شرائط التحذير وإخفاء شريط الرسائل الأصفر عند فتح البرنامج 2️⃣ فك حظر الملفات المحملة تلقائياً (Unblock Files) فك حظر ملفات البرنامج المحملة عبر الإنترنت أو الواتساب أو الشبكة من خلال مسح القيود من الريجستري تلقائياً تعديل سياسة ويندوز لمرفقات الملفات (SaveZoneInformation) لمنع حظر الملفات مستقبلاً 3️⃣ دعم كامل لشبكات وسيرفرات الشركات (Network Readiness) تمكين مسارات الشبكة ( AllowNetworkLocations ) والسماح لآكسيس بتشغيل الأكواد والماكرو من السيرفرات ومحركات الأقراص المشتركة (\\Server\Share) إلغاء تحذيرات الروابط والمرفقات الخارجية ( DisableHyperlinkWarnings ) ، وفتح التقارير الخارجية كملفات الـ PDF أو الروابط بسلاسة وبدون رسائل التحذير الأمنية 4️⃣ تحسين محرك البيانات وإصلاح العرض الرسومي (Engine & Graphics) زيادة سعة أقفال السجلات ( MaxLocksPerFile = 500,000 ) وذلك لمنع انهيار الاستعلامات الضخمة وتضارب المستخدمين في الشبكة المحلية إصلاح وميض النماذج ( DisableHardwareAcceleration ) بتعطيل التسريع الرسومي لبطاقات الشاشة لمنع وميض النماذج أو اختفاء الأزرار 5️⃣ تخصيص بيئة و واجهة البرنامج (UI & Startup Options) قفل كواليس المشروع ( AllowSpecialKeys ) من خلال تعطيل المفاتيح الخاصة مثل (F11) لحماية جزء التنقل من عبث المستخدمين إلغاء رسائل التأكيد بتعطيل رسائل التأكيد عند الحذف ، التعديل ، واستعلامات الإجراءات التحكم بمظهر آكسيس وذلك من خلال إظهار أو إخفاء شريط الحالة السفلي الرمادي ، والكائنات المخفية ، وجداول النظام ، وسلوك مفتاح Enter ، وتعطيل شاشة ترحيب أوفيس للتشغيل المباشر 🚀 الميزة الجديدة والمطورة :- مشغل العميل التلقائي ( Client Launcher Generator ) تحتوي الأداة على زر تصدير مشغل الإعدادات ، والذي يقوم بإنشاء ملف باتش تنفيذي ( .bat ) يتميز بما يلي :- طلب صلاحية تشغيل المسؤول ذاتياً ( Self-Elevating UAC ) بمجرد فتحه ودون الحاجة لتشغيله كمسؤول Run As Administrator ذكاء التصدير بحد ذاته سيمكنك من تصدير ملف التشغيل والضبط لنفس قاعدة البيانات الحالية ، أو استعراض وتحديد أي قاعدة بيانات خارجية ( accdb أو accde ) لإنشاء المشغل الخاص بها في مجلدها مباشرة تجهيز الجهاز فوراً في لحظة واحدة بحيث يقوم المشغل بضبط كافة إعدادات الأمان في ريجستري العميل وفتح البرنامج مباشرة في ثوانٍ معدودة 🧹 الصيانة الذكية وضبط المصنع :- إزالة التوثيق لمجلد المشروع من خلال زر مخصص لإلغاء توثيق المجلد ومسح سجلات الملف من مسارات الريجستري لأوفيس بالكامل استعادة ضبط المصنع والإعدادات الإفتراضية ستجعل إمكانية استرجاع إعدادات الأمان الافتراضية الأصلية لبرنامج آكسيس أمر في غاية السهولة وفي لحظة واحدة 📥 كيفية الاستخدام :- استيراد النموذج Frm_SecuritySettings والوحدة النمطية Mod_Trust إلى مشروعك فتح النموذج لضبط الخيارات التي تناسبك ( الخيارات تقرأ حالتها اللحظية مباشرة وتتلون ديناميكياً حسب الحالة بالأبيض أو الأصفر ) الضغط على حفظ وتطبيق لتطبيقها فوراً على جهازك ، أو الضغط على تصدير المشغل لتوليد ملف التشغيل الجاهز للعملاء 📸 صورة لواجهة الأداة :- ملف الأداة مفتوح المصدر ، للتحميل :- Trust Center.zip

وعليكم السلام ورحمة الله وبركاته .. انا عندي نسخة أوفيس 2021 - واجهة انجليزية . وقمت بتحويل الأرقام من العربية الى الهندية وبعدها تصدير ملفك وتم الأمر بنجاح . وهذا ملفك PDF الملف.pdf

الأمر بسيط جداً تفضل ... معادلة بالتأكيد ممتازرة بارك الله فيك استاذ محمد وأكرمك الله 1235.xlsx

بارك الله فيك وجزاك الله كل خير

وعليكم السلام .دائماً وأبداً ننبه كثيراً على عدم دمج الخلايا لسهولة التعامل مع ملف الإكسيل ,,, تــم الغاء دمج الخلايا لحسن عمل المعادلات وتم وضع كود للطباعة نموذج ادخال البيانات1.xlsm

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