conditional formatting

[جهان نما]

سلام
آیا می توان بیش از 3شرط condition که متعاقبا برای هر کدام 3 رنگ برای text box تعریف کرد که در حالت datasheetبتوانیم با مشاهده رنگ داده ها به اختلاف انها پی ببریم -در حالت عادی تا سه شرط قبول می کند شاید با کد نویسی بتوان
ممنون می شوم از دوستان راهنمایی کنند

[Abbas Amiri]

درحالت Continuous Forms میشود . ولی در زمانی تعداد رکوردها بالا باشد روی سرعت نمایش اثر میگذارد.


Private Sub Detail_Paint()
If Bed = 0 Then
Bed.ForeColor = vbWhite
ElseIf Bed < 1000000 Then
Bed.ForeColor = vbGreen
ElseIf Bed > 10000000 Then
Bed.ForeColor = vbRed
Else
Bed.ForeColor = vbBlack
End If
End Sub