Vladim
1

Как изменить цвет записи в форме?

28.05.2010, 11:11. Показов 18495. Ответов 21
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
при определенных условиях (например пользователь изменил значение поля записи в форме) изменить цвет значений всех полей в этой записи. Как это сделать?
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2010, 11:11
Ответы с готовыми решениями:

Как изменить цвет текста ячейки в форме выводимой как таблица
Как изменить цвет текста ячейки в форме выводимой как таблица

Как изменить цвет шрифта в форме заявки
В форме обратной заявке на сайте шрифт очень тусклый. Подскажите, пожалуйста, причину. Заранее...

Как изменить цвет и толщину рамки элементов на форме
не могу найти...

Как изменить цвет метки, расположенной на другой форме
Как сделать так что бы кнопка расположенная на form1 могла оказывать влияние на элементы(в данном...

21
2091 / 1167 / 39
Регистрация: 05.11.2009
Сообщений: 1,605
28.05.2010, 23:05 2
На нужное событие вешаете код: [Поле].BackColor = 8421631 (шифр цвета)
1
47 / 47 / 3
Регистрация: 09.12.2009
Сообщений: 154
28.05.2010, 23:50 3
у меня аналогичный вопрос, но...
как изменить цвет ячейки в зависимости от значения, допустим Is Null то красный и т.д. и т.п.
0
2091 / 1167 / 39
Регистрация: 05.11.2009
Сообщений: 1,605
29.05.2010, 09:27 4
На открытие формы и на событие "после обновления" поля:
If [Поле1] Is Null Then [Поле1].BackColor = ...
1
47 / 47 / 3
Регистрация: 09.12.2009
Сообщений: 154
29.05.2010, 10:43 5
Цитата Сообщение от Ameli Посмотреть сообщение
На открытие формы и на событие "после обновления" поля:
If [Поле1] Is Null Then [Поле1].BackColor = ...
выдает ошибку

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
If [№ дела] Is Null Then [№ дела].BackColor = 8404992
End Sub
 
Private Sub №_дела_AfterUpdate()
If [№ дела] Is Null Then [№ дела].BackColor = 8404992
End Sub
0
685 / 241 / 13
Регистрация: 02.04.2009
Сообщений: 692
29.05.2010, 11:13 6
Цветовой формат там RGB ? тогда 6 цифр.
0
452 / 214 / 5
Регистрация: 16.05.2010
Сообщений: 420
29.05.2010, 11:25 7
Цитата Сообщение от garik8000 Посмотреть сообщение
выдает ошибку

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
If [№ дела] Is Null Then [№ дела].BackColor = 8404992
End Sub
 
Private Sub №_дела_AfterUpdate()
If [№ дела] Is Null Then [№ дела].BackColor = 8404992
End Sub
Так:
Visual Basic
1
2
3
4
5
If IsNull(Me.SNP) = False Then
    Me.SNP.BackColor = 15120000
Exit Sub
End If
    Me.SNP.BackColor = 255
или так:
Visual Basic
1
2
3
4
5
6
7
Private Sub JOB_LostFocus()
   If IsNull(Me![JOB]) = True Or Me![JOB] = "" Or Me![JOB] = " " Then
    Me.JOB.BackColor = 13434828
Else
    Me.JOB.BackColor = 15120000
End If
End Sub
2
SCORPEON
29.05.2010, 11:26 8
как можно скачать что нибудь
Vladim
31.05.2010, 15:31 9
Цитата Сообщение от Ameli Посмотреть сообщение
На нужное событие вешаете код: [Поле].BackColor = 8421631 (шифр цвета)
Спасибо. Это все понятно и просто. Речь шла не об одном поле, а форме, которая содержит много полей и как поменять цвет всей записи (всехт полей , входящих в эту запись), не перечисляя поля.
452 / 214 / 5
Регистрация: 16.05.2010
Сообщений: 420
01.06.2010, 09:43 10
Попробуй перебрать контролы в цыкле
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub CtrlBackColor(frm As Form)
Dim ctrl As Control
 
 
For Each ctrl In frm
    
    ctrl.BackColor = 255
    
Next ctrl
 
 
End Sub
Сваял "на колене", работоспособность не проверял - только идея. Провериш - отпишись.
0
2454 / 797 / 24
Регистрация: 18.08.2009
Сообщений: 1,697
02.06.2010, 10:35 11
если у Вас ленточная форма, то можно сделать так: в таблицу, на основании которой создана форма, добавить столбец для цвета. Он будет заполняться в зависимости от условия запросом. Потом в верхнем меню поищите условный формат (если офис 2007), там можно задать оформление полей, вставить выражения и т.д.
1
1904 / 781 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
02.06.2010, 13:33 12
насклько мне известно, кодом типа
Visual Basic
1
[Поле].BackColor = 8421631 (шифр цвета)
можно поменять цвет поля только во всех записях.
задание цвета для отдельной записи возможно только с помощью условного форматирования, которое, кажется, доступно в access версии не ниже 2007
1
2454 / 797 / 24
Регистрация: 18.08.2009
Сообщений: 1,697
02.06.2010, 13:53 13
Цитата Сообщение от ironegg Посмотреть сообщение
насклько мне известно, кодом типа Код Visual Basic
1
[Поле].BackColor = 8421631 (шифр цвета)
можно поменять цвет поля только во всех записях.
- точно, поэтому надо задать источник цвета для формы в таблице
1
2091 / 1167 / 39
Регистрация: 05.11.2009
Сообщений: 1,605
03.06.2010, 09:52 14
ironegg, если форма одиночная, и этот код повесить на текущую запись, как я и говорила, то все будет ок.
Условное форматирование доступно и в 2003 Accesse.
1
2454 / 797 / 24
Регистрация: 18.08.2009
Сообщений: 1,697
03.06.2010, 10:05 15
Цитата Сообщение от Vladim Посмотреть сообщение
Спасибо. Это все понятно и просто. Речь шла не об одном поле, а форме, которая содержит много полей и как поменять цвет всей записи (всехт полей , входящих в эту запись), не перечисляя поля.
поэтому совет по одиночной форме не пойдет
1
2091 / 1167 / 39
Регистрация: 05.11.2009
Сообщений: 1,605
03.06.2010, 11:59 16
Да уже понятно!

Добавлено через 1 час 50 минут
Если, к примеру, на форме есть 20 полей с названиями Поле1 ... Поле20, то можно обратиться к ним в цикле и менять цвет:
Visual Basic
1
2
3
For i = 1 To 20
Forms("Название_формы").Controls.Item("Поле" & i).BackColor = 255
Next i
1
1904 / 781 / 31
Регистрация: 11.02.2010
Сообщений: 1,567
03.06.2010, 14:35 17
точно. есть в 2003 условное форматирование.
перебирать поля лучше примерно так
Visual Basic
1
2
3
4
5
6
Dim i As Control
For Each i In Me.Controls
    If TypeName(i) = "TextBox" Then
        i.BackColor = 255
    End If
Next i
только он почему то не влияет на отображение в режиме таблицы. только в режиме формы и ленточной формы. с условным форматированием все ОК во всех режимах
1
6 / 8 / 0
Регистрация: 26.01.2015
Сообщений: 34
19.08.2016, 14:59 18
Народ всем привет. Я ничего не понимаю в ацессе, и в програмировании. Есть один вопрос - как поменять цвет выделенной ячейки так, как это можно сделать в экселе? Если можно то напишите доступным языком (нажми правую кнопочку, а затем левую), или пошлите меня туда где это всё расписано.
Спасибо.
0
8798 / 5695 / 578
Регистрация: 27.03.2013
Сообщений: 19,174
19.08.2016, 15:15 19
andrew_fox555, С таким легкомысленным настроем, без примера и конкретного вопроса, а типа -
А-а-а-э-э, ну где то там, сами придумайте где, пофиг в связи с чем, условие может быть любым, ХОЧУ, сам не знаю чего, ну вы короче поняли.
И ваще, почему на форуме савсем нет телепатов?

С моей колокольни вопрос прозвучал именно так.
Я даже 3 раза прочитал с самого начала и почему то даже 3 раза перекрестился прежде чем начать отвечать.
0
шапоклякистка 8-го дня
3676 / 2236 / 391
Регистрация: 26.06.2015
Сообщений: 4,647
Записей в блоге: 1
19.08.2016, 19:56 20
Цитата Сообщение от andrew_fox555 Посмотреть сообщение
как поменять цвет выделенной ячейки
Сначала расскажите, что такое "выделенная ячейка" - где вы ее в аксес нашли.

Цитата Сообщение от andrew_fox555 Посмотреть сообщение
ак, как это можно сделать в экселе?
Ммм.. где в церкви можно станцевать так, как это можно сделать на дискотеке?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.08.2016, 19:56
Помогаю со студенческими работами здесь

Как изменить цвет текста на ярлычке активной вкладки в PageFrames (в форме) ?
В форме с PageFrames хочется чтобы ярлычок активной вкладки выделялся (Сделать текст на ярлычке ...

Как изменить цвет всех lable на форме через отдельный класс
Суть проблемы в том, что не знаю как изменить цвет ForeColor для lable расположенном на форме из...

Как изменить или удалить цвет выделения текущей строки в упр.форме?
проблемма такая:) есть упр.форма, в ней таб часть с подкрашенными элементами,так вот, когда...

Изменить цвет кнопок на другой форме
Подскажите, пожалуйста, как сделать так... К примеру, я нажимаю на command1, расположенную на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru