تحويل الكود العادي لحلقة تكرار

[M.NHAKAMI]

عندي 20 texebox بنفس الاسم يختلف فقط الرقم اريد الكود التالي يكون حلقة تكرار حتى لا اكتبه 20 مره 

الكود يعني ان text لا يقبل الا ثلاثة أرقام هي 0 و4و8 

كود :

If Me.Ev_text6.Value <> 0 Or Me.Ev_text6.Value <> 4 Or Me.Ev_text6.Value <> 8 Then
MsgBox "القيمه المدخله خاطئه"
End If

[الـعيدروس]

السلام عليكم

يفضل ارفاق مثال

[سليم حاصبيا]

ربما ينفع هذا الكود

Option Explicit
Sub Lopping()
Dim txt As Object
 For Each txt In Me.Controls("TextBox")
   If Mode(txt.Value, 4) <> 0 And txt.Value < 9 Then
   MsgBox "القيمه المدخله خاطئه"
  End If
 Next
 End Sub

 

[الـعيدروس]

السلام عليكم

الى حل الغالي الاستاذ سليم ولاثراء الموضوع

شاهد المرفق

TxtBox_Tw.xlsm

[M.NHAKAMI]

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

[M.NHAKAMI]

رفعت لكم الملف اتمنى ان الكود المطلوب يكون فعال للحقول Ev_text6  الى Ev_text22 تقريبا 17 texetbox فقط   

 

تحكيم.xlsm

[الـعيدروس]

السلام عليكم

تفضل المرفق 

تحكيم1.xlsm

[M.NHAKAMI]

في الحقيقه تعلمت منك الكثير جدا 

أخي العيدروس ممكن اعرف التالي ايش يعني Option Explicit  

عندي بعض الاكواد تعطلت فاذا حذف الكلمتين تفعلت ولم يتاثر الكود الذي عملته

[الـعيدروس]

يشعر المستخدم تعريف المتغيرات 

اذا لديك متغيرات لم يتم تعريفها بـ Dim