منتصر الانسي

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

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

اعرض الملف أداة إنشاء الخيارات المخصصة بإستخدام القوائم المختصرة {سلسلة الأدوات المساعدة المخصصة} اليوم أقدم لكم طريقة أخرى من طرق إنشاء قوائم الخيارات المخصصة ولكن هذه المرة بإستخدام القوائم المختصرة السياقية كل ما يتطلب معرفته للعمل بهذه الأداة ستجدونه موضحا ضمن المرفقات وكما تعودنا فمرفق لكم ملف أكسس بإسم النسخة التوضيحية تحتوي على أمثلة عملية توضح طريقة عمل الأداة وطرق الإستفادة منها بالإضافة إلى نسخة بإسم القالب يحتوي الكائنات المطلوب إستيرادها تم في هذه الأداة الأخذ بالإقتراحات التي قدمها الأخ @Foksh والأخ @Moosak في موضوع الأداة السابقة هنا فأصبح نموذج ببناء صيغة أمر الإستدعاء يقوم بإضافة عبارة Select Case ضمن الصيغة وتم إستخدام دالة بدل الإجراء ليتم إرجاع قيمة الخيار مباشرة لأني رأيت بصراحة أن هذين الإقتراحين هما الأنسب لهذه الأداة أرجو أن تجدوا في هذه الأداة الفائدة العلمية والعملية وفي إنتظار أي ملاحظات تقدمونها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 09/19/26 الاقسام قسم الأكسيس  

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

إذا جربت حذف وإعادة إستيراد النموذج frmSearch ولم ينجح فلو أمكن ترسل مثال للتأكد

المفروض يعمل في أي نسخة المشكلة الذي لاحظتها من رسالة الخطأ جملة SQL والتي تظهر بهذا الشكل Left(Trim(SearchName) As SearchLetter FROM (SELECT Nr AS SearchNo, Name_S AS SearchName FROM tbl_student1 ORDER BY Name_S) AS SubQuery WHERE SearchName IS NOT NULL ويفترض أن تكون بهذا الشكل SELECT DISTINCT Left(Trim(SearchName),1) As SearchLetter FROM (SELECT Nr AS SearchNo, Name_S AS SearchName FROM tbl_student1 ORDER BY Name_S) AS SubQuery WHERE SearchName IS NOT NULL فلو قارنا بين الجملتين سنجد عدم وجود عبارة SELECT DISTINCT وكذلك دالة Left كانت خاظئة عموماً جرب حذف النموذج frmSearch وإعادة إستيراده من القالب وإن شاء الله تحل المشكلة

هذه الكلمات هي أكبر جائزة فهنيئاً لكما أخي @Foksh وأخي @ابوخليل

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

والله ملاحظ هذا الشيء فالمنتدى أصبح شبه مهجور

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

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

جربت الملف المرسل وبالفعل تم تشغيل ملف الأكسس في الحالتين زلكن الفكرة هنا ليس أنه يتم تشغيل accde على النواتين بل أن العملية تعتمد على برنامج التحزيم نفسه فهو يقوم بتشفير ملف accdb وتحويله إلى accde بناء على نواة الأوفيس المنصب على الجهاز إذا فمن ناحية لم يتم التغلب على المشكلة نفسها وإنما من ناحية أخرى فقد تم الإلتفاف علي المشكلة بطريقة ذكية جداً للوصول للهدف رائع بشمهندس فادي

إحساسي مايخيبش شكلك لقيت الحل وباقي على الحلو تكة وإحنا في الإنتظار

ارجو توضيح نقطة فعند إعادة قراءة الموضوع حصل عندي لبس في هذه النقطة فهل تقصد أنه بدل أن يكون عندك نسختين Accde يكون عندك ملف واحد Accdb مؤمن تأمين قوي جداً ؟ (لأن هذا مافهمته من كلامك) فإذا كان قصدك أن يكون الإمتداد Accde فبتأمين أو بدون تأمين من الصعب جداً إذا لم يكن من المستحيل تشغيل ملف Accde تم تشفيرة بإستخدام نواة مختلفة وهذا ما يؤكده الذكاء الصناعي ولكن إذا كنت تقصد أن يكون الملف بإمتداد Accdb ويتم تأمينه تأمين قوي ليصبح من الصعب جداً على أي شخص آخر الوصول إلى عرض التصميم أو التعليمات البرمجية الخاصة به فهذا الأمر ممكن لأن الإمتداد Accdb سيعمل في النواتين ويبقى التحدي في طريقة التأمين