منتصر الانسي

أنت هنا تريد أتمتة عمل مرتبط بعمل خارج نطاق التطبيق بمعنى أنت لاتعلم ماذا سيكون رقم الدفتر الجديد هل هو الرقم التالي أم رقم سابق كان قد تم السهو عنه من قبل امين الصندوق أو أو أو .... هذا يعني أن إحتمالات المتغيرات الخارجية ستكون كثيرة لذا فأفضل خيار لديك هو أن تجعل البرنامج يقوم بقراءة آخر إيصال والإحتفاظ بآخر رقمين منه ثم إضافتهما لرقم الإيصال الجديد وللحصول على النتيجة وفق طلبك هذا قمت بتعديل ملفك الأصلي للحصول على هذه النتيجة - عند إدخال رقم الإيصال سيقوم النموذج بالتعامل معه بناءاً على الرقم - إذا كان أقل من أو يساوي 1000 سيتم إرجاع رقم آخر إيصال تم إدخاله وإضافته للرقم الذي قمت بإدخاله (عندما يكون 1000 سيبدأ الدفتر التالي) - قد تضطر أحيانا لتصحيح رقم إيصال كنت قد أدخلته بالغلط عندها يمكنك إدخال الرقم كاملاً (5 أرقام أي أكبر من 1000) عندها سيتم الإحتفاظ بالرقم كما أدخلته - إذا صادف وتم بدء العمل بدفتر برقم سابق أو ليس الرقم الذي يلي الرقم الحالي عندها ستكون مضطر لإدخال الرقم كاملا (أو تصحيح الرقم) لأول إيصال فقط وبعدها سيتم التعامل مع هذا الرقم الجديد - جرب إجراء كل التعديلات التي يمكن أن تواجهها في العمل وتأكد من أن النتائج ستكون مطابقة للنتائج المرجوة منها أم لا Lab.accdb

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

السؤال هنا هل سيكون الرابط الى موقع المدينة في الخريطة على Google Earth مثلاً أم سيكون رابط إلى ملف في الجهاز؟ وإذا كان الرابط مرتبط بملف فهل سيكون موقع الملف ثابت أم موقع مرجعي (مثلاً أن يكون في نفس المجلد الخاص بالتطبيق يتغير موقعه بتغير موقع المجلد)؟ بناءاً على الإجابة سيكون الحل تحياتي

راااائع والله تطبيق عبقري لفكرة مجنونة كما أسميتها

جرب الان قمت بكل التعديلات المطلوبة Bilal_Yamen.rar

عندي لم تظهر اي مشكلة تأكد من البيانات التي تستوردها

تفضل المرفق ولكن يجب ملاحظة أن التعديل ضروري يتم في الاكسل ايضا لأنه يتم إستيراد بيانات كل حقل من العمود الذي يقابله بنفس الاسم في الاكسل Bilal_Yamen.rar

يجب توحيد المسمى في الجدول وفي اكسل وفي الكود Bilal_Yamen.rar

قم بإزالة علامتي التنصيص حول كلمة red لتصبح بهذا الشكل <font color=red> بدلاً من هذا <font color='red'> تحياتي

تم تعديل مثالك ليتم إظهار الجداول في القائمة وحذف بيانات الجدول المحدد وإعادة الترقيم من 1 نسخ قاعدة البيانات قبل الحدف.accdb

لم افهم قصدك أرجو التوضيح أكثر

أحلف بالله اخي @ابوخليل وكأنك قرأت أفكاري كنت قد فكرت بهذا الشيئ أثناء عملي بالأداة ولكني تراجعت لأكثر من سبب فلو لاحظت من كلام الأخ @Moosak نجد أن وظيفة التعريب لن يحتاجها الجميع . بالإضافة لهذا فقد حبيت أن ينحصر عمل الأداة بوظيفة واحدة فقط بحيث يمكن فصل وظيفة تخصيص تسمية الأزرار بأداة منفصلة وأقول (تخصيص التسمية وليس التعريب) لأنها وظيفة أشمل من مسألة التعريب بل يمكن من خلالها تخصيص المسميات إلى أي تسميات أخرى . المشكلة الوحيدة فيها سيكون محدودية النص فلا يمكن أن تكون التسمية طويلة كما بالصورة يعني لو كانت التسمية كلمة أو كلمتين فلابأس ولكن أكثر لا ولكن هذا لا يمنع أن الكثير من الأعضاء سيجدونها مفيدة وسيحتاجونها في أعمالهم. لذا أتمنى من الأستاذ @ابوخليل أن يقوم برفد مكتبة الموقع بهذه الأداة لتعم الفائدة وللمرة الثانية يحرجني أخونا @Moosak بكلامه الراقي والجميل والذي يجعلني أنسى أي تعب ويدفعني للقيام بالمزيد الف شكر للجميع

