كيف يتم التبديل بين الألوان بناء على شرط معين

اخي الفاضل

يتم التبديل الى اللون الأحمر بناء على وجود وحده نمطية عامة تسمى Cotxt ثم يتم استخدامها في التنسيق الشرطي بهذا الشكل

لاحظ هنا اسم الحقل txtcusname

fstartswithJ([txtcusname])

اين تجد التنسيق الشرطي :

اعرض النموذج في وضع التصميم ثم اختر مربع النص ثم اضغط عليه بالماوس الايمن واختر تنسيق شرطي وستجد انه يتم عمل تبديل للون الاحمر

لماذا يتم وضع لون احمر على صفوف معينه دون غيرها من الصفوف ؟

السر في ذلك ان الوحدة النمطية العامة تم برمجتها في حالة ان اول حرف من حروف الصف هو الحرف M فيقوم التنسيق الشرطي بوضع اللون مثلا لو كتبت Mzahrah فسيتم وضع لون احمر على الصف وايضا لو كتبت اي اسم يبدأ بحرف M فسيتم تغيير لونه للأحمر

الوحدة النمطية العامة Cotxt

Option Compare Database
Option Explicit

Public Function fStartsWithJ(ctl As Control) As Boolean
On Error Resume Next
Dim frm As Form
Set frm = ctl.Parent
If frm.NewRecord = True Or IsNull(ctl.Value) Then
fStartsWithJ = False
Set frm = Nothing
Exit Function
End If
If left$(ctl.Value, 1) = "M" Then
fStartsWithJ = True
Else
fStartsWithJ = False
End If
Set frm = Nothing
End Function

ما شاء الله قمــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــة

والف شكرررر

تحياتى