[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

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

[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل هذا مثال وضعت لك عددا من التكست بوكس وبوتن 

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

وان كانت كلها مملوءة ستظهر رسالة تم الاعتماد

[m.n.hakami]

لا عدمناك اخي

[ابراهيم ايبو]

الحمد لله والشكر لله

 ولك اخي الكريم