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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد كودآ سهلآ بدلآ من هذا الكود الغبى اسلام الكبابى 3 3,548 07-09-20, 07:17 PM
آخر رد: Hasaneen
  [سؤال] مامعنى هذا الكود amena 2 2,198 28-08-18, 10:50 PM
آخر رد: amena
  خطأ فى الكود 2147217865- اسلام الكبابى 2 2,246 22-04-16, 10:51 PM
آخر رد: اسلام الكبابى
  تصحيح هذا الكود اسلام الكبابى 0 1,942 17-04-15, 06:05 PM
آخر رد: اسلام الكبابى
  اضافة سجل باستخدام الكود اسلام الكبابى 1 2,771 25-03-15, 09:05 PM
آخر رد: اسلام الكبابى
  كتابة كود داخل الاكسس بواسطه الكود من الفيجوال hagasoft 1 2,461 28-07-13, 12:13 AM
آخر رد: hskurd
  تعديل علي هذا الكود Ahmed Abdulla 9 4,432 22-05-13, 10:00 AM
آخر رد: Ahmed Abdulla
  ما الخطأفي الكود التالي ado كمبو بوكس المبرمج البسيط 12 4,683 27-04-13, 12:18 PM
آخر رد: تركي الحلواني
  برنامج لصنع ( تكوين ) قاعدة بيانات أكسس من خلال الكود Ahmad Jawad 5 3,189 03-03-13, 02:19 AM
آخر رد: zar9awi06
  ado : ما الخطأ في الكود هذا المبرمج البسيط 2 2,161 10-02-13, 11:09 AM
آخر رد: تركي الحلواني

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


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