Изменение цвета в поле формы при совпадении значения поля с аналогичным полем другой

@Braser · Регистрация: 16.03.2013

Author24 — интернет-сервис помощи студентам

Добрый день! Прошу помочь в решении проблемы. Есть задумка подскажите пожалуйста как реализовать. есть некая форма 1, содержащая в столбце некоторые значения А,Б,В,Г,Д....и тд. нужно реализовать механизм следующего действия. При открытии формы 2, у которой всего 1 столбец, в котором есть такие же значения, но не все, например - только"Б" и "Д". Мне нужно, чтобы при открытии формы 2 производилась проверку на наличие таких же значений (БиД) в форме 1 и в форме 1 они бы стали подсвечены. Попробовал так:

Visual Basic

Private Sub Form_Open(Cancel As Integer)
lngYellow = RGB(255, 255, 0)
If Me.Программа = Forms!ГрафикФорма.Программа Then
Forms!ГрафикФорма.Программа.BackColor = lngYellow
Forms!ГрафикФорма.Requery
End If
End Sub

не работает, чего-то не правильно, подскажите как подправить или может есть другой метод, более рациональный.
Спасибо.

@VinniPuh · 22.02.2020, 08:49

Может попробовать на - Текущая запись, процедурку написать с условным форматированием?

Добавлено через 4 минуты
Что то типа так

Visual Basic

1	[Forms]![ИмяФормы]![ЭлементФормы].BackColor=rgb(0,0,255) 'Синий фон

@Braser · 22.02.2020, 09:14 **[ТС]**

Сообщение от VinniPuh

Текущая запись, процедурку написать с условным форматированием?

не совсем понял вашу мысль

@Braser · 25.02.2020, 09:47 **[ТС]**

Граждане! Подскажите кто-нибудь по теме ибо данная функция важна, как воздух...

@amd48 · 25.02.2020, 09:55

Сообщение от Braser

не работает, чего-то не правильно

что именно не правильно?
у вас не предусмотрено Else, когда надо вернуть стандартный цвет
Другая проблема может быть в том, что вы пытаетесь сделать это в ленточной или табличной форме. В ленточной все средства визуализации (форматирование, положение и видимость элементов) распространяются на все записи ленты, а не только на текущую.

@Braser · 25.02.2020, 10:01 **[ТС]**

Ну да, форма ленточная по другому никак не смог придумать...

Добавлено через 2 минуты
Похоже нужно искать другое решение.

@amd48 · 25.02.2020, 10:19

Можно сделать вычисляемое поле (уже покрашенное в цвет), основанное на функции VBA. Оно могло бы текстом обозначить выполнение условия. Причём в случае Else оно могло бы выводить пустую строку, т.е. никакого цвета не показывать

@Braser · 25.02.2020, 10:51 **[ТС]**

Сообщение от amd48

Можно сделать вычисляемое поле (уже покрашенное в цвет), основанное на функции VBA. Оно могло бы текстом обозначить выполнение условия. Причём в случае Else оно могло бы выводить пустую строку, т.е. никакого цвета не показывать

не знаю, подойдет ли такое решение...
Вот, сваял пример, можете показать что вы имеете ввиду? После ввода номера заказ и нажатия кнопки открывается форма с номерами программ имеющих отношение к этому заказу. А по идее форму 2 желательно не открывать явно, а выделить каким -то образом, лучше цветом, в поле [Программа] формы 1, значений совпадающих с соответствующим полем в форме 2.

@alvk · 25.02.2020, 11:26

Условное форматирование используйте, оно для этого и сделано.

@amd48 · 25.02.2020, 14:20

Сообщение от alvk

Условное форматирование

У поля Программа в контекстном меню
Название: Безымянный.png
Просмотров: 63

Размер: 1.7 Кб

Настраиваем:

Изменение цвета в поле формы при совпадении значения поля с аналогичным полем другой

предварительно в источник данных формы в запросе надо добавить поле Заказ. На форму его выносить не требуется
результат:

@alvk · 25.02.2020, 14:39

Что называется разжевали и в рот положили

@amd48 · 25.02.2020, 14:52

Да я вот сам забыл про эту фичу. Пока разобрался и скриншотов наделал, вспомнил вдруг, что хотел у себя в одном месте использовать её тоже. Работает и в ленточной форме и в табличной

