السلام عليكم
=========
الأخوة الكرام
أقوم بإستخدام الأداة MSHFlexGrid لعرض البيانات من جدول فى قاعدة البيانات أكسيس
هذا الجدول يحتوى على بعض السجلات المميزة التى أريد عند عرض البيانات داخل الأداة يكون لون خلفيتها مميز عن بقية الصفوف الأخرى
على سبيل المثال :-
إذا كانت تلك الأداة تعرض البيانات من جدول المخزون أريد إذا كانت كمية المخزون أقل من 4 فيتم تغير لون خلفية هذا السجل
وجزاكم الله خيرا
يا ريت لو حد ساعدنى فى ذلك ولكم منى جزيل الشكر
أخى العزيز
أعتقد أن هذا الكود هو ما تريد
Dim R As Long, C As Integer
C = 5 ''**** ÈÝÑÖ Ãäß ÊÑíÏ ÊäÓíÞ ÇáÚãæÏ ÇáÎÇãÓ
With MSHFlexGrid1
For R = .FixedRows To .Rows - 1
If Val(.TextMatrix(R, C)) < 4 Then
.Col = C: .Row = R
.CellBackColor = vbRed
.CellForeColor = vbYellow
End If
Next R
End With
ضعه فى الحدث المناسب وستجد مرادك بإذن الله
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
هذا الموضوع مغلق.
