اجبار المستخدم على كتابه شي معين في التكست ( Text )

تفضل مع إن سؤالك غير واضح

if Text1="074" then
هنا تضع الكود إذا كانت الأرقام صحيحة
else
msgbox "يوجد خطأ في الرقم"
exit sub
eng if

طبقها مع بقية الخانات

السلام عليكم

اعمل list تحتوى على الثلاث ارقام

079 و 077 و 078 و 074

و مربع تكست يكمل فية باقية الرقم التليفون دة حل

و ممكن تعمل حلقة case معاك

استخد م الحدث validate كما يلي

Private Sub Text1_Validate(Cancel As Boolean)
If  Text1 <> "074" or  Text1 <> "077" or  Text1 <> "078" or  Text1 <> "079"Then
MsgBox "err"
Cancel = True
End If
End Sub

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