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

[ماجدجلال]

السلام عليكم

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

[zahof]

تستطيع ذلك بوضع الكودالتالي في Generalالخاص بكود النموذج

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

وعند الفتح للغة العربية تضع:

LoadKeyboardLayout "00000401", 1

وللانجليزية تضع :

LoadKeyboardLayout "00000409", 1

تحياتي

ZAHOF

[ماجدجلال]

شكرا لك اخي العزيز

ان شاء الله ان الكود ينجح ,

جزاك الله كل خير ,

[ماجدجلال]

اخواني اين اضع الكود الاول

لم اجد كلمة General

شكرا لكم

[ماجدجلال]

للرفع

[يوسف أحمد]

اخي / ماجد جلال

بصراحة سؤال جميل واجابة اجمل من الاخ الكريم Zahof

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

بخصوص General ستجد في اعلى الصفحة جملة Option Compare Database ضع الكود تحتها

سيظهر الكود كما بالاسفل

Option Compare Database
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Option Explicit

واليك مثال لما تفضل به الاخ الكريمZahof مشكوراً

dblanguageset.rar

[ماجدجلال]

شكرا لك اخي الكريم يوسف

وشكرا للاخ Zahof

وشكرا لكل الخوان هنا جميعا ,, جزاكم الله عنا كل خير ولكم منا الدعاء في ظهر الغيب

تم تعديل أكتوبر 8, 2006 بواسطه ماجدجلال