الاخوه الكرام
كان لى طلب على الرابط
http://www.officena.net/ib/index.php?showtopic=50774&hl=
بعنوان
الاخوه الافاضل
هل يوجد كود يجبر المستخدم على
الكود الاول
اجبار المستخدم على ادخال الحروف باللغه العربيه
الكود الثانى
اجبار المستخدم على ادخال الحروف باللغه الانكليزيه
وقد تفضل الاساتذة شوقى ربيع
بالرد عليا
كالاتى
1 لجعل التكست بوكس لاتقبل الا الارقام
If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0
2 لجعل التكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة
If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0
3 لجعل التكست بوكس لاتقبل الا الحروف الانجليزية الكبيرة
If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0
4 لجعل التكست تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا
If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0
5 لجعل التكست بوكس لا تقبل الا الحروف العربية
If ChrW(KeyAscii) Like "[!أ-ي]" Then KeyAscii = 0
وبالفعل كلها اكواد صحيحه
ولكن المشكله فى تفعيل المسطره
او بمعنى انه عند الكتابه لا يمكن استخد ام واضافى مسافه
فهل يمكن تعديل الكود ليقبل اضافة المسافات