عدد الحروف فى التكست بوكس

[خالد الشاعر]

السادة الخبراء

عندى فورم و فى TextBox3 اريد الادخال لا يقل عن

عدد 14 رقم واذا كان اقل من 14 رقم لا ينتقل الى

ال TextBox التالى

جربت هذا الكود ولكنة يفهمة ان لا يقل عن عدد 14

If TextBox3.Text = MaxLength < 14 Then

ولكم جزيل الشكر

وجزاكم الله خيراً

[عبد الفتاح كيرة]

If TextBox3.Text.MaxLength < 14 Then

[خالد الشاعر]

اشكرك استاذ كيماس

على سرعة الرد و الاهتمام

و لكن عند التجربة يعطى الكود مشكلة

مرفق ملف للتوضيح

Book1.rar

[عبد الفتاح كيرة]

If TextBox3.TextLength < 14 Then

MsgBox "أدخل الرقم بصورة صحيحة"

Cancel = True

End If

الخاصية المستخدمة هى

TextLength

[أبو محمد أشرف]

الملف بعد التعديل وتوجيهات الأستاذ كيماس

Book1الملف بعد التعديل وتوجيهات الأستاذ كيماس.rar

[علي سالم 75]

السلام عليكم

كود لادخال الارقام فقط في التاكست

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

    KeyAscii = 0

End If

End Sub

[خالد الشاعر]

الشكر للاستاذ كيماس

وكل السادة المشاركين فى الموضع

جزاكم الله خيراً