طلب معالجة كود شرطين وحلقة تكرار

[M.NHAKAMI]

Private Sub CommandButton2_Click()

 If EVAL.EV_Label1.Caption = "" Then
   EVAL.Ev_text6.Visible = False
   Else
   EVAL.Ev_text6.Visible = True
    End If
end sub

يا اخوان عندي الكود التالي اذا لم تكون في label قيمه يختفي textbox  الكود يعمل لكن المشكله انه علامة " " بعض الاحيان عندما تحذف القيمه اللتي بداخلها يبقى في مسافه فراغ space فلا يختفي textbox هل فيه شي اجعله بدل من علامة التنصيص "" يدل على انه لا توجد قيمه 

[الـعيدروس]

Private Sub CommandButton2_Click()

 If trim(EVAL.EV_Label1.Caption) = "" Then
   EVAL.Ev_text6.Visible = False
   Else
   EVAL.Ev_text6.Visible = True
    End If
end sub

هذا التعديل

[M.NHAKAMI]

سلمت يا خالي 

 

[M.NHAKAMI]

السلام عليكم عندي الكود التالي اريد منه  اذا كان   (textbox.Visible =True)  فإنه اذا قيمته فارغه تاتي رساله انه لا يمكن الارسال يوجد حقول فارغه واذا الجميع  به قيمه تاتي رساله تم الارسال  

Private Sub CommandButton1_Click()
Dim D
Dim Tx As Control
For i = 1 To 4
If TypeOf Me.Controls(d) Is MSForms.TextBox Then
               Me.Controls(d) = ""
                    MsgBox ("لا يمكن الارسال بعض الحقول فارغه  ")
                     Exit Sub
                End If
        Next
        MsgBox ("تم الاسال ")
End Sub

حاولت ان اجعل الكود بالبدايه يتعرف على الحقول الفارغه لكم لم استطع لا اعرف اين الخطأ 

دون قيمه.xlsm

تم تعديل نوفمبر 12, 2019 بواسطه M.NHAKAMI

[الـعيدروس]

السلام عليكم

تفضل

Private Sub CommandButton1_Click()
Dim c, ii, i
Dim Tx As Control
ii = 0
For i = 1 To 4
If TypeOf Me.Controls(i) Is MSForms.TextBox Then
c = Me.Controls(i) = "": If c Then ii = ii + 1
End If
Next
If ii Then MsgBox ("لا يمكن الارسال بعض الحقول فارغه  ") Else MsgBox ("تم الاسال ")
End Sub

 

[M.NHAKAMI]

شكرا تتم التجربه