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

@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

я уж точно

тогда

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

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

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