تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله بالكود تحتاج حل
#1
كود :
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

بيكون الكود طويل مره اتمنى يكون حلقة تكرار ِ
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
تفضل هذا مثال وضعت لك عددا من التكست بوكس وبوتن 
عند الضغط عليه اي تكست بوكس فارغ سيعطي الرسالة عدم الاعتماد
وان كانت كلها مملوءة ستظهر رسالة تم الاعتماد


الملفات المرفقة
.rar   Hakemi.rar (الحجم : 66.5 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: محمد كريّم
#3
لا عدمناك اخي
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
الحمد لله والشكر لله
 ولك اخي الكريم
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم