ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение цвета поля при вводе данных
19 сообщений из 19, страница 1 из 1
Изменение цвета поля при вводе данных
    #39560116
Валерий Зимин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий Зимин
Гость
Здравствуйте! Ни как не могу разобраться, что я делаю не так. Мне нужна визуальная проверка вводимых значений. Когда оператор вводит данные, данные обрабатываются и, в зависимости от результата цвет ячейки меняется.
Для примера сделал форму и написал такой код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub p2_AfterUpdate()
    qBC

End Sub

Private Sub qBC()
On Error Resume Next
    Dim q As String
        q = ""
        q = Nz(Val(Me!p2) - Val(Me!p0), No)
        
        Select Case q
            Case No
            Me!p2.BackColor = vbWhite
            Case Is > 0 <= 150
            Me!p2.BackColor = vbGreen
            Case Is < 0
            Me!p2.BackColor = vbRed
            Case Is > 150
            Me!p2.BackColor = vbYellow
        End Select
Debug.Print q
End Sub



Но код не работает так, как я планировал. Можно сказать, он вообще не работает.
Сразу в довесок вопрос, можно ли сделать так, чтобы цвет поля менялся при вводе значения в поле, а не после обновления поля, как у меня сейчас. Пробовал писать такой же код в событие change, но это вызывало ошибку.
...
Рейтинг: 0 / 0
27.11.2017, 17:12
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560160
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Валерий Зимин,
проверку выполняют не на After а на BeforeUpdate (до обновления поля)
Код: vbnet
1.
2.
3.
4.
5.
Private Sub p2_BeforeUpdate(Cancel As Integer)
If Not условие Then ' операторы =,<,<,<>, and,or
    сообщение
    Cancel = True 'курсор не выйдет из поля пока не будут введены корректные данные
End If


End Sub
...
Рейтинг: 0 / 0
27.11.2017, 18:56
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560275
Валерий Зимин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий Зимин
Гость
sdku,

Спасибо за ответ. Мне нужно, чтобы проверка была не жёсткой, но чтобы оператор видел, если есть какие-то отклонения и сам принимал решение, вносить или не вносить данные. Поэтому проблема не решена. Прикрепляю пример формы, в которой подобная логика так же не работает.
...
Рейтинг: 0 / 0
28.11.2017, 06:14
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560308
aleks222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aleks222
Участник
Валерий Зиминsdku,

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

1. Изменение цвета поля - меняет цвет всего столбца.
2. Нафига эта радуга нужна? Чать не ЛГБТ.
3. Внятный текст предупреждения в поле рядом - гораздо полезнее.
...
Рейтинг: 0 / 0
28.11.2017, 08:55
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560341
Валерий Зимин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий Зимин
Гость
aleks222,

1) Есть какой-то другой способ определить цвет объекта?
2) ...
3) Я вроде ситуацию описал и вопрос по ней, а не спрашивал чужого мнения как лучше просигнализировать.
...
Рейтинг: 0 / 0
28.11.2017, 09:52
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560349
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Условное форматирование.
...
Рейтинг: 0 / 0
28.11.2017, 10:02
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560372
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Валерий Зимин,
...
Рейтинг: 0 / 0
28.11.2017, 10:33
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560378
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Валерий Зимин, у Вас код некорректный - строковую переменную пытаетесь сравнивать с числами.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub p2_AfterUpdate()
    qBC

End Sub

Private Sub qBC()
On Error Resume Next
    Dim q As Integer
        q = 0
        q = Nz(Val(Me!p2) - Val(Me!p0), 0)
        
        Select Case q
            Case 0
            Me!p2.BackColor = vbWhite
            Case Is > 0 <= 150
            Me!p2.BackColor = vbGreen
            Case Is < 0
            Me!p2.BackColor = vbRed
            Case Is > 150
            Me!p2.BackColor = vbYellow
        End Select
Debug.Print q
End Sub
...
Рейтинг: 0 / 0
28.11.2017, 10:42
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39560381
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Валерий Зимин,
__MichelleУсловное форматирование.
...
Рейтинг: 0 / 0
28.11.2017, 10:46
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39561009
Валерий Зимин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий Зимин
Гость
Панург,

+100500 Вам в карму! )))
Очень помогли.
Но))) стал играться, добавил вывод вычисления в Immidiate window, чтобы видеть, результат и опять тот же глюк:
Если Case задан интервалом (>0 <100, например), то обработка идёт только по условию >0. То есть, если я прошу выделить ячейку зелёным, а вычисление 100 или больше, ячейка всё равно зелёная.
Плюс перестал обрабатываться Null.
Не понимаю - это глюк или я "мистер дерево"?

