biskra

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

نماذج جميلة و خفيفة الوزن, أعجبت باللون الفاتح لأنه أظهر تدرج الألوان بوضوح.

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

ربما هذا الرابط يفيد بعض الشيء http://www.w3schools.com/sql/sql_groupby.asp

هذا هو الجزء الذي يهمك Dim ctr As Control For Each ctr In Controls ctr.KeyboardLanguage = 2 'إذا كان عندك أكثر من لغة فيجب التغيير في هذا الرقم حتى تحصل على اللغة العربية ctr.TextAlign = 3 ctr.ReadingOrder = 2 جربه في حدث عند فتح النموذج مثلا.

المثال المرفق من طرف أخينا أبا عون ممتاز و يمكن أخي اللامي أخذ الجزء الذي يهمك منه و ووضعه في حدث عند الفتح أو التحميل للنموذج حتى لا تكون هناك ضرورة لستعمال زر التبديل.

ما فيش أسهل من هذا 1 استورد الوحدة النمطية الى ملفك و اسمها basCloseForm 2 افتح النموذج الخاص بملفك في وضع التصميم 3 افتح النموذج الذي رفعته في وضع التصميم 4 قم بنسخ الزر فقط ثم قم بلصقه فوق نموذك 5 حفظ التعديل 6 تشغيل مباشرة و سوف تحقق الغرض

لا اذا تعبت مع خصائص كل حقل فعند نقلها الى جهاز آخر فانها تحافظ على نفس الخصائص,أي اذا حقل 1 لوحة المفاتيح عربي و الحقل 2 لوحة المفاتيح انجليزي فان الملف يحافظ على هذه الخصائص حتى بعد نقلها الى جهاز آخر و هذا بالتجربة.

مثال جميل جدا و تصميم جذاب , بارك الله فيك.

في المثال المرفق يوجد نموذج به حقلين, ابدأ بالكتابة في الحقل الأول و لاحظ ماذا يحدث؟ سوف تلاحظ أن حقل النص يتقلص تلقائيا عند بداية الادخال ليتمدد تلقائيا عند مواصلة الكتابة. في التقرير فالذي يحدث هو العكس, فالأرقام في الحقل الموجود على اليمين يتقلص حجمها ليصل …

هذا مثال للخروج من النموذج بطريقة جذابة فهو يتمزق الى مربعات بعد الضغط على زر الخروج, ميزته أنه لا يؤثر على النظام و لا على الذاكرة. لستعماله انسخ استورد الوحدة النمطية و ضغ الكود الموجود في حدث عند الضغط على زر الخروج فقط. مثال لغلق النموذج بطريقة جذابة.rar

طيب هذا مثال عن عملية التوزيع يا الله ممكن يعطيك أفكارا كثيرة يصلح لأي شيء اذا عرف مضمونه و هو دائما يتعلق بنفس الكرة بس يتطلب كثيرا من التركيز Dispatch.zip

هذا مثال جميل جدا تمكنت من العثور عليه من موقع أجنبي و قد أعجبني كثيرا عند فتحه سوف تلاحظ نموذج معروف لكل من تعامل مع الأكسس و هو النموذج الذي يتضمن خريطة العالم, امر عادي ,لكن في اليسار سوف تلاحظ مجموعة كبيرة من الليبلات labels قم بوضع المؤشر على أي منها و أس…

نعم أخي اللامي القوس الأحمر معناه رقم اليوم الحالي.

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

المثال المرفق يتضمن طريقة بسيطة لادخال التاريخ عند عملية البحث اذا المعيار هو التاريخ من و الى تاريخ معين, سوف تضفي جمالا على النموذج و تتجنب صعوبة ادخال التاريخ. شرح الاستفادة موجود على النموذج ببعد عملية تعريبه, المثال من موقع أجنبي. Calendar2k.rar

تفضل بالمطلوب و بطريقة أسهل بواسطة الكود التالي , دائما في حدث عند الفتح للنموذج الذي نريد اذا فتحناه يغلق بقية النماذج و يمكن تطبيقه على أي نموذج فقط نغير اسم النموذج Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each obj In …

اليك الطريقة التالية قم بنسخ الوحدة النمطية التالية و قم بحفظها بأي اسم تريده Function fIsLoaded(ByVal strFormName As String) As Boolean If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = Tr…

نظرا لكون رفع الصور للمنتدى موقوف مؤقتا فانني أضع بين أيديكم مجموعة من الصور مع شرح بسيط لكيفية تثبيت الأداة و تشغيلها و أي سؤال مستعد للجواب. ملف تثبيت وظيفة اضافية.rar

الأداة تحتوي على عدة مزايا بس تتطلب نوع من التدريب للسيطرة عليها, و يجب تسجيلها من محرر فيجوال بيسك و سوف تظهر امكانياتها في رسائل التنبيه.