[m.n.hakami]

كود :

Private Sub EV_SEND1_Click()
If Ev_text1.Value = "" Or Ev_text2.Value = "" Or Ev_text3.Value = "" Or Ev_text6.Value = "" Or Ev_text7.Value = "" Or Ev_text8.Value = "" Or Ev_text9.Value = "" Or Ev_text10.Value = "" Or Ev_text11.Value = "" Or Ev_text12.Value = "" Or Ev_text13.Value = "" Or Ev_text14.Value = "" Or Ev_text15.Value = "" Or Ev_text16.Value = "" Or Ev_text17.Value = "" Or Ev_text18.Value = "" Or Ev_text19.Value = "" Or Ev_text20.Value = "" Or Ev_text21.Value = "" Or Ev_text22.Value = "" Or Ev_text23.Value = "" Then

MsgBox "لا يمكن الاعتماد وبعض الحقول فارغه"
Else
MsgBox "تم الاعتماد"
End If

الكود التالي امامكم ما عرف كيف اجعله حلقة تكرار كذالك اضفت مع الشرط  حالة TEXTBOX Visible مثال 

كود :

IF Ev_text1.Value = ""  AND Ev_text1.Visible=TURL  Or Ev_text2.ValueI AND AND Ev_text2.Visible=TURL

بيكون الكود طويل مره اتمنى يكون حلقة تكرار ِ