ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условное форматирование
18 сообщений из 18, страница 1 из 1
Условное форматирование
    #32367921
AlTis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlTis
Участник
Вопрос следующий:
Задача: выделить цветом текущую запись в ленточной форме
Решение: программно обрабатываю условное форматирование при загрузке формы FrmChaild, создаю условие типа Forms!FrmParent!FrmChaild!Field1= Forms!FrmParent!FrmChaild!Field2
Проблема: Не могу достучаться до полного списка родителей формы FrmChaild (me.parent даёт только 1 объект), что бы сформировать строку типа «Forms!FrmParent!FrmChaild»
Может можно как-то по другому форматировать \ визуально выделить запись в форме.
Как это скажется на быстодействии.
...
Рейтинг: 0 / 0
03.01.2004, 15:42
| Ответить | Цитировать | Написать  
Условное форматирование
    #32367922
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Сразу в лоб: попробуйте сначала поиском по форуму.
...
Рейтинг: 0 / 0
03.01.2004, 15:43
| Ответить | Цитировать | Написать  
Условное форматирование
    #32367944
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
В дополнение Тёмному:

AlTis ,
Если проблема "достучаться" до родителей родителей их родителей, то можно попробовать
me.parent.parent.parent
или
me.parent.form.parent.form.parent

Я не особенно уверен на счет этих конструкций (Акса под руками нет), но конструкция типа
dim obj as object
Начало цикла
set obj = obj.parent
Конец цикла
работала... Ошибки надо еще отлавливать, если родители закончились...
...
Рейтинг: 0 / 0
03.01.2004, 16:31
| Ответить | Цитировать | Написать  
Условное форматирование
    #32367963
AlTis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlTis
Участник
2Нуф-нуф
Да, именно это я и имел ввиду.
Дельный совет. Спасибо, как я сам не догадался...:)

Проблема №2.
Создаю несколько экземпляров этой формы.
Мне надо, чтобы в каждом экземпляре текущая запись выделялась цветом.
Не хочет гад подхватывать! Хотя я понимаю, что если существует 2 экземпляра формы FrmParent, условие на форматирование "Forms!FrmParent!FrmChaild!Field1= Forms!FrmParent!FrmChaild!Field2" скорее всего будет давать ошибку (а она существует, т.к. форматирование не показывается).
Може мне надо как-то подругому смотреть на это?
Кто сталкивался - подскажите, или мысли там умные какие...
...
Рейтинг: 0 / 0
03.01.2004, 20:07
| Ответить | Цитировать | Написать  
Условное форматирование
    #32368369
AlTis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlTis
Участник
Может сегодня больше людей в форуме.
Подскажите.
...
Рейтинг: 0 / 0
05.01.2004, 11:15
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388287
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
а мигающую строку никто не делал?
...
Рейтинг: 0 / 0
26.01.2004, 18:50
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388302
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Нужен прикол? Пожалуйста
Это занимает 5 минут:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim blnDone As Boolean

Private Sub Наименование_GotFocus()
blnDone = False
Do While blnDone = False
    If Me.Наименование.BackColor = vbWhite Then
        Me.Наименование.BackColor = vbRed
    Else
        Me.Наименование.BackColor = vbWhite
    End If
    DoEvents
Loop
End Sub

Private Sub Наименование_LostFocus()
blnDone = True
End Sub


Только такое мигание не для слабонервных
Поэтому можно создать доп.переменную, приравнивать ее таймеру (MyVar = Timer) и прверять некий небольшой интервал.
...
Рейтинг: 0 / 0
26.01.2004, 19:02
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388353
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
Код: plaintext
1.
2.
3.
4.
5.
    Dim dd As Date
    dd = date +  1 
    With Me.[Дата]
        .FormatConditions.Add acFieldValue, acEqual, Format(dd,  "mm\/dd\/yyyy" ) 
        .FormatConditions( 0 ).ForeColor = RGB( 255 ,  0 ,  0 )
    End With

не понимает дату dd ... как, в каком виде её запихать?
...
Рейтинг: 0 / 0
26.01.2004, 19:56
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388363
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 Артист:
А зачем его вообще форматировать? Если значение поля имеет тип Date, то зачем его сравнивать со стрингом?
...
Рейтинг: 0 / 0
26.01.2004, 20:07
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388366
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
сначала я пробовал dd(который as string), что не прокатило, поэтому и спрашиваю как?
...
Рейтинг: 0 / 0
26.01.2004, 20:11
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388367
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
тьфу, dd(который as date )
...
Рейтинг: 0 / 0
26.01.2004, 20:11
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388371
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
В каком смысле не прокатило? Выдалась ошибка? Какая? При компиляции или при выполнении?
...
Рейтинг: 0 / 0
26.01.2004, 20:20
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388372
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
никакая , форматирует всё подряд, весь столбец ...
...
Рейтинг: 0 / 0
26.01.2004, 20:23
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388376
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
А случайно не это надо?

Код: plaintext
1.
2.
3.
With Me.dt2
    .FormatConditions.Add acFieldValue, acEqual,  "Date() + 1 "
    .FormatConditions( 0 ).ForeColor = RGB( 255 ,  0 ,  0 )
End With
...
Рейтинг: 0 / 0
26.01.2004, 20:31
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388378
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Или вот это?

Код: plaintext
1.
2.
3.
4.
With Me.dt2
    .FormatConditions.Add acFieldValue, acEqual,  "'" & Date + 1 & "'" 
    .FormatConditions( 0 ).ForeColor = RGB( 255 ,  0 ,  0 )
End With
...
Рейтинг: 0 / 0
26.01.2004, 20:34
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388382
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А контрол Дата - привязанный к полю, имеющему тип Date/Time?
...
Рейтинг: 0 / 0
26.01.2004, 20:43
| Ответить | Цитировать | Написать  
Условное форматирование
    #32388551
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
2 AlexJuice
спасибо!
...
Рейтинг: 0 / 0
27.01.2004, 09:06
| Ответить | Цитировать | Написать  
Условное форматирование
    #32395521
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
а как сделать чтоб усл.форматирования суммировались?
т.е. одно форматирование (например цвет шрифта) не убивало другое
форматирование (цвет фона) у этого же поля?
...
Рейтинг: 0 / 0
02.02.2004, 15:18
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условное форматирование
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32367921&tid=1676893]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 213ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 75ms
get tp. blocked users:
 1ms
others: 245ms
total:  580ms
созд. / загр.: 580ms
x
x
Закрыть


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