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

@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

я уж точно

тогда

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

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

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

Опции темы