Произвольное изменение значения в поле

@kovyl · Регистрация: 10.09.2022

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

Доброго времени суток всем!
Обратил внимание на одну странность. Табличная подчиненная форма, в форме поле со списком. Перемещение указателя мыши на другие записи (в приведенном примере передвинул на запись выше) при раскрытом списке в редактируемой меняет в них значения. При для события MouseMove этого поля со списком ничего нет. После перехода на другую запись в главной форме и возврата всё опять выглядит нормально. Но вопрос: почему всё-таки меняется?

@kovyl · 24.10.2025, 10:25 **[ТС]**

Сообщение от Eugene-LS

Добрые пользователи могут не только обрезать премию, но и поколотить ...

Ну, интерфейс согласовывался. Я только исполнитель.

Сообщение от Eugene-LS

... пост #18 про "поставить заглушку" прочитайте. Не вредно будет.

Не токмо не вредно, но и дюже полезно! Отдельное спасибо! Обязательно применю.

@Eugene-LS · 24.10.2025, 11:01

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

Ну, интерфейс согласовывался.

Ну тогда делайте конечно.
Интересно: Когда им надоест делать лишние кульбиты мышкой? (вопрос риторический)

Добавлено через 29 минут
kovyl, ... и ыссшо про ErrorHandler и остальное:
Например ваш код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub rctSectionFindings_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error GoTo ErrorHandler
 
' Заглушка ! -  На случай если УЖЕ там ...
    If mstrNameOfActiveRectangle = "rctSectionFindings" Then Exit Sub
    
    mstrNameOfActiveRectangle = "rctSectionFindings"
    mstrNameOfActiveLabel = "lblSectionFindings"
    
    Call Change_BackColor_Gray_To_Green(mstrNameOfActiveRectangle, mstrNameOfActiveLabel)
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Ошибка №:" & Err.Number & ";Описание:" & Err.Description & " в процедуре rctSectionFindings_MouseMove модуля Form_frmSamples"
    Resume ErrorHandlerExit
End Sub

Строки 4 - 8 - ошибиться НЕГДЕ!
Строка 10 = вызов процедуры Change_BackColor_Gray_To_Green() коя имеет свой ErrorHandler, который и отработает при случае.

Вывод:
Перехват ошибок в процедуре НЕ НУЖЕН!
Вы просто перестраховываетесь второпях (бывает). Процедуру можно смело привести к виду:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub rctSectionFindings_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
' Движение мышкой над "rctSectionFindings" =  Нижняя секция "Сорная примесь"
' ----------------------------------------------------------------------/
    If mstrNameOfActiveRectangle = "rctSectionFindings" Then Exit Sub ' Заглушка повторов
    mstrNameOfActiveRectangle = "rctSectionFindings"                  ' Аргумент + Отметка
    mstrNameOfActiveLabel = "lblSectionFindings"                      ' Аргумент
    Call Change_BackColor_Gray_To_Green(mstrNameOfActiveRectangle, mstrNameOfActiveLabel) ' Подсветка см. выше
End Sub

@kovyl · 24.10.2025, 13:37 **[ТС]**

Сообщение от Eugene-LS

второпях

Вышло так, что начальство пожадничало на программиста при разработке и обратились ко мне, который хоть что-то знает про Access. А у меня ни образования профильного, ни опыта (единственный проект - домашняя база данных). В итоге имеем что имеем...

@Eugene-LS · 24.10.2025, 14:01

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

А у меня ни образования профильного, ни опыта

Так тут (в разделах VBA - Access ), почитай, все так начинали, я уж точно.
Всё придёт со временем.

@kovyl · 24.10.2025, 14:20 **[ТС]**

Сообщение от Eugene-LS

я уж точно

тогда

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@kovyl 1 / 1 / 0 Регистрация: 10.09.2022 Сообщений: 347

	Произвольное изменение значения в поле 22.10.2025, 17:54. Показов 1690. Ответов 24 Метки нет (Все метки) Доброго времени суток всем! Обратил внимание на одну странность. Табличная подчиненная форма, в форме поле со списком. Перемещение указателя мыши на другие записи (в приведенном примере передвинул на запись выше) при раскрытом списке в редактируемой меняет в них значения. При для события MouseMove этого поля со списком ничего нет. После перехода на другую запись в главной форме и возврата всё опять выглядит нормально. Но вопрос: почему всё-таки меняется? Миниатюры 0