إدخال البيانات في الأكسس

[بوكفوس عبدالسلام]

السلام عليكم ...

هل من إمكانية عند إدخال البيانات بالعربية في الخانات التي يتوجب الكتابة فيها بالعربية تكون لوحة المفاتيح بالعربية ألياً ، و العكس في الخانات التي يتوجب الكتابة فيها  باللغة الأجنبية تكون لوحة المفاتيح أجنبية؟

مثال :

اللقب و الإسم تكون لوحة المفاتيح عربية .

Nom et Prénom تكون لوحة المفاتيح بالإنجليزية أو الفرنسية. 

[Barna]

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

طيب في اعلا الصفحة ضع هذا .....

Option Compare Database
#If VBA7 Then
   Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
#Else
   Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
#End If

ثم في حدث عند التركيز على مربع النص العربي ضع هذا .....

On Error Resume Next
Dim kbd As Long
kbd = GetKeyboardLayout(0)
kbd = Hex(kbd)
If Right(kbd, 1) <> 1 Then
   SendKeys "%+"
End If

 

[بوكفوس عبدالسلام]

لاحظ الخطوات ( الصور 01 و 02 و 03 )  التي إتبعتها  ، و لكن الخانات تكتب فبها بكلتا اللغتين؟

[Barna]

اخي الكريم اقرأ ردي السابق

1 ساعه مضت, Barna said:

 

ثم في حدث عند التركيز على مربع النص العربي ضع هذا .....

On Error Resume Next
Dim kbd As Long
kbd = GetKeyboardLayout(0)
kbd = Hex(kbd)
If Right(kbd, 1) <> 1 Then
   SendKeys "%+"
End If

 

 

[Hamtoooo]

ليش تصعيب الامور ودائما اللجوء إلى الاصعب 
بينما هناك طريقه سهله ولا تحتاج إلى كل هذا الكم من الاكواد

كل ما عليك فعله 
حدد مربع النص الذي تريده

ثم اذهب إلى خصائص > تنسيق > اسفل شي تجد لوحة المفاتيح واختر اللغه المطلوبه لهذا الحقل

ونفس الفكره روح للحقل الثاني واختر اللغة التي تريده 

الان وانت تنتقل بين الحقول ستتغير اللغه اليا
 

[بوكفوس عبدالسلام]

السلام عليكم ...

هذا جيد بالنسبة للوحة المفاتيح تتغير مباشرة حسب تحديدك للغة الحقل المراد الكتابة عليه ، و لكن هذه الطريقة يمكن تغيير لوحة المقاتيح و الكتابة بأي لغة تريد ، ولكن من المفروض أن لا يقبل إلاّ اللغة التي حدّدتها ، و هذا ما أريده بالضبط. من شؤالي .

وشكراً.

 

 

 

 

تم تعديل أكتوبر 10, 2022 بواسطه بوكفوس عبدالسلام

[Barna]

8 ساعات مضت, بوكفوس عبدالسلام said:

السلام عليكم ...

هذا جيد بالنسبة للوحة المفاتيح تتغير مباشرة حسب تحديدك للغة الحقل المراد الكتابة عليه ، و لكن هذه الطريقة يمكن تغيير لوحة المقاتيح و الكتابة بأي لغة تريد ، ولكن من المفروض أن لا يقبل إلاّ اللغة التي حدّدتها ، و هذا ما أريده بالضبط. من شؤالي .

وشكراً.

وعليكم السلام ... كان المفروض منك ادراج ملف مثال ليتم التعديل .... على العموم تفضل هذا المثال ... طبقه على ملفك .....

 

Bar11.mdb

[بوكفوس عبدالسلام]

السلام عليكم ...

بخصوص الملف فإنني أدرجت قاعدة بياناتي في إحدى مشاركاتي الأسبوع السابق تحت عنوان ( شريط القوائم في الأكسس ) .

أما بخصوص مثالك فيمكن الكتابة بالعربية في خانة '' دائما إنجليزي ''  ، أما  '' دائما عربي '' فلا يمكنك الكتابة لا بالعربية و لا بالأجنبية ( صورة مرفقة ) . 

ملاحظة : الأكسس المستعمل لدي 2010 و النواة 64 بت ( Bits ).

تم تعديل أكتوبر 11, 2022 بواسطه بوكفوس عبدالسلام

[Barna]

1 ساعه مضت, بوكفوس عبدالسلام said:

السلام عليكم ...

بخصوص الملف فإنني أدرجت قاعدة بياناتي في إحدى مشاركاتي الأسبوع السابق تحت عنوان ( شريط القوائم في الأكسس ) .

أما بخصوص مثالك فيمكن الكتابة بالعربية في خانة '' دائما إنجليزي ''  ، أما  '' دائما عربي '' فلا يمكنك الكتابة لا بالعربية و لا بالأجنبية ( صورة مرفقة ) . 

ملاحظة : الأكسس المستعمل لدي 2010 و النواة 64 بت ( Bits ).

طيب ... جرب الملف .....

 

Bar11.mdb

[بوكفوس عبدالسلام]

السلام عليكم ...

ما زال الإشكال على حاله لم يتغيّر شيء.

[Moosak]

6 ساعات مضت, Barna said:

طيب ... جرب الملف .....

 

هذا الملف يعمل لدي بشكل جيد .. 🙂 

[أبو ألين]

6 ساعات مضت, Barna said:

طيب ... جرب الملف .....

يعمل بشكل ممتاز .

تأكد يا اخي الكريم ان الملف ليس محظور حتى يعمل بالشكل المطلوب.

بعد تحميل الملف اذهب لخصائص الملف ثم اعمل check على unblock .

[بوكفوس عبدالسلام]

السلام عليكم ...

قاعدة بياناتي  منجزة من طرفي من الألف إلى الياء ، فكيف يكون الملف محضور ؟

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

[abouelhassan]

في 11‏/10‏/2022 at 20:35, بوكفوس عبدالسلام said:

السلام عليكم ...

ما زال الإشكال على حاله لم يتغيّر شيء.

استاذى نفس المشكلة واجهتنى

فى دائما لغة انجليزية يقبل العربية

وفى لغة عربية دائما لايكتب اصلا

احترامى

[AlwaZeeR]

المرفق يعمل بكفاءة وبشكل ممتاز

 

[abouelhassan]

37 دقائق مضت, AlwaZeeR said:

المرفق يعمل بكفاءة وبشكل ممتاز

 

طيب فين المشكلة استاذى عندنا 

احترامى

 

 

[AlwaZeeR]

8 ساعات مضت, abouelhassan said:

طيب فين المشكلة استاذى عندنا 

احترامى

قد يكون الاوفيس لديك بحاجة لتحديث والله اعلم

لان المرفق يعمل بشكل ممتاز على اكثر من اوفيس واكثر من نواه

حاول تجربته على اوفيس يختلف عن 2010

::

تحياتي

[abouelhassan]

5 ساعات مضت, AlwaZeeR said:

قد يكون الاوفيس لديك بحاجة لتحديث والله اعلم

لان المرفق يعمل بشكل ممتاز على اكثر من اوفيس واكثر من نواه

حاول تجربته على اوفيس يختلف عن 2010

::

تحياتي

اوفيس 365

نفس المشكلة 

احترامى لحضرتك