| |
|
|
| | Добрый день!
В базе пятилетней давности потребовалось выделять строку в ленточной форме. Так как я порядком подзабыл как это делать, то прошелся поиском по форуму. Нашел пример, тот что надо. Вот ссылка http://hiprog.com/index.php?option=com_content&task=view&id=626 (спасибо авторам).
Перенес код в свою форму:
Dim Ключ As Long
Private Sub Form_Current()
Ключ = Nz(Me.Код, 0)
Me.Text3 = Me.Text3
End Sub
Function aaa()
aaa = Ключ
End Function
|
Но, к своиму стыту не могу найти как же вызывать Function aaa()! Подскажите, как работает эта ф-ция, куда надо ее подключить. Удалил в исходнике все, кроме формы 2 и таблицы. Макросов, модулей, запросов нет - но все работает в исходнике. А у меня не хочет.
Спасибо. | |
| |
| |
| |
|
|
| | Смотрите условное форматирование полей форм.
(Опция в контекстном меню при клике на контроле) | |
| |
| |
| |
 51 Кб. |
|
| | А вот еще примочка
Private Sub Form_Current()
Me.currentid = Me.IDPrice
Me.Recalc
End Sub
|
в условном форматировании по полю [currentid]:
Выражение -> [currentid]=[IDPrice] -> заливка синий, шрифт синий
Cм.влож | |
| |
| |
| |
|
|
| | Спасибо за ответы. Что бы я без вас делал. С меня  х 2
Узнал для себя "Условное форматирование". | |
| |
| |
| |
|
|
| | А можно и программно!
Private Sub Form_Load()
With Me.currentid
.FormatConditions.Delete
.FormatConditions.Add acExpression, , "[Currentid]=[IdPrice]"
.FormatConditions(0).BackColor = vbRed
.FormatConditions(0).ForeColor = vbRed
End With
End Sub
|
Кстати программно можно менять и в процессе - цвет там или еще что
на событие Form_Current  | |
| |
| |
| |
|
|
| | условное форматирование началось с Access 2000, в 97-м не было, приходилось изгаляться | |
| |
| |
| |
|
|
| | фоном логическое поле нужного цвета  | |
| |
| |
| |
|
|
| | или картинкой  | |
| |
| |
| |
|
|
| |
... приходилось изгаляться...
|
Сейчас этим все-равно приходится заниматься (хотя и Access-у работы хватает).
В примере с табличной формой (из приведенной ссылки) значение функции опрашивается 44 раза на каждый Current ,
при том, что записей 21 (20+новая) и только 2 поля пользуют условное форматирование.
Вопрос (риторический): Почему индусам не сделать было условное форматирование для секции формы? | |
| |
| |
| |
|
|
| |
Почему индусам не сделать было условное форматирование для секции формы?
|
 | |
| |
| |
|
|