أعجز عن وصف شعوري بهذا الكلام من أستاذ كبير مثلك 🥰

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

اعرض الملف أداة إنشاء صيغة أوامر مربع الرسائل MsgBox القياسي {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة بسيطة ولكن فائدتها كبيرة لما تختصره من الوقت والجهد في كتابة الأوامر الخاصة بمربعات حوار الرسائل MsgBox خصوصاً في حالة النصوص الطويلة بإستخدام هذه الأداة لن تحتاج إلا إلى إدخال عنوان الرسالة والنص الخاص بها وتحديد بقية الخيارات من خلال تحديدها من قائمة الخيارات بدون الحاجة إلى أي معرفة برمجية وعند الإنتهاء من تحديد الخيارات يمكنك إستعراض الرسالة للتأكد من ظهورها بالشكل المطلوب وعندها كل ماعليك هو نقر زر لنسخ صيغة الأمر والذهاب للمكان المطلوب في تطبيقك ولصقه بإمكان الأداة القيام بإنشاء صيغتين للأمر 1- صيغة الأمر البسيطة والتي ستكون بالشكل التالي MsgBox "نص الرسالة",vbOk,"العنوان" 2- صيغة الأمر ضمن شرط If وستظهر عندما تحتوي الرسالة على أكثر من زر لتصبح بالشكل التالي If MsgBox ("نص الرسالة",vbOkCancel,"العنوان")=vbOk Then End If كذلك ستجد خيارات إضافية كإمكانية تحديد إتجاه الرسالة لتناسب الرسائل باللغة العربية أو الإنجليزية وإمكانية الإحتفاظ بالنص في متغير والذي يكون مفيداً للغاية عند العمل مع النصوص الطويلة والتي تحتوي على أكثر من سطر وغيرها من المزايا الإضافية التي ستجدونها من خلال تجربتكم للأداة. كما ذكرت فالأداة بسيطة جداً لدرجة أني لم أحتاج لإضافة أي تعليمات توضيحية لطريقة عملها فهي لاتحتوي إلا على نموذج واحد فقط ويمكنك تخصيص قاعدة بيانات مستقلة للقيام بمساعدتك في إنشاء الصيغ لبقية التطبيقات أو إستيراد النموذج لأي تطبيق والعمل به بكل بساطة. كفائدة إضافية وحتى لا تحتاج لإستيراد النموذج إلى جميع تطبيقاتك فقد أنشأت منه نسخة تعمل كوظيفة إضافية Add-In مرفق معها مستند وورد يشرح طريقة تثبيتها وإستخدامها أرجو أن تنال هذا الأداة إعجابكم وإذا كانت هناك أي ملاحظات فأرجو ذكرها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 03/26/26 الاقسام قسم الأكسيس  

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

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

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

السبب هو أن الشاشة الرئيسية مفتوحة في الوضع المشروط أي أنها تخفي خلغها الإستعلام لحل هذه المشكلة يجب أن تظهر نتيجة الإستعلام في نموذج أو تقرير وتفتحه في وضع مربغ حوار بهذه الطريقة DoCmd.OpenForm "FormName", , , , , acDialog بهذا الامر سيتم فتح النموذج وإظهاره فوق النموذج الرئيسي كل ماعليك القيام به الان هو إنشاء نموذج جديد لكل إستعلام وإستبدال السطر التالي من الكود خلف الازرار الثلاثة DoCmd.OpenQuery stDocName, acNormal, acEdit بالسطر المذكور اعلاه (طبعا بعد إستبدال كلمة FormName بإسم النموذج الذي سيحتوي نتيجة كل إستعلام)

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

غالي والطلب رخيص بإذن الله ستكون هذه هي الأداة التالية

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

تفضل اخي الكريم اخفاء و اظهار.accdb