Foksh

أعي تماماً ما هي المشكلة ، لأنني أحياناً أعاني منها من كثرة الملفات التي أقوم بتحميلها من المنتدى للأخوة السائلين .. على العموم ، الملف الذي أرفقته ليس بالضرورة أن يقوم بالتعديل على لغة الترميز ، وإنما هو يقوم بحذف جميع لوحات المفاتيح التي في الريجستري في المسار Computer\HKEY_CURRENT_USER\Keyboard Layout\Preload ويقوم بإضافة فقط لوحتي مفاتيح ( العربية = حسب البلد التي تم اختيارها ، والإفتراضية من الويندوز بالترميز 00000409 = اللغة الإنجليزية ) . على العموم ، تستطيع الدخول الى الريجستري بشكل يدوي الى المسار الذي ذكرته لك سابقاً ، وإبقاء فقط ما تريده . وعلى ما قمت بتنفيذه في الأداة فإن ترميز لوحة المفاتيح العربية ( مصر ) = 00000C01 انظر الصورة للوحتي المفاتيح التي لدي ( العربية الأردن ، والإنجليزية ) والأداة السابقة لن تقوم بأي تعديل على أي تنسيقات خاصة بك سابقاً سوى لوحة المفاتيح ولغة الترميز للتأكيد على الدولة واللغة . طبعاً السبب أن بعض ملفات قواعد البيانات التي نقوم بتحميلها تأتي مرفقة بإعدادات لغة أو تخطيط لوحة مفاتيح مخصصة حسب جهاز المصدر ، خاصة إذا تم إنشاؤها أو تعديلها على أنظمة تشغيل بلغات مختلفة . فعند تشغيل الملف ، قد يقوم النظام تلقائياً بإضافة تلك اللغات لتوافق التنسيق أو الترميز المستخدم . والأمر متروك لك في النهاية بالتجربة وإعلامنا بالنتيجة .

جهاز جديد تم تسجيله على السيرفر:- ينتهي بـ 75526 وجهاز آخر ينتهي بـ 72351 ولم يطلبا التفعيل

وعليكم السلام ورحمة الله وبركاته .. تفضل هذا الموضوع يحل لك مشكلتك ، فقط اختر الدولة ، وقم بتأشير كما في الصورة وسيتم إعادة تشغيل الويندوز وإزالة كافة لوحات المفاتيح باستثناء الخاصة بالدولة التي اخترتها + اللغة الإنجليزية الإفتراضية فقط رابط الموضوع والمشاركة :- :- لا يدعم إصدارات ويندوز 7 وما دون LanguageCheck V 2.5.accdb

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

وعليكم السلام ورحمة الله وبركاته ، كمشاركة مع أفكاركم النيرة ، عدلت على فكرتي في إزالة التكرارات بهذه الأداة Smart Fillter.zip

طبعاً وللتوضيح ، حتى لا يكون هناك أي لبس في وجود 14 يوم بين التفعيلات الغير كاملة ( كما في حالة التجربة للأستاذ @محمد احمد لطفى مشكوراً ) ، يتم إضافة مدة التفعيل - للتفعيلات المحدودة ( الغير مفتوحة ) - إلى أيام النسخة التجريبية ، فهي من حق المستخدم أولاً وآخراً .. يعني 13-09-2025 + 14 يوم = 27-09-2025 التفعيل سنة كاملة = 27-09-2026

تم التفعيل أستاذنا العزيز من باب التفعيلات المتنوعة ، تم التفعيل لسنة ، وإذا سمحت لك الفرصة ، النقر على زر "تحقق من تفعيل النسخة" ، وإعلامنا بالنتيجة والمدة الحالية لديك مهندسنا الغالي .. نسختك مفعة كاملة مسبقاً 😁 ، يعني التاريخ ليس له قيمة الآن في التفعيل الكامل 😂

السلام عليكم أخي @saffar .. هذه فكرتي البسيطة التي خطرت ببالي ، جربتها وقد تقوم بإجراء إضافة سجلات وتعديلات حسب رغبتك Timetable25.zip

جهاز جديد تم تسجيله على السيرفر ينتهي بـ :- 53581 ولم يطلب التفعيل

تمااام .. بأقرب فرصة إن شاء الله

جهاز جديد تم تسجيله على السيرفر ينتهي بـ :- 30582 ولم يطلب التفعيل 😅

يعني افهم من كلامك انك ملتزم بالتصميم اللي ارفقته للجدول ؟؟؟؟ هل الصورة صحيحة كما تريد ؟؟