@Braser · 26.02.2020, 11:40 **[ТС]**

Сообщение от alvk

Что называется разжевали и в рот положили

да ладно, прямо уж... я делал по этому способу, пока активна запись в форме 2 в форме 1 тоже отображается, ереход делаешь на следующую, пропадает.

Добавлено через 8 минут
Спасибо за помощь, всем.

Добавлено через 2 минуты
и за особо ценные замечания, без них то никак...

@alvk · 26.02.2020, 12:07

Сообщение от Braser

пока активна запись в форме 2 в форме 1 тоже отображается

Условное форматирование работает на одну форму. Вы о чём?

@Braser · 26.02.2020, 12:25 **[ТС]**

Сообщение от alvk

Условное форматирование работает на одну форму. Вы о чём?

оно может и со второй формой данные сверять и красить поле если значения совпадают, если например задать условие для поля [Программа ] Like [Формы]![ЗаказыСодержатФорма]![Программа] либо [Программа ] = [Формы]![ЗаказыСодержатФорма]![Программа] только проблема в том, что цепляет из формы 2 активную запись и сравнивает ее с полем

Добавлено через 3 минуты
основная загвоздка в том, что в источник формы 1 никак нельзя добавить эти ...еее номера заказов, они есть только в другой таблице, если я это сделаю, то не станет возможности в этой форме 1 оперировать элементами выбора типа флажок... нельзя вообщем, сижу поэтому и придумываю чего тут можно сделать, пусть даже и через ....неважно... сказали надо сделать

@amd48 · 26.02.2020, 12:29

Сообщение от Braser

если я это сделаю, то не станет возможности в этой форме 1 оперировать элементами выбора типа флажок...

Ничего не понятно, но очень интересно. У вас что, две таблицы одинаковой структуры, в которых разные наборы данных? Типа надо продолжить их ввод, но следить за тем, чтоб эти наборы не повторялись?
Если надо показать содержимое обеих таблиц в одной "таблице" на форме, то используйте запрос с UNION ALL
Таки рекомендую изложить исходную проблему, а мы, может быть, что-нибудь придумаем, совсем другим путём, а не тем, что вы пытаетесь реализовать

@Braser · 26.02.2020, 12:46 **[ТС]**

Сообщение от amd48

Типа надо продолжить их ввод, но следить за тем, чтоб эти наборы не повторялись?

нет
долго и нудно объяснять, попробую еще один пример, более приближенный к правде сваять попозже

@Braser · 26.02.2020, 13:23 **[ТС]**

Вот, если интересно
жмете поиск, воодите номер открывается 2- форма содержащая программы по вашему номеру заказа, форму 1 обновляете, подсвечивается в форме 1 значение выбранное в форме 2. В условии можно LIKE на "=" поменять результат тот же.
а мне надо, чтобы сразу все программы из формы 2 подсвечивались в форме 1

@VinniPuh · 26.02.2020, 13:40

Сообщение от Braser

...а мне надо, чтобы сразу все программы из формы 2 подсвечивались в форме 1...

Посмотреть пример не смог, соответственно и понять проблему, но почему то сложилось такое впечатление, что вы хотите научиться ходить задом наперед.

Отойду в сторону, но с удовольствием понаблюдаю за развитием событий, ибо - Прикольно и Интересно, как это другие люди делають.

@Capi · 26.02.2020, 14:40

Braser,

То, что Вы понакрутили, это что-то...
Но это уж Ваше дело.

Вторую форму удалила. Она не нужна.

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	26.02.2020, 12:25 [ТС]	15
	Сообщение от alvk Условное форматирование работает на одну форму. Вы о чём? оно может и со второй формой данные сверять и красить поле если значения совпадают, если например задать условие для поля [Программа ] Like [Формы]![ЗаказыСодержатФорма]![Программа] либо [Программа ] = [Формы]![ЗаказыСодержатФорма]![Программа] только проблема в том, что цепляет из формы 2 активную запись и сравнивает ее с полем Добавлено через 3 минуты основная загвоздка в том, что в источник формы 1 никак нельзя добавить эти ...еее номера заказов, они есть только в другой таблице, если я это сделаю, то не станет возможности в этой форме 1 оперировать элементами выбора типа флажок... нельзя вообщем, сижу поэтому и придумываю чего тут можно сделать, пусть даже и через ....неважно... сказали надо сделать 0

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	26.02.2020, 12:46 [ТС]	17
	Сообщение от amd48 Типа надо продолжить их ввод, но следить за тем, чтоб эти наборы не повторялись? нет долго и нудно объяснять, попробую еще один пример, более приближенный к правде сваять попозже 0

