تقييد تكست بوكس بكلمة

[محمد الورفلي1]

السلام عليكم

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

تقييد تكست بوكس بكلمة.xls

[احمد بدره]

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

 يمكن عمل ذلك في الحدث

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "اعدادي" And TextBox1.Value <> "ثانوي" Then
MsgBox "عفوًاالكلمة المكتوبة خطأ من فضلك أعد كتابتها بشكل صحيح"
TextBox1.Value = ""
TextBox1.SetFocus
End If

End Sub

أي أنه بعد الكتابة والانتقال إلى أي شيء آخر إذا كانت الكتابة خطأ يعطي رسالة ويقوم بمسح الذي كتبته وعليك كتابة الاسم الصحيح

تقييد تكست بوكس بكلمة.xls

[محمد الورفلي1]

شكراً

تمام التمام