تلوين الحقول الفارغه في النموذج - مساعدة

[Radwan0]

السلام عليكم ورحمة الله 

اخواني عندي في النموذج اكثر من 40 حقل .. اعلم انه باستخدام التنسيق الشرطي بالامكان تلوين الحقول الفارغه وعند تعبئتها يختفي اللون

لكن عندي اكثر من ١٠ نماذج وحتى اقامه الشرط ياخذ مني وقت 

هل هنالك كود او طريقه بسيطه لفعل ذلك ؟ 

 

كل المحبه

[Moosak]

وعليكم السلام ورحمة الله وبركاته ..

 

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

[أبو عبدالله الحلوانى]

وعليكم السلام ورحمة الله وبركاته

يمكنك ان تضع هذا الكود في وحدة نمطية (Module)

Public Sub ColorCurrentRec(frm As Form, RecKey As Control, ByVal bakColor As Integer, ByVal ForColor As Integer)
  Dim ctl As Control
  
  On Error Resume Next
  

'===================================
'The required color argument for QBColor function
'is a whole number in the range 0-15.
'
'The color argument has these settings:
'
'Number  Color   Number  Color
'0       Black   8       Gray
'1       Blue    9       Light Blue
'2       Green   10      Light Green
'3       Cyan    11      Light Cyan
'4       Red     12      Light Red
'5       Magenta 13      Light Magenta
'6       Yellow  14      Light Yellow
'7       White   15      Bright White
'=============================================
  
  For Each ctl In frm.Section(0).Controls
    With ctl
'      If .Section = 0 Then
		'you can change the condition as you want here
        .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(bakColor)
          .FormatConditions(0).ForeColor = QBColor(ForColor)
          .FormatConditions(0).FontBold = True
        End If
'      Else
'        Exit For
'      End If
    End With
  Next ctl

ثم تستدعيها من خلال الفورم الذي تريده هكذا

'ID = اسم الحقل الذي ستسند قيمة الشرط اليه ممكن تغير شرط التساوي داخل الوحدة النمطية الي ما تشاء او تجعل الحقل يساوي null
'8 = هذه قيمة لون الخلفية للحقل ويمكن تغير القيمة من 0 - 15
'9 = هذه قيمة لون النص للحقل ويمكن تغير القيمة من 0 - 15
'حسب الجدول الموضح للقيم في الوحدة النمطية

Call ColorCurrentRec(me, ID, 8, 9)

تمنياتي بالتوفيق

 

[طاهر الوليدي]

وين المثال يا دكتور