كيف يتم جعل لغة الكتابه ( الافتراضيه) هي اللغه العربيه بدلا من كل مره نحول من انكليزي الى عربي

السلام عليكم

تفضل اخي الكريم

Opetion Compare Database

ضع هذا الكود تحت الجملة السابقة في محرر الاكواد

Private Declare Function ActivateKeyboardLayout Lib _

"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

Private Const Arabic = 1025 'arabic keyboard language layout

Private Const eng = 1033 'english(united states)keyboard language layout

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

Private Sub Form_Load()

Call ActivateKeyboardLayout(eng, 0)

End Sub

لتغيير لغة الادخال من العربي الى الى الانجليزي استعمل الكود مثل ماهو عليه و لتغيير من الانجليزي الى العربي غير الباراميتر فقط الى Arabic

Private Sub Form_Load()

Call ActivateKeyboardLayout(Arabic , 0)

End Sub

الاخ العزيز// سلامنا لكم//

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

 واود ان اوضح التالي

1 - النموذج 1Frm كل حقوله بالعربي عدا حقل  Rmz من فضلك اريد عند انتقال الكيرسا الى هذا الحقل لادراج معلومات فيه تصبح لغة الكتابه الانكليزيه وعند الانتقال للحقل الذي يليه تصبح العربيه

2 – النموذج   2Frm   كل الحقول التي فيه بالعربي اذا تكرمت علي وجعلته بمجرد الفتح تصبح لغة الكتابه العربيه 0

اكرر شكري وتقديري لك اخي العزيز  و +1

SalamnaLkm.zip

السلام عليكم

اخى العزيز

فى حدث عندالتنسيق للحقل الذى تريده

اختار اتجاه القراءه من اليمين الى اليسار

وكذلك لغة لوحة المفاتيح اجعلها العربيه

ارجو ان يكون هو المطلوب باذن الله

لاتنسانا من الدعاء والتقيم

السلام عليكم

تفضل اخي الكريم

ملفك بعد التعديل

SalamnaLkm-up.rar

السلام عليكم

تفضل اخي الكريم

وهذه طريقة ثانية بدون اكواد

حسب شرح الاخت سما

بارك الله بها

SalamnaLkm-up2.rar

السلام عليكم 

تم التعديل على المرفق ليتناسب مع طلبك

SalamnaLkm.zip

سيدتيsama 202    المحترمه

سادتي  / سلامنا لكم / و / عبدالله المجرب  /   المحترمين

السلام عليكم ورحمة الله وبركاته

1 - كله تمام 100 %   جزاكم الله الف خير على هذه النخوه السريعه  وتستاهلون  ليس فقط + 1 وانما تستاهلون ماي العين لانني من المؤمنين جدا بالمثل القائل من علمني حرفا ملكني عبدا .

2-  لكن تفاجات برساله من المنتدى بان رصيدي غير كافي لاعطاء + 1  على كل حال انا مديون لكم بذلك في الايام اللاحقه .

تحياتي لكم وحفظكم الله برعايته

اقتباس

 وانما تستاهلون ماي العين

تدلل عيني