| |
|
|
| | Есть ленточная форма дежурств. Есть 9 полей в таблице - даты дежурств. Если красить ячейки в форме соответсвтующие датам, то меняется цвет всего столбца по первой записи. Что делать? | |
| |
| |
| |
|
|
| | Условное форматирование, правда до 3-х условий. | |
| |
| |
|
|
| |
|
|
| | попробывать для отображения ListView. Правда там с редактированием вручную все прописывать | |
| |
| |
| |
|
|
| | а почем у полей 9 - если это даты то месяц - 31шт.
может выводить на экран не форму а отчет в даном случае. | |
| |
| |
| |
|
|
| | 9 полей потому что больше 9 раз человек дежурить в месяц не может. | |
| |
| |
| |
|
|
| | 9 раз, это в данном случае, а заставят в 10й выйти, или график сменят, че прогу переписывать????
можно с этого места поподробней?
|
и шо значит по по дро б ней | |
| |
| |
| |
|
|
| | можно с этого места поподробней? | |
| |
| |
| |
|
|
| | А если не красить,
а сортировать - по датам
не потянет???  | |
| |
| |
| |
|
|
| | если я правильно понял то форма имеет вид:
ФИО дата1,дата2, ..... дата9
в каждом поле датаJ стоит своя дата и нужно окрасить их согласно .....????? (чего - дней недали?, рабочий/выходной ? или как???) | |
| |
| |
| |
|
|
| | дней 31, но дежурств может быть не больше 9 в месяц у каждого. Поэтому необходимо чтобы в графике из 31 дня окрашивались поля дежурств, не больше 9 у каждого. | |
| |
| |
| |
|
|
| | полей-то 31 а не 9, просто нужно их нужно окрасить согласно какому-то условию.
вот тут как раз вариант "Условное форматирование" и катит, на каждое поле (дата) вешаем условие по дате, хотя это сорее отчет, чем фома.
а в отчете это мона сделать типа вот:
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Dim l, l1, i, isday As Variant
With Me
isday = DateSerial(!Год, !Выражение3 + 1, 1) - DateSerial(!Год, !Выражение3, 1)
' получили кол-во дней в месяце
For i = 1 To isday
l = "В" + Trim(str(i))
l1 = WeekDay(DateSerial(!Год, !Выражение3, i))
Select Case WeekDay(DateSerial(!Год, !Выражение3, i))
Case 1, 7
Me(l).BackColor = 12632256
Case 2, 3, 4, 5, 6
Me(l).BackColor = 16777215
End Select
Next
End With
End Sub
|
в отчете были поля В1...В31 которые окрашивались если они попадали на выходные. | |
| |
| |
