تقييم الموضوع :
  • 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
الحمد لله والشكر لله
 ولك اخي الكريم
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله بالريكوست اليوم السابع 2 48 29-05-20, 06:23 PM
آخر رد: اليوم السابع
  مشكله في الوصول الى قاعدة بيانات 2007 عند تغيرها 2016 alshandodi 7 113 29-05-20, 11:34 AM
آخر رد: معاند الحظ
  مشكله في namespace alshandodi 5 87 21-05-20, 06:21 PM
آخر رد: معاند الحظ
Rainbow عاجل جدا . مشكله في مشروع و خطأ غريب theend200x 2 236 08-05-20, 03:56 AM
آخر رد: سعود
  حل مشكله ظهور رموز غريبه اليوم السابع 2 121 05-05-20, 09:38 PM
آخر رد: اليوم السابع
  حل مشكله البرنامج لايعمل عندنا تشغيل مهمه علي ChromeDriver مثلا developermedo111 1 106 26-04-20, 02:31 AM
آخر رد: mohamedahmed1
Smile مشكله فى ExecuteNonQuery ارجو المساعده هشام السيد 3 135 21-04-20, 09:03 PM
آخر رد: عبد العزيز البسكري
  مشكله بسيطه بالريجكس حاولت كتير فيها قبل الموضوع اليوم السابع 7 174 19-04-20, 02:08 AM
آخر رد: ابو ليلى
  عندي مشكله لم اعرف ما سببها اليوم السابع 1 126 06-04-20, 09:35 PM
آخر رد: محمد كريّم
  حل مشكله تعديل صفحه الصلاحيات mohamedalqadi 3 187 01-04-20, 11:08 PM
آخر رد: ابو ليلى

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


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