powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подсветка строк в ленточной форме?
16 сообщений из 16, страница 1 из 1
Подсветка строк в ленточной форме?
    #32118200
ivat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как можно сделать подсветку строки в ленточной форме?
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32118466
Фотография Savik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Берёшь табличку с полем объекта OLE. В эти поля заносишь рисунок точки нужного цвета. На форме создаёшь присоединённую рамку объекта размером на всю строку, данные которой - поле с рисунком точки . Задаёшь свойства Вписать в рамку и прозрачный фон для всех информационных полей.
В результате - строки в форме подсвечиваются цветом соответствующего поля объекта OLE.
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32118621
Фотография StaleX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32118629
Фотография Savik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я так думаю, раз спрашивает, то не 2000+
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Подсветка строк в ленточной форме?
    #32739047
RodionD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
SavikБерёшь табличку с полем объекта OLE. В эти поля заносишь рисунок точки нужного цвета. На форме создаёшь присоединённую рамку объекта размером на всю строку, данные которой - поле с рисунком точки . Задаёшь свойства Вписать в рамку и прозрачный фон для всех информационных полей.
В результате - строки в форме подсвечиваются цветом соответствующего поля объекта OLE.
Все строки!!! А надо, как я понял одну!
А как с помощью Conditional Formating (Условное форматирование?)?
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32739069
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
разве трудно нажать F1?
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32739220
RodionD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Kelmeразве трудно нажать F1?
Не трудно, но подсвечивается только одно поле, а надо подсветить всю строку!!!
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32739326
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в двух словах:
растяни это поле на всю строку
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32739390
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выделение записи цветом - работающий вариант
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32741476
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В форме или подчиненной форме в режиме – таблицы.
В процедуре :
Private Sub Form_Current()
werr = wer ( Form ) - функция в любом модуле, аргумент - Form
End Sub

Сама функция:

Function wer ( frm As Form )
On Error GoTo db_Err
frm.SelHeight = 1
frm.SelWidth = frm.Count
Exit Function
db_Err: Exit Function

End Function

В результате –активная строка формы – черная.
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32741477
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В форме или подчиненной форме в режиме – таблицы.
В процедуре :
Private Sub Form_Current()
werr = wer ( Form ) - функция в любом модуле, аргумент - Form
End Sub

Сама функция:

Function wer ( frm As Form )
On Error GoTo db_Err
frm.SelHeight = 1
frm.SelWidth = frm.Count
Exit Function
db_Err: Exit Function

End Function

В результате –активная строка формы – черная.
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32742064
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробовал
Private Sub Form_Current()
wer Me ' - функция в любом модуле, аргумент - Form
End Sub

Отказал переход по записям с помощью кнопок навигации. Наверное, не повезло :(
А область выделения записи, действительно, черная
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32742092
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Bor-LПопробовал
Private Sub Form_Current()
wer Me ' - функция в любом модуле, аргумент - Form
End Sub

Отказал переход по записям с помощью кнопок навигации. Наверное, не повезло :(
А область выделения записи, действительно, черная

В данном случае кнопки навигации действительно не работают, но
. .....................^ ..|
работают <-,->, |, V, PgUp, PgDown. Этого, я думаю, вполне достаточно. :)
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32742101
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Bor-LПопробовал
Private Sub Form_Current()
wer Me ' - функция в любом модуле, аргумент - Form
End Sub

Отказал переход по записям с помощью кнопок навигации. Наверное, не повезло :(
А область выделения записи, действительно, черная

В данном случае кнопки навигации действительно не работают, но
. .....................^ ..|
работают <-,->, |, V, PgUp, PgDown. Этого, я думаю, вполне достаточно. :)
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32756476
Фотография ДАВИД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если попробовать так, то должно все работать:
Код: plaintext
1.
2.
3.
    If SelLeft    <>  1  Then SelLeft =  1 
    If SelHeight <>  1  Then SelHeight =  1 
    If SelWidth  <> Form.Count Then SelWidth = Form.Count
...
Рейтинг: 0 / 0
Подсветка строк в ленточной форме?
    #32756499
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А чего набросились на топик? Ему ж сто лет в обед.
RodionD не понял, что ответил Savic в первый раз, и не заметил, что во второй.
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подсветка строк в ленточной форме?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]