بعد التحية
كيف يمكن تظليل الحقل الحالى فى النماذج المستمرة Continuous Forms Highlight ؟
كيف يمكن تظليل الحقل الحالى فى النماذج المستمرة
هانى عوض كتب:بعد التحية
كيف يمكن تظليل الحقل الحالى فى النماذج المستمرة Continuous Forms Highlight ؟
السلام عليكم أخي الكريم
يمكنك استخدام الكود الموضح أدناه في حدث On Current
Dim ctl As Control
Dim RecKey As Control
On Error Resume Next
Set RecKey = Me.ID
For Each ctl In Form.Controls
With ctl
If .Section = 0 Then
.FormatConditions(0).Modify acExpression, , RecKey.NAME & "=" & RecKey
If Err.Number = 7966 Then
Err.Clear
.FormatConditions.Add acExpression, , RecKey.NAME & "=" & RecKey
End If
If Err.Number <> 438 Then
.FormatConditions(0).BackColor = QBColor(0)
.FormatConditions(0).ForeColor = QBColor(0)
.FormatConditions(0).FontBold = True
End If
End If
End With
Next ctlمع الملاحظات الآتية :
1- تغيير ID بالمعرف الخاص بك
2- و اختيار رقم لون من 1 إلى 15 في الجزء الخاص ب QBColor
3- و اذا كنت تريد جعل الخط Bold فيمكنك الاحتفاظ بالسطر
FormatConditions(0).FontBold = True
و اذا كنت لا تريده فاحذفه
و اليك هنا قائمة بالألوان المتاحة
0 Black color
Blue color 1
Green color 2
Cyan Color 3
Red Color 4
Magenta Color (Pink Color) 5
Yellow Color 6
White Color 7
Gray Color 8
Light Blue Color 9
Light Green Color 10
Light Cyan Color 11
Light Red Color 12
Light Magenta Color 13
Light Yellow Color 14
Bright White Color 15
الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا
{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}
شكرا أخى الكريم على المساعدة وجارى التطبيق..
تقبل فائق التحية
هانى عوض كتب:شكرا أخى الكريم على المساعدة وجارى التطبيق..
تقبل فائق التحية
لا شكر على واجب اخي الحبيب
و أتمنى أن تكون قد وفقت في عملها
بالتوفيق
الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا
{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}
alfarouk79
رائع هذا الكود
ولكن واجهتني مشكلة ان هناك حقولاً غير ممكنة لغرض العمل
وعند وضع الكود يقوم بإلغاء الامر وتصبح جميع الحقول ممكنة
هل بالامكان التعديل على الكود كي لا يتعارض هذا الامر؟؟؟
شكرا لك
اذا دعتـــك قدرتك على ظلـــم الناس فتذكر قدرة الله عليــــــك