تقييد المستخدم لكتابة نص "عربي" في TextBox

[sandanet]

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

 

تحية طيبة وبعد ...

 

كل عام وأنتم بخير وبصحة وسلامة إن شاء الله .. اتمنى ان يكون عام 2021 عام خير على أمة محمد أجمعين.

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

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

Select Case KeyAscii
Case 48 To 57, 65 To 90, 97 To 122  ' Numbers and english letters
    KeyAscii = 0
Exit Sub
End Select

الارقام من 48 الى 57 هي للأرقام والباقي للحروف الانجليزية

 

تحياتي 

تم تعديل ديسمبر 25, 2020 بواسطه sandanet

[محمد التميمي]

منذ ساعه, sandanet said:

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

 

تحية طيبة وبعد ...

 

في بعض الأحيان قد تحتاج الى فرض قيود صارمة على المستخدمين العابثين ومنعهم من حرية الاختيار عند ادخال بيانات معينة   

 

وعليكم السلام

كل عام وانتم واعظاء المنتدى بالف خير

بارك الله بجهودك الكد يعمل بامتياز

 

تم تعديل ديسمبر 25, 2020 بواسطه محمد التميمي

[jo_2010]

المعلم الجليل والخبير الفاضل sandanet

كل سنة وانت طيب بمناسبة عيد الاضحى المبارك اعادة الله علينا جميعا بالخير 

كيف يكون شكل الكود اذا اردنا ان نكتب ارقام فقط فى مربع نص

 

كيف يكون شكل الكود اذا اردنا ان نكتب انجليزى فقط فى مربع نص اخر

 

[د.كاف يار]

2 ساعات مضت, jo_2010 said:

المعلم الجليل والخبير الفاضل sandanet

كل سنة وانت طيب بمناسبة عيد الاضحى المبارك اعادة الله علينا جميعا بالخير 

كيف يكون شكل الكود اذا اردنا ان نكتب ارقام فقط فى مربع نص

 

كيف يكون شكل الكود اذا اردنا ان نكتب انجليزى فقط فى مربع نص اخر

 

الجواب موجود في نفس الموضوع

Select Case KeyAscii
Case 48 To 57
    KeyAscii = 0
Exit Sub
End Select

 

[عبدالقدوس48]

السلام عليكم

تفضل أخي