جعل المؤشر جهة اليمين بكل الحقول

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

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

عزيزي اللامي

اضافة الى ما تفضل به اخي biskra قم بعمل الاتي

1. بعد فتح القاعده اذهب الى ادوات ثم خيارات واختر التبويب اعدادات دوليه واذا وجدت من اليسار الى البمين غيرها من اليمين الى اليسار ثم موافق

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

اختكم

زهره

biskra & zahrah

كل الشكر لكما

وجزاكما الله عني كل خير

الطريقة التي ئكرتماها أعتقد أن تختص بجهازي

وما أردته هو عند توزيع البرنامج (نسخة MDB أو EXE) أن تكون لغة الادخال التلقائية هي العربية ولا حاجة الى Alt و Shift في كل مرة .

بمعنى أن عمل الكود هو إجبار الجهاز على تغيير لغته ( طبعا إذا كان مهيأ للغتين منهما العربية ) لتتوائم مع حقول البرنامج .

هذا ما أردته

فبارك الله بكما وبعلمكما .

اللامي

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

أخي العزيز

يرجى مراجعة المرفق ففيه نموذجين

Form1 .... مثال لكيفية إضافة زر لتغيير لغة الحقول من العربية إلى الانجليزية وبالعكس

Form2 .... مثال لكيفية أن تكون جميع الحقول باللغة العربية (افتراضي ولا يمكن تغييره إلا من الخصائص)

آمل أن يكون هذا هو المطلوب، إن لم يكن كذلك أرجو التعقيب

وبالتوفيق

db.rar

بالفعل أخي العزيز

الطريقة كما ذكرتها الأخت زهرة وأكدت عليه أنت .

يجب تعديل خصائص كل مربع تحرير وسرد ومربع نص وأي كائن تتم الكتابه فيه لكي يكتب عربي ومن اليمين الى اليسار .

إذ نجحت الطريقة التي ذكرتماها لي :)

ولكن ألا توجد طريقة تغني عن الطريقة اليدوية

كود مثلا أو حتى إعلان ( ديكلير)

تحياتي

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

هذا هو الجزء الذي يهمك

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

جربه في حدث عند فتح النموذج مثلا.

سلمت يالغالي ****:)**** وسلمت يمينك

==========

استدراك

==========

قمت بوضع الكود في المكان اذي أشرت اليه

فظهر الخطأ التالي :

For without Next

فقمت بإضافة الــNext هذه

وظهر الخطأ الذي في المرفقات :

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

على كل سوف أحاول علني أجد لك حلا.