Изменение цвета в поле формы при совпадении значения поля с аналогичным полем другой

Решение

Решение

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	22.02.2020, 09:14 [ТС]	3
	Сообщение от VinniPuh Текущая запись, процедурку написать с условным форматированием? не совсем понял вашу мысль 0

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	25.02.2020, 09:47 [ТС]	4
	Граждане! Подскажите кто-нибудь по теме ибо данная функция важна, как воздух... 0

@amd48 841 / 472 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	25.02.2020, 09:55	5
	Сообщение от Braser не работает, чего-то не правильно что именно не правильно? у вас не предусмотрено Else, когда надо вернуть стандартный цвет Другая проблема может быть в том, что вы пытаетесь сделать это в ленточной или табличной форме. В ленточной все средства визуализации (форматирование, положение и видимость элементов) распространяются на все записи ленты, а не только на текущую. 1

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	25.02.2020, 10:01 [ТС]	6
	Ну да, форма ленточная по другому никак не смог придумать... Добавлено через 2 минуты Похоже нужно искать другое решение. 0

@amd48 841 / 472 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	25.02.2020, 10:19	7
	Сообщение было отмечено Braser как решение Решение Можно сделать вычисляемое поле (уже покрашенное в цвет), основанное на функции VBA. Оно могло бы текстом обозначить выполнение условия. Причём в случае Else оно могло бы выводить пустую строку, т.е. никакого цвета не показывать 1

@alvk 7442 / 4576 / 301 Регистрация: 12.08.2011 Сообщений: 14,243
	25.02.2020, 11:26	9
	Условное форматирование используйте, оно для этого и сделано. 0

@alvk 7442 / 4576 / 301 Регистрация: 12.08.2011 Сообщений: 14,243
	25.02.2020, 14:39	11
	Что называется разжевали и в рот положили 0

@amd48 841 / 472 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	25.02.2020, 14:52	12
	Да я вот сам забыл про эту фичу. Пока разобрался и скриншотов наделал, вспомнил вдруг, что хотел у себя в одном месте использовать её тоже. Работает и в ленточной форме и в табличной 0

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,491
	26.02.2020, 11:40 [ТС]	13
	Сообщение от alvk Что называется разжевали и в рот положили да ладно, прямо уж... я делал по этому способу, пока активна запись в форме 2 в форме 1 тоже отображается, ереход делаешь на следующую, пропадает. Добавлено через 8 минут Спасибо за помощь, всем. Добавлено через 2 минуты и за особо ценные замечания, без них то никак... 0

@alvk 7442 / 4576 / 301 Регистрация: 12.08.2011 Сообщений: 14,243
	26.02.2020, 12:07	14
	Сообщение от Braser пока активна запись в форме 2 в форме 1 тоже отображается Условное форматирование работает на одну форму. Вы о чём? 0

@amd48 841 / 472 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	26.02.2020, 12:29	16
	Сообщение от Braser если я это сделаю, то не станет возможности в этой форме 1 оперировать элементами выбора типа флажок... Ничего не понятно, но очень интересно. У вас что, две таблицы одинаковой структуры, в которых разные наборы данных? Типа надо продолжить их ввод, но следить за тем, чтоб эти наборы не повторялись? Если надо показать содержимое обеих таблиц в одной "таблице" на форме, то используйте запрос с UNION ALL Таки рекомендую изложить исходную проблему, а мы, может быть, что-нибудь придумаем, совсем другим путём, а не тем, что вы пытаетесь реализовать 0

@VinniPuh 9108 / 6037 / 590 Регистрация: 27.03.2013 Сообщений: 19,813
	26.02.2020, 13:40	19
	Сообщение от Braser ...а мне надо, чтобы сразу все программы из формы 2 подсвечивались в форме 1... Посмотреть пример не смог, соответственно и понять проблему, но почему то сложилось такое впечатление, что вы хотите научиться ходить задом наперед. Отойду в сторону, но с удовольствием понаблюдаю за развитием событий, ибо - Прикольно и Интересно, как это другие люди делають. 0