События навигационной панели формы

@wrq2017 · Регистрация: 30.07.2017

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

Добрый день!
Есть необходимость выполнять некоторый код при переходе к следующей записи. Если переход осуществляется посредством кнопок назад, вперед стандартной навигационной панели формы, то это событие (переход к другой записи) удается отловить в Form_Current(). Но, если, номер записи вбить вручную и нажать enter, то код не событие Form_Current() не происходит.
Подскажите, куда копать - как можно поймать в таком случае? И, вообще, можно ли обработать событие Onclick стандартных навигационных кнопок?

@Eugene-LS · 15.08.2019, 11:31

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

И, вообще, можно ли обработать событие Onclick стандартных навигационных кнопок?

Нет.
Работайте через события.

Но, если, номер записи вбить вручную и нажать enter, то код не событие Form_Current() не происходит.

И не должно происходить.
Вы изменили запись, но не перешли на другую.

@ltv_1953 · 15.08.2019, 11:32

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

Но, если, номер записи вбить вручную и нажать enter, то код не событие Form_Current() не происходит.

Вообще-то происходит. Может поделитесь своим примером, дабы подивиться.

@wrq2017 · 15.08.2019, 11:34 **[ТС]**

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

И не должно происходить.
Вы изменили запись, но не перешли на другую.

Как это понять? Когда я вбил номер, нажал enter, контролы формы обновились, но на другую запись я не перешел? Это как?

Добавлено через 1 минуту

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

Вообще-то происходит. Может поделитесь своим примером, дабы подивиться.

Пишу так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Form_Current()
    Call RefreshCombo
End Sub
 
Private Sub Form_Load()
    Call RefreshCombo
End Sub
 
 
Sub RefreshCombo()
On Error GoTo ErrorHandler
   BaseDate = PMonth.Value
 
source:
cbContract.RowSource = ""
 
cbContract.RowSource = "SELECT Contract.ID, Contract.NameRus & "" от "" & Contract.CDate AS Выражение1 FROM Contract " & _
                        "WHERE (((#" + Format(BaseDate, "mm\/dd\/yy") + "#)>=[Contract].[StartDate] And " & _
                        "(#" + Format(BaseDate, "mm\/dd\/yy") + "#)<=[Contract].[EndDate]))"
Exit Sub
ErrorHandler:
    BaseDate = Date
    Resume source
 
End Sub

@ltv_1953 · 15.08.2019, 11:35

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

Вы изменили запись, но не перешли на другую.

ТС писал о номере записи здесь.
Так что именно переход, если такая запись есть.

@wrq2017 · 15.08.2019, 11:38 **[ТС]**

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

Так что именно переход, если такая запись есть.

Запись есть, переход (на форме) осуществляется, событие не возникает (код не обрабатывается)

Добавлено через 2 минуты
Сейчас попробовал еще раз. Точнее так: событие происходит, но комбо-бокс не обновляется.

@ltv_1953 · 15.08.2019, 11:40

Пример - это архив Вашей базы. И, проверьте сначала, как в простейших формах ведет себя такой переход, будет ли событие Form_Current(). Или поставьте точку останов на вызовы Call RefreshCombo. Скорей всего дело в самой процедуре RefreshCombo. А без Вашей базы разобраться с ней не получится.

@Eugene-LS · 15.08.2019, 11:42

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

ТС писал о номере записи здесь.

... а иди пойми что имелось ввиду ...

- Бывает ....

@wrq2017 · 15.08.2019, 11:44 **[ТС]**

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

Пример - это архив Вашей базы. И, проверьте сначала, как в простейших формах ведет себя такой переход, будет ли событие Form_Current(). Или поставьте точку останов на вызовы Call RefreshCombo. Скорей всего дело в самой процедуре RefreshCombo. А без Вашей базы разобраться с ней не получится.

Добавил в процедуру RefreshCombo строку

Visual Basic
1
cbContract.Requery

... и всё заработало! Всем спасибо за помощь

!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@wrq2017 3 / 3 / 2 Регистрация: 30.07.2017 Сообщений: 223

	События навигационной панели формы 15.08.2019, 11:26. Показов 774. Ответов 8 Метки нет (Все метки) Добрый день! Есть необходимость выполнять некоторый код при переходе к следующей записи. Если переход осуществляется посредством кнопок назад, вперед стандартной навигационной панели формы, то это событие (переход к другой записи) удается отловить в Form_Current(). Но, если, номер записи вбить вручную и нажать enter, то код не событие Form_Current() не происходит. Подскажите, куда копать - как можно поймать в таком случае? И, вообще, можно ли обработать событие Onclick стандартных навигационных кнопок? 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	15.08.2019, 11:40
	Пример - это архив Вашей базы. И, проверьте сначала, как в простейших формах ведет себя такой переход, будет ли событие Form_Current(). Или поставьте точку останов на вызовы Call RefreshCombo. Скорей всего дело в самой процедуре RefreshCombo. А без Вашей базы разобраться с ней не получится. 1