تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الخطأ في هذا الكود
#1
أخواني الكرام كتبت هذا الكود لضمان ملأ عامود رقم 13 بأكمله في الفليكس جريد وعند اختبار الكود لاحظت أن الكود يملأ أخر خانه فقط في هذا العامود وليس العامود بأكمله أرجو التعديل علي هذا الكود ولكم مني جزيل الشكر

Dim s as integer
For s = 1 To MSHFlexGrid1.Rows - 1

If (MSHFlexGrid1.TextMatrix(s, 13)) = "" Then
Command6.BackColor = vbRed
Else
Command6.BackColor = vbGreen
End If
Next
الرد }}}}
تم الشكر بواسطة:
#2
ارفق برنامجك ليتم التعديل علية
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم...

في الواقع، الكود المعروض في السؤال لا يملأ و لا يضمن ملء الخلايا في العمود رقم 13. و إنما هو يغير لون الزر Command6 حسب ما إذا كانت الخلية التي يمر عليها فارغة أم لا. و إذا كنت تقصد أن لون الزر في النهاية يعتمد على محتوى آخر خلية فقط في العمود، فهذا طبيعي لأن الحلقة ستتوقف عند آخر خلية في العمود و تضبط لون الزر على ذلك الأساس.

نرجو توضيح طلبك بشكل أدق، أو - كما قال أخونا تركي الحلواني - أرفق المشروع أو على الأقل النافذة ذات العلاقة.

و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#4
مشكور أخي الكريم علي اهتمامك ولكن المقصود أريد تغيير لون الزر في حالة اذا كانت اي خليه في هذا العامود لا تحتوي علي شيء وليست الخلية الأخيرة فقط
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم...

كود :
Dim s As Integer
    
    ' نفرض في البداية أن كل شيء تمام - أخضر
    Command6.BackColor = vbGreen
    For s = 1 To MSHFlexGrid1.Rows - 1
        ' عندما نجد أول خلية فارغة
        If Trim$(MSHFlexGrid1.TextMatrix(s, 13)) = "" Then
            Command6.BackColor = vbRed      ' نغير اللون إلى الأحمر
            Exit For                        ' نخرج من الحلقة فلا داعي للاستمرار
        End If
    Next

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#6
جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم
انصحك بطريقة الذهاب الى position =0
ثم طريقة next
بحيث تضع صندوق نص تختبر فيه اذا كان فارغا ام لا
واي خانة تكون فارغة تظهر رسالة خطأ وهي املا العمود كاملا
الرد }}}}
تم الشكر بواسطة:
#8
أخي الكريم ممكن تكتب الكود كمل وتوضح بالضبط لو تكرمت
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ فى الكود 2147217865- اسلام الكبابى 2 150 22-04-16, 10:51 PM
آخر رد: اسلام الكبابى
  تصحيح هذا الكود اسلام الكبابى 0 342 17-04-15, 06:05 PM
آخر رد: اسلام الكبابى
  أريد كودآ سهلآ بدلآ من هذا الكود الغبى اسلام الكبابى 2 427 13-04-15, 08:00 PM
آخر رد: اسلام الكبابى
  اضافة سجل باستخدام الكود اسلام الكبابى 1 520 25-03-15, 09:05 PM
آخر رد: اسلام الكبابى
  كتابة كود داخل الاكسس بواسطه الكود من الفيجوال hagasoft 1 719 28-07-13, 12:13 AM
آخر رد: hskurd
  تعديل علي هذا الكود Ahmed Abdulla 9 1,271 22-05-13, 10:00 AM
آخر رد: Ahmed Abdulla
  ما الخطأفي الكود التالي ado كمبو بوكس المبرمج البسيط 12 1,117 27-04-13, 12:18 PM
آخر رد: تركي الحلواني
  برنامج لصنع ( تكوين ) قاعدة بيانات أكسس من خلال الكود Ahmad Jawad 5 1,003 03-03-13, 02:19 AM
آخر رد: zar9awi06
  ado : ما الخطأ في الكود هذا المبرمج البسيط 2 470 10-02-13, 11:09 AM
آخر رد: تركي الحلواني
  ربط جداول من sql إلى access عن طريق الكود أبوالعباس 3 964 04-12-12, 05:41 PM
آخر رد: hago

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


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