| |
|
|
| | Помогите пожалуйста:
как в отчете accsse 2003 изменить цвет поля
<50 (красный) от 50 до 80 (желтый) > 80 (зеленый) | |
| |
| |
| |
|
|
| | Данный код меняет поочередно поля с красного на желтый
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim a As Integer
Me.ОбластьДанных.BackColor = vbWhite
a = Me.Поле21 Mod 2
If a = 0 Then
Me.ОбластьДанных.BackColor = vbYellow
Else: Me.ОбластьДанных.BackColor = vbRed
End If
End Sub
По аналогии сравнивая а с различными значениями присваивайте соответствующие цвета | |
| |
| |
| |
|
|
| | ??? не очень понял принципа замены | |
| |
| |
| |
|
|
| | В поле 21 идет сквозная нумерация строк отчета. В зависимости от четной или не четной позиции строки меняется цвет. В вашем случае лучше использоввать конструкцию case | |
| |
| |
| |
|
|
| | Спасибо, я понял как сделать. | |
| |
| |
