10-11-19, 06:43 PM
كود :
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
كود :
IF Ev_text1.Value = "" AND Ev_text1.Visible=TURL Or Ev_text2.ValueI AND AND Ev_text2.Visible=TURL
بيكون الكود طويل مره اتمنى يكون حلقة تكرار ِ