منتصر الانسي

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

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

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

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

جرب المرفق gelani.rar

الحل الثاني أفضل ولكن بتعديل بسيط فأنت لا تريد إبقاء النموذج مفتوح لعدم وجود أي عمل فيه لذا فالأفضل أن يكون الأمر بهذا الشكل Private Sub cmdIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) On Error GoTo ErrorHandler Dim strChr As String strChr = ProcessArabicLetters(CInt(y / Me.cmdIndex.Height * (UBound(GetLettersArray) + 1))) If Me.cmdIndex.Caption <> strChr Then Me.cmdIndex.Caption = strChr End If ErrorHandler: MsgBox (" !!!!! عفواً ،،،، لا توجد بيانات"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" DoCmd.Close acForm, Me.Name End Sub وهناك طرق أخرى لتفادي هذه المشكلة منها التحقق من وجود بيانات في الجدول المطلوب قبل فتح النموذج وذلك من حدث إستدعاء النموذج (زر الأمر أو النقر على أحد المفاتيح) أو في حدث الفتح أو التحميل لنموذج البحث الطرق كثيرة وعلى كل شخص إعتماد مايراه مناسباً له تحياتي

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

لن اقوم بأي رد في الموضوع إلا بعد أن نعرف ما المقصود بهذه العبارة

أخي العزيز الغرض من النسخة التوضيحية هو التعرف على طريقة العمل مع الأداة وأهم مايجب معرفته هو معرفة طريقة إنشاء القائمة المختصرة وطريقة معرفة نتيجة تحديد أحد عناصرها ومن خلال المثال المذكور سنعرف أن نتيجة التحديد ستظهر في المتغير intNum وبالتالي إذا إستخدمنا عبارة Select Case فيمكننا تنفيذ إجراءات تختلف بإختلاف قيمة هذا المتغير مرفق لك المثال بعد إضافة عبارة Select Case ستظهر رسالة بقيمة العنصر الذي تم تحديده وكل ما عليك هو إستبدال السطر MsgBox intNum إلى أي إجراء مطلوب فمثلاً إذا أردت عند النقر على العنصر رقم 11 أن يتم فتح تقرير Report1 فستقوم بتعديل الكود من Case Is = 11 MsgBox intNum إلى Case Is = 11 DoCmd.OpenReport "Report1", acViewPreview وهكذا لبقية العناصر تحياتي النسخة التوضيحية.rar

خدمة 5 نجوم

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

على رأي المعلق الرياضي رؤوف خليف شنو هاااااذااااا منتهى الروعة والجمال الأداة بوضعها الحالي لاتشوبها شائبة ولكن لدي ملاحظة وإقتراح الملاحظة هي إختلاف شكل رسالة التنبيه بإختلاف طريقة حفظ التعديل كما في الصورة المتحركة التالية أدري أن الماكرو يقوم برفع خطأ برقم ونص مخصصين ولكن لاحظ رقم الخطأ في أول رسالة (عند النقر على زر الحفظ) سنجد أن رقمه 3939 رغم أن الماكرو يرفع خطأ بالرقم 9991 والرقم 9992 فهل بالإمكان أن يتم رفع رقم الخطأ من الماكرو وإعتراضه عن طريق الكود ليتم معالجته بإستخدام VBA ؟ أما المقترح أن يتم إستخدام مربعات قائمة (قابلة للتحديد المتعدد) بدلاً عن مربعات التحرير والسرد وهذه الصورة ستوضح الفكرة في الأخير وكما أسلفت فإن الملاحظة والمقترح هما من باب مشاركة الأفكار ولا ينقصا من روعة الأداة بوضعها الحالي بشيئ تحياتي

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

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