اريد كود يجبر المستخدم على ادخال معين فى التيكست بوكس

[إبراهيم ابوليله]

الاخوه الكرام

كان لى طلب على الرابط

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

وبالفعل كلها اكواد صحيحه

ولكن المشكله فى تفعيل المسطره

او بمعنى انه عند الكتابه لا يمكن استخد ام واضافى مسافه

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

[أبو حنــــين]

السلام عليكم

جرب هذا الكود لكتابة الحروف الانجليزية فقط

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    On Error Resume Next
    Dim ABOUHANINE As String
    ABOUHANINE = "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    KeyAscii = Asc(Chr(KeyAscii))
    If InStr(ABOUHANINE, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
    End If

End Sub

[إبراهيم ابوليله]

اخى ابو حنين

دائما تكون موجود فى المواقف الصعبه

لتهون علينا اعبائنا

بارك الله فيه

[عبدالله باقشير]

السلام عليكم

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

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0
End Sub

تحياتي

[إبراهيم ابوليله]

السلام عليكم

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

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0
End Sub

تحياتي

اخى عبدالله

يشرفنى مرورك الطيب

وفكره جميله

واضافة جيده بارك الله فيك

ولكن هذا الكود يعيبه عدم كتابة

ء

فعند كتابة

اسماء

لايكتب الا( اسما) فقط

[شوقي ربيع]

السلام عليكم 

اذا كنت تريد تفعيل المسطرة فكل ماعليك هو ترك فراغ بين الحرف الأول المطة 

مثال

If ChrW(KeyAscii) Like "[!A -Z]" Then KeyAscii = 0

مثال اخر

هذا الكود لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/.

If ChrW(KeyAscii) Like "[!A .-Z]" Then KeyAscii = 0 

ارجو ان تكون قد وصلت الفكرة

تحياتي

[إبراهيم ابوليله]

الاخ والاستاذ شوقى

مشكورا على متابعة الموضوع

وتحيه للاستاذ الكبير

الذى لا يتاخر فى تقديم المعلومه

للاخرين

بارك الله فيك