Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условное форматирование / 18 сообщений из 18, страница 1 из 1
03.01.2004, 15:42
    #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:43
    #32367922
Темный
Темный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
Сразу в лоб: попробуйте сначала поиском по форуму.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.01.2004, 16:31
    #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, 20:07
    #32367963
AlTis
AlTis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
2Нуф-нуф
Да, именно это я и имел ввиду.
Дельный совет. Спасибо, как я сам не догадался...:)

Проблема №2.
Создаю несколько экземпляров этой формы.
Мне надо, чтобы в каждом экземпляре текущая запись выделялась цветом.
Не хочет гад подхватывать! Хотя я понимаю, что если существует 2 экземпляра формы FrmParent, условие на форматирование "Forms!FrmParent!FrmChaild!Field1= Forms!FrmParent!FrmChaild!Field2" скорее всего будет давать ошибку (а она существует, т.к. форматирование не показывается).
Може мне надо как-то подругому смотреть на это?
Кто сталкивался - подскажите, или мысли там умные какие...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 11:15
    #32368369
AlTis
AlTis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
Может сегодня больше людей в форуме.
Подскажите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 18:50
    #32388287
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
а мигающую строку никто не делал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 19:02
    #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:56
    #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, 20:07
    #32388363
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
2 Артист:
А зачем его вообще форматировать? Если значение поля имеет тип Date, то зачем его сравнивать со стрингом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 20:11
    #32388366
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
сначала я пробовал dd(который as string), что не прокатило, поэтому и спрашиваю как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 20:11
    #32388367
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
тьфу, dd(который as date )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 20:20
    #32388371
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
В каком смысле не прокатило? Выдалась ошибка? Какая? При компиляции или при выполнении?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 20:23
    #32388372
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
никакая , форматирует всё подряд, весь столбец ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2004, 20:31
    #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:34
    #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:43
    #32388382
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
А контрол Дата - привязанный к полю, имеющему тип Date/Time?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.01.2004, 09:06
    #32388551
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
2 AlexJuice
спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2004, 15:18
    #32395521
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условное форматирование
а как сделать чтоб усл.форматирования суммировались?
т.е. одно форматирование (например цвет шрифта) не убивало другое
форматирование (цвет фона) у этого же поля?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условное форматирование / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 332ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1676893]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 59ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 213ms
total:  332ms
x
x
Закрыть


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