Обработка в реальном времени - ещё раз спасибо!
...
Рейтинг: 0 / 0
29.11.2017, 08:04
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39561258
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Валерий Зимин,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub p2_Change()
If Not IsNull(Me.p0) Then
    Select Case Me.p2.Text - Me.p0
        Case Is < 0
            Me.p2.BackColor = vbRed
        Case 0 To 100
            Me.p2.BackColor = vbGreen
        Case 100.001 To 200
            Me.p2.BackColor = vbYellow
        End Select
Else
    Me.p2.BackColor = vbWhite
End If
End Sub
...
Рейтинг: 0 / 0
29.11.2017, 13:54
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569406
Валерий Зимин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валерий Зимин
Гость
Всем спасибо за помощь. С заданием интервалов с помощью < или > (например: >= 0 < 30) так и не разобрался (access воспринимает только первую часть условия (>=0). Плюс, для корректной работы требуется указать тип переменной (Long, Integer и т.п.).
...
Рейтинг: 0 / 0
14.12.2017, 09:19
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569412
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
sdku
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
    Select Case Me.p2.Text - Me.p0
        Case Is < 0
            Me.p2.BackColor = vbRed
        Case 0 To 100
            Me.p2.BackColor = vbGreen
        Case 100.001 To 200
            Me.p2.BackColor = vbYellow
        End Select


Вообще-то для этого существует Case Else. А то введёт юзер 10,0005 - и всё насмарку.
...
Рейтинг: 0 / 0
14.12.2017, 09:29
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569414
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Валерий ЗиминС заданием интервалов с помощью < или > (например: >= 0 < 30) так и не разобрался (access воспринимает только первую часть условия (>=0)
Код: vbnet
1.
Case Is >= 0 AND Is < 30
...
Рейтинг: 0 / 0
14.12.2017, 09:30
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569497
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Akina
Код: vbnet
1.
Case Is >= 0 AND Is < 30


Нет, такие конструкции VBA не воспринимает, увы
...
Рейтинг: 0 / 0
14.12.2017, 10:59
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569558
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Вместо Cfse можно попробовать использовать и структуру If ... ElseIf ... Но там свои тонкости. Идёт последовательная проверка всех условий.
...
Рейтинг: 0 / 0
14.12.2017, 12:37
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569597
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
MrShinтакие конструкции VBA не воспринимает, увы
Да, сорри, в VBA условия объединяются запятой, которая интерпретируется как OR.
Есть смысл воспользоваться тем, что проверка условий выполняется последовательно, и одно из ограничений проверить альтернативным условием выше по тексту. Т.е. типа

Код: vbnet
1.
2.
3.
4.
Case Is < 0 ' первое проверяется непосредственно
Case Is < 30 ' с учётом первого эквивалентно Is >= 0 AND Is < 30
Case Is < 100 ' с учётом предыдущих эквивалентно Is >= 30 AND Is < 100
Case Else ' с учётом предыдущих эквивалентно Is >= 100


Jossтам свои тонкости. Идёт последовательная проверка всех условий.Так же, как и в случае Case. Различие лишь в том, что ElseIf позволяет выполнять проверку разных выражений, типа

Код: vbnet
1.
2.
3.
If x < 0 Then ' первое проверяется непосредственно
ElseIf y < 0 Then ' с учётом первого эквивалентно x >= 0 AND y < 0
Else ' с учётом предыдущих эквивалентно x >= 0 AND y >= 0
...
Рейтинг: 0 / 0
14.12.2017, 13:37
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39569745
а так?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
а так?
Гость
AkinaДа, сорри, в VBA условия объединяются запятой, которая интерпретируется как OR.


можно использовать case true
...
Рейтинг: 0 / 0
14.12.2017, 16:26
| Ответить | Цитировать | Написать  
Изменение цвета поля при вводе данных
    #39577366
Финист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Финист
Гость
А задать несколько правил форматирования для одного поля. В зависимости от последовательности правил можно настроить и окрашивание поля в зависимости от значения.
Ну в excel так работает.
...
Рейтинг: 0 / 0
28.12.2017, 12:39
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение цвета поля при вводе данных
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39560378&tid=1611840]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 15ms
total:  164ms
созд. / загр.: 164ms
x
x
Закрыть


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