تم اكتشاف جهازين تم تسجيلهم على السيرفر . الأول ينتهي بالرقم 45426 والثاني ينتهي بالرقم 55558 لكنهما لم يطالبا بالتفعيل

أخي محيي ،تم تفعيل اشتراكك بنجاح .. جرب الآن الدخول الى البرنامج وانقر زر "تحقق من تفعيل النسخة" وللتأكيد انقر على زر علامة التعجب في اقصى اليسار في الأعلى ، وارسل صورة للنتيجة

وعليكم السلام ورحمة الله وبركاته ,, كجدول حصص ، هذا ما خرجت به كتجربة يمكنك تعديلها وإعادة تصميمها كما ترغب Timetable25.accdb

كلا الرقمين مختلفين أخي الكريم 😅 تحقق من الاتصال بالانترنت ، واجعل التطبيق يكمل تحميله

وعليكم السلام ورحمة الله وبركاته .. من الغريب جداً ظهور هذه المشكلة ، ولكنني أعلم بأنها بسبب اختلاف إصدار الأوفيس الذي تم إقفال الملف عليها وهو إصدار 2019 - 32 بت .. كما أرى أيضاً أنك تستعمل إصدار ويندوز 7 على ما أعتقد .. لذا سيتم تعديل النسخة 32 بقفلها على إصدار أوفيس 2010 - 32 بت - نسخة عربية في المشاركة نفسها .

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أدعوكم لتجربة فكرة جديدة تم تنفيذها من خلال آكسيس ( هذا العملاق الصغير 😅 ) . بحيث أُجري تطويراً على فكرة تدعم المبرمجين والمطورين وتمكنهم من إنشاء نظام تفعيل عن بعد ( Online - سحابي ) ؛ بحيث لا يكون على المستخدم سوى إرسال رقم معرف جهازه فقط للمطور ، وما على المطور إلى تفعيل حسابه حسب المدة ( أنواع الإشتراكات ) التي يقدمها مطور البرنامج . وعليه فإنه في هذه المرحلة ، سأطلب ممن يرغب بالمشاركة ( فضلاً وكرماً منه لا أمراً ) أن يقوم بإرسال صورة لواجهة البرنامج الذي سأرفقه تالياً ، مع رقم معرف جهازه فقط . وسأقوم بدوري بتفعيل البرنامج المؤقت له بأشتراكات متنوعة لتجربة الفكرة . وكفكرة على المطلوب ، سأبدأ بنسخة من جهازي كتجربة لتتوضح لكم آلية المشاركة .. عند فتح القاعدة لأول مرة ، سيتم الإتصال بالسيرفر لتسجيل رقم جهازك ( أول مرة فقط ) . لذا شكراً لانتظارك وصبرك 😇 بعد الإتصال بالسيرفر ، سيتم اعتماد مدة تجريبية = 14 يوم وهذه الصورة المطلوبة منك عزيزي القارئ ثم من زر النسخ ، إنسخ رمز المعرف لجهازك ، وألصقه كاملاً كما في مثالي التالي 🤗 ID-0223222033111131825422051 تم إغلاق الموضوع وحذف الملفات Clear32.zip Clear64.zip

تم تعديل النسخة 32 بنجاح شكراً للإفادة ، وبانتظار التجربة ممن لديه نسخة 32

Converter 64.zip Converter 32.zip

فعلاً .. معظم المارين من هنا قد لا يكون لهم اهتمام بهذا الموضوع ومحتواه ، ولكن على الأقل ترك أثر طيب ولو بسيط ، قد يشجع على الإستمرار .. وللأسف ملاحظتي أن هذا ما يحدث فعلاً في بعض المواضيع 😯

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

العضو الكريم يجب الالتزام بقواعد المشاركة وحيث أنه تكرر هذا التنبيه ، يجب أن يتم منح اختيار الإجابة بـ لصاحب الإجابة ، وليس لصاحب الموضوع .. تم نقل الإجابة الى صاحب الحل شكراً لتعاونك

بفضل الله ، وله الحمد

ولا يهمك ،، الأمر مختلف قليلاً فعلاً ، ولكن ليس بالتعقيد الذي تعتقده للإنتقال لأول قيمة في الليست بوكس :- If Me.Msaneed_List.ListCount > 0 Then Me.Msaneed_List.Value = Me.Msaneed_List.ItemData(0) End If وللإنتقال لآخر قيمة في الليست بوكس :- If Me.Msaneed_List.ListCount > 0 Then Me.Msaneed_List.Value = Me.Msaneed_List.ItemData(Me.Msaneed_List.ListCount - 1